抽出データのコピー

質問

OFFICE2016

AAのシートのＡ列を1件ずつ参照し、BBのシートでそれぞれに対応するデータを抽出し、CCのシートへコピーするマクロを作成していますが、
抽出したデータをコピーした後に保存すると、容量がものすごく大きくなっています。
原因は、コピー後にCCのシートが最終行まで使用されている状態になっているから。

下記は作成途中のマクロです
Sub TEST()
'
Sheets("CC").Select
Cells.Select
Selection.ClearContents

Dim i As Long
i = 1

Dim M As String

M = Worksheets("AA").Cells(i, 1).Value

Sheets("BB").Select

Worksheets("BB").Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=M
Columns("A:C").SpecialCells(xlCellTypeVisible).copy
Worksheets("CC").Range("B1").PasteSpecial Paste:=xlPasteAll

Application.CutCopyMode = False
'
Worksheets("BB").Range("A1").CurrentRegion.AutoFilter

End Sub

何が原因なのでしょう？
また、その解消法教えていただきたく、よろしくお願いします。

回答No.1

nishi6 · ベストアンサー

私のPCでは、提示のコードを実行してもBookが肥大化することはありませんでした。
シートCCが最終行まで選択状態になるのが気になれば、最後に、
　「Worksheets("CC").Range("A1").Select」とかすればいいでしょう。

質問を見て、普通にコードを書いて、Bookが肥大化することもなかったのでそのまま書くことにします。
当方、Win10、Excel2010です。ご参考に。

Sub TEST()
　Sheets("CC").Select
　Cells.Select
　Selection.ClearContents

　Dim i As Long
　Dim M As String
　i = 1

　M = Worksheets("AA").Cells(i, 1).Value
　With Worksheets("BB").Range("A1")
　　.AutoFilter 1, M
　　.CurrentRegion.Copy Worksheets("CC").Range("B1")
　　.AutoFilter
　End With
　Worksheets("CC").Range("A1").Select
　Worksheets("BB").Range("A1").CurrentRegion.AutoFilter
End Sub

お礼

回答ありがとうございます。
提示いただいたマクロでBOOK肥大化を回避することができました(^^)

補足

シートCCが最終行まで選択状態になるのが気になれば、最後に、
　「Worksheets("CC").Range("A1").Select」とかすればいいでしょう
→
この場合、実行時エラー１００４
RangeクラスのSelectメソッドが失敗しました
というポップアップエラーが発生します。

私のPCでは、提示のコードを実行してもBookが肥大化することはありませんでした。
→
他のパソコンでoffice2010が入っているもので試しましたが、
BOOK肥大化しました。