| |
▼チューリップ さん
こんにちは＾＾
横から失礼します。
貼り付け先の、列を決める変数をもひとつ用意されたらどうですか？
k = 1
For t = start To last
If Worksheets("Sheet3").Rows(t).Hidden = False Then ’※１
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
※１・・これいれておかないと、非表示になってる行もコピーちゃいませんか？
あ、コピー処理んとこも、変えてみましたが、こっちのがすっきりするかな〜・・・と。
いちいち、「ナンタラ.Activate」→「Selection.カンタラ」ってしなくても、直に処理してもＯＫですよ＾＾
たまに、しないとダメな場合もあるけど。
|
|
つん
- 09/7/2(木) 14:46 -
