＜excel：VBA＞変数を使って簡略化したい

質問

google検索してなんとか自力で作ったVBAを下記に貼りました。
きちんと動作はするのですが、せっかくなので変数を使って簡素化し、
データが多くても動作が速くなるようにしたいのです。
いろいろ試しましたが、変数の使い方の知識が乏しく、うまくいきませんでした。
変数としたいのは■マークの2箇所になると思います。

詳しい方、力を貸していただけないでしょうか。
どうぞよろしくお願いいたします。

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
Sub オートフィルタ貼付作業()
With Sheets("データ").Range("A3")

Application.ScreenUpdating = False

Range("AA3:EK3").AutoFilter
.AutoFilter Field:=1, Criteria1:="1"　’■Fieldが1ずつ増えていく
Range("AA3").Copy Range("Z3")　’■AA3が1列ずつ右へずれていく
.CurrentRegion.Copy Sheets("貼付").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Range("A3").AutoFilter

Range("AA3:EK3").AutoFilter
.AutoFilter Field:=2, Criteria1:="1"
Range("AB3").Copy Range("Z3")
.CurrentRegion.Copy Sheets("貼付").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Range("A3").AutoFilter

～～～～～～～～～～～～
115列分のデータがあり
下記まで同じようにつづきます
～～～～～～～～～～～～

Range("AA3:EK3").AutoFilter
.AutoFilter Field:=115, Criteria1:="1"
Range("ek3").Copy Range("Z3")
.CurrentRegion.Copy Sheets("貼付").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Range("A3").AutoFilter

End With

Application.ScreenUpdating = True

Sheets("貼付").Activate
Cells.Columns.AutoFit

End Sub
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

回答No.1

tsubu-yuki · ベストアンサー

これが「どんな処理なのか」考えても深部まではわからないので、
とりあえず思いついたまま、
単純に、For～Nextで繰り返し処理が通用するかもしれません。

Sub オートフィルタ貼付作業()
　　　　Application.ScreenUpdating = False

　　　　With Sheets("データ").Range("A3")
　　　　　　　　For i = 1 to 115
　　　　　　　　　　　　Range("AA3:EK3").AutoFilter
　　　　　　　　　　　　.AutoFilter Field:=i, Criteria1:="1"　’■Fieldが1ずつ増えていく
　　　　　　　　　　　　Cells(3, i + 26).Copy Range("Z3")　’■AA3が1列ずつ右へずれていく
　　　　　　　　　　　　.CurrentRegion.Copy Sheets("貼付").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
　　　　　　　　　　　　.AutoFilter
　　　　　　　　Next
　　　　End With

　　　　Application.ScreenUpdating = True

　　　　Sheets("貼付").Activate
　　　　Cells.Columns.AutoFit
End Sub

試していないので、動くかどうか微妙ですが。

お礼

tsubu-yukiさま
さっそくご教授いただいたもので確認したところ問題なく動作しました。
今回、変数が2箇所という点でつまづいていたのですが、
列の動きもCellsで記述して　Cells(○, i + ○)にしてしまえば、1個(i)だけで良いわけですね。頭が固かったです・・・。
これで後々のプログラムのちょっとした修正もスグ出来るので大変助かりました。ありがとうございました！