|
▼チューリップ さん
こんにちは^^
横から失礼します。
貼り付け先の、列を決める変数をもひとつ用意されたらどうですか?
k = 1
For t = start To last
If Worksheets("Sheet3").Rows(t).Hidden = False Then ’※1
If k Mod 3 = 0 Then k = k + 1
Worksheets("Sheet3").Cells(t, 1).Resize(, 4).Copy
Worksheets("あああ").Cells(1, k).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
k = k + 1
End If
Next t
※1・・これいれておかないと、非表示になってる行もコピーちゃいませんか?
あ、コピー処理んとこも、変えてみましたが、こっちのがすっきりするかな〜・・・と。
いちいち、「ナンタラ.Activate」→「Selection.カンタラ」ってしなくても、直に処理してもOKですよ^^
たまに、しないとダメな場合もあるけど。
|
|