Excelマクロで他シートへの抽出：エラー

質問

こちらの質問
http://okwave.jp/qa/q4760155.html

を参考に、エクセルマクロを作りました。
Sheet1の10列目（J）に@が入っている行をすべて、
Sheet2に抽出表示します。コードは次になります。

Private Sub Worksheet_Activate()
With Sheets("Sheet1")
.AutoFilterMode = False
.Range("A1:N1").AutoFilter
.Range("A1:N1").AutoFilter Field:=10, Criteria1:="@"
.Range(.Range("A1"), .Range("A1").SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy Range("A1")
.AutoFilterMode = False
End With
End Sub

このマクロを実行すると、確かにSheet2では抽出が行われるのですが、
同時にSheet1の内容も抽出された内容に変わってしまいます。
どこに問題があるのでしょうか。
よろしくお願いします。

回答No.4

mt2008 · ベストアンサー

ご提示のコードは、Sheet1でオートフィルタを行い、その結果をこのコードが入っているシートのA1にコピーし、Sheet1のオートフィルタを解除しています。

Sheet1の内容を書き換える要素は入っていません。
ご提示のコードはコピペしたもので、一字一句実際のコードと同じですか？

補足

回答ありがとうございます。いろいろ試しました。
解決したような気がしますが、一応書かせてもらいます。

「異なっている点」
シート名が全角日本語に書き換えられています。
また抽出もとのSheet1にはフィルターが掛けられています。

新規ファイルに適当にデータを記入しこのVBAを試したら出来ました。
データにフィルターを掛けた状態で試すと、フィルターがなくなりますが出来ました。
コード末尾に.Range("A1:N1").AutoFilter Field:=10
を加えて、フィルターをつけ直すことができました。

そして最後に
.Range("A1:N1").AutoFilter Field:=10
を最初のデータのコード最後に加えると、きちんとSheet1が表示されるようになりました。

.AutoFilterMode = Falseが効いていないのが原因でしょうか。
効かなかった理由がよくわかりませんが、元データにいろいろ加わっていた操作が
干渉したとしか考えられません。

回答No.3

mt2008

> Sheet1には何もいれていないはずです。

確認してください。

補足

確認しました（汗
何も入っていません。

回答No.2

mt2008

このコード、Sheet2にだけ入れてますか？
Sheet1にも入っているんじゃないかと思います。

補足

Sheet1には何もいれていないはずです。

回答No.1

FEX2053

問題がある・・・じゃなくて、その処理は

「シート２を開くと、シート１上でマクロの処理が動く」

プログラムになってますから、シート１上の内容が書き
変わっちゃって当然ですが？

リンク先を見ると、そういう話を前提に組んでいたように
見受けられるんですが・・・。

補足

そうですか
コードを見るとなんとなくそうなのかなぁという気はしてたのですが……

リンク先はSheet1の内容を抽出したいという話なので、
Sheet1が変わるのは不味いはずです。質問者さんも納得
しているみたいだったので、そんなことはないと思ったのですが。

これをSheet1の内容は変えないようにするにはどうしたらよいのでしょうか。