|
こんばんわ、はじめて投稿させて頂いてます。
検索してどうにか下記まで出来たのですが、あと一歩の所で、どうにも
ならなくなり、質問させて頂きました。ご助力頂けましたら幸です。
下記のような、表があります。
A B
1 1
2 2
3 3
4 4
5
6 5
上記、表の「B」列の値を上から順番にA1にコピーし、その後に印刷という作業を
マクロにて行いたいのですが、B5セルのような空白セルがある場合には無視して
印刷せずに、次のセルに作業を進めさせたいのですが、上手く行きません。
if使ってみたり、PasteSpecialに空白無視をつけてみたりしたのですが、
エラーが出たり、やりたい事と違っていたりで、、、
どうか、お助けてください T。T)
Sub Make()
For i = 1 To 6
'列をコピー→貼り付け
Cells(i, 2).Copy
Range("A1").PasteSpecial
'印刷
'Worksheets("test").PrintOut
Worksheets("test").PrintPreview
MsgBox "処理を継続しますか?"
Next i
End Sub
|
|