マクロを使って印刷したい

質問

以前にも質問させて頂きましたが、私の説明が悪かったため再度させて頂きます。
A8：C50まで下記のようなデータが入っているとして
No.1　山田産業　 1230
No.2　東物産　　 2562
No.3　北村建設 　3127
…　　…　　　 …
A1:C3に下記のような表を作成します。
　　　　 　　A列　　　　B列　　　　　　　　　　　　　C列
1行目　 □　VLOOKUP($A1,$A$8:$C$50,2,0)　VLOOKUP…
2行目　 □　VLOOKUP($A2,$A$8:$C$50,2,0)　VLOOKUP…
3行目　 □　VLOOKUP($A3,$A$8:$C$50,2,0)　VLOOKUP…
-----------------------------------
A列の□にA列の8行目に入っている数字を自動的に上から3づつ（No.1、No.2、No.3）表示させてはA1:C3を印刷したいのです。
（No.1,No.2,No.3表示→印刷　No.4,No.5,No.6表示→印刷・・・・・・）
例えばNo.50までデータがあるとして1クリックで最後まで順番に印刷させることはマクロで出来ますでしょうか？
知恵をお借りできれば幸いです。宜しくお願い致します。

回答No.4

watabe007 · ベストアンサー

>A8：C50まで下記のようなデータが入っているとして
A列の最終行が50と定まっていないのなら最終行を求める必要がありますね
Dim i As Long
Dim LastRow As Long
'A列の最終行
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 8 To LastRow Step 3

お礼

watabe007さま
ありがとうございます！
出来ましたっ！説明不足で何度もご回答いただきすみませんでした<(_ _)>
本当にありがとうございました。

回答No.3

watabe007

IsNumericだと空白でもTrueを返しますね
A1:A3に空白は0で全て数字なら印刷
If Application.CountBlank(Range("A1:A3")) = 0 And _
IsNumeric(Range("A1").Value) And _
IsNumeric(Range("A2").Value) And _
IsNumeric(Range("A3").Value) Then
ActiveSheet.Range("A1:C3").PrintOut
End If

回答No.2

watabe007

>A列に数字が入っていない場合は無視して印刷しないというのは出来ますでしょうか・・
A列というのはＡ1～Ａ3を指すのかな?
Ａ1が数字なら印刷
Dim i As Long
For i = 8 To 50 Step 3
Cells(1, 1).Resize(3).Value = Cells(i, 1).Resize(3).Value
If IsNumeric(Range("A1").Value) Then
ActiveSheet.Range("A1:C3").PrintOut
End If
Next
A1、A2、A3 全て数字なら印刷

If IsNumeric(Range("A1").Value) and IsNumeric(Range("A2").Value) and IsNumeric(Range("A3").Value) Then
ActiveSheet.Range("A1:C3").PrintOut

回答No.1

watabe007

>A列の□にA列の8行目に入っている数字を自動的に上から3づつ（No.1、No.2、No.3）表示させてはA1:C3を印刷したいのです。

Dim i As Long
For i = 8 To 50 Step 3
Cells(1, 1).Resize(3).Value = Cells(i, 1).Resize(3).Value
ActiveSheet.Range("A1:C3").PrintOut
Next

補足

watabe007さま
ありがとうございます！上手くできました！！
それと・・・A列に数字が入っていない場合は無視して印刷しないというのは出来ますでしょうか・・
図々しくてすみません(-_-;)
宜しくお願いします。