エクセルで

質問

いつもお世話になります
列がA１からＥ１まで行が1から22までで
５列間隔で最後が２３６－２４０で４８ペ－ジあります
Ａ６をテストして値があれば印刷
空白だったら印刷しないというマクロを
教えてください
よろしくお願いいたします

回答No.1

imogasi · ベストアンサー

Sub test01()
For i = 1 To 240 Step 5
If Cells(1, i) = "" Then
Else
Range(Cells(1, i), Cells(22, i + 4)).PrintOut
End If
Next i
End Sub
テストデータが作りにくいので、２ブロック列のテストしかしてませんが十分テストしてください。

お礼

ありがとうございます
早速試してみます

補足

ありがとうございました　出来ました
５列間隔で最後が２３６－２４０で４８ペ－ジあります
49ページ目（Ａ２３から）に行くマクロも出来れば教えてください

回答No.2

imogasi

Sub test01()
for j=1 to 22*10 step 22 '２２行おきに。２０＊１０＋２２行まで
For i = 1 To 240 Step 5 'Ａ－Ｅの５列、２４０列まで
If Cells(1, i) = "" Then
Else
Range(Cells(j, i), Cells(j+21, i + 4)).PrintOut
End If
Next i
next j
End Sub
22*10 のところの１０は、最下行－２２行目を見て、１０なのか、６なのか変えてください。

お礼

いつも、また早々の回答をありがとうございます
わかり易く大変喜んでおります