エクセル マクロの設定方法について

質問

差込印刷でSheet1に作成した名簿データにより、sheet2に作成しているデータへ差込印刷をしています。現在、次のようなマクロを組んで名簿の件数に合わせて、For ＝ 2 To 500 Step 8を修正しながら、印刷しています。できたら、名簿の件数の増減に関係なく印刷できるようになればと考えています。始めたばかりのマクロ初心者です。よろしくご教授ください。お願いします。
Dim i As Long
Dim ws1 As Worksheet, ws2 As Worksheet

Set ws1 ＝ sheets(″sheet1″)
Set ws2 ＝ sheets(″sheet2″)

For i ＝ 2 To 500 Step 8
ws2 .Range(″A1″).Value ＝ ws1.Cells(i+1,2).Value
ws2 .Range(″A7″).Value ＝ ws1.Cells(i+2,2).Value
ws2 .Range(″A13″).Value ＝ ws1.Cells(i+3,2).Value
ws2 .Range(″A19″).Value ＝ ws1.Cells(i+4,2).Value
ws2 .Range(″F1″).Value ＝ ws1.Cells(i+5,2).Value
ws2 .Range(″F7″).Value ＝ ws1.Cells(i+6,2).Value
ws2 .Range(″F13″).Value ＝ ws1.Cells(i+7,2).Value
ws2 .Range(″F19″).Value ＝ ws1.Cells(i+8,2).Value

DoEvents

ws2.PrintOut

Next

End Subws2 .Range(″F1″).Value ＝ ws1.Cells(i+5,2).Value

ネット等で調べて、上記のようなマクロで作業してます。（マクロの設定方法が間違っているところがあると思いますが？）

回答No.3

tom04 · ベストアンサー

こんばんは！
コードの記述方法はひとそれぞれですので、これでないとダメ！ということはないと思います。

一例ですが↓のような感じではどうでしょうか？

Sub 印刷()
Dim i As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Sheets("sheet1")
Set ws2 = Sheets("sheet2")
For i = 2 To ws1.Cells(Rows.Count, 2).End(xlUp).Row Step 8
With ws2.Cells(1, 1)
.Value = ws1.Cells(i + 1, 2)
.Offset(6) = ws1.Cells(i + 2, 2)
.Offset(12) = ws1.Cells(i + 3, 2)
.Offset(18) = ws1.Cells(i + 4, 2)
.Offset(, 5) = ws1.Cells(i + 5, 2)
.Offset(6, 5) = ws1.Cells(i + 6, 2)
.Offset(12, 5) = ws1.Cells(i + 7, 2)
.Offset(18, 5) = ws1.Cells(i + 8, 2)
End With
ws2.PrintOut
Next i
End Sub

※　質問内容からすると、
＞For i = 2 To ws1.Cells(Rows.Count, 2).End(xlUp).Row Step 8
の部分が一番のご希望だったのでしょうかね？m（＿ ＿）m

回答No.2

imogasi

>マクロの設定方法について
この言い回しはつかわない。設定は他に意味がある。VBAのコードを作ってくれ、でしょう。
丸投げで頼りすぎだが。
ーー
どういうデータ状態なのか特にSheet1の例ぐらい挙げて質問を説明すること。
普通はSheet1の１行データの各列（＝諸項目）を、Sheet2の適当な決った場所（セル）にセットして、１ぎょうで１
.PrintOutして、Shet2の変わるセルをクリアして、行数分繰返すものだが。
そのSheet2の帳票設計が８行おき、というのも理由が説明されてなくて解せない。
Sheet1のデータも１印刷シートあたり、Sheet1のB列から８行分セットして作成しているが、意味がわからない。
ーー
初心者は、我流の、間違ったり、拙いコードを掲示して、読者・回答者に読み解かせると、混乱したり質問の意図をミスリードすることが多い。
質問では、やりたいことをデータ例を掲示して、文章を添えて、説明することに注力すべきだ。
ーーー
普通のケースでは、
繰り返しはSheet1の（各）行
繰返し（For Nextなど）の終了条件はSheet1のデータ最終行
Sheet2は、Sheet1の「いま処理している行の各列」からSheet2のセル（散らばっているので、しかし在る項目は、同じセル位置のはずなので)に、くり返しではなく、具体個別的にコード複数行でセルを指定する記述になると思う。

お礼

ご回答いただきありがとうございました。
初めての質問でしたので、言い回し等が悪く申し訳ありませんでした。
sheet1に次の項目で名簿データを作成しています。
A列(番号)B列(業者名)C列(名前)D列(住所)E列(備考)
sheet2は、1ページに同じ様式の名札を8枚(8名分)作成しています。
その名札には、番号、業者名、名前を差込印刷できるようにしています。
できれば、今のマクロを利用してA列が空欄になったら、印刷を終了させることができるのか教えていただきたかっただけです。
質問の仕方が悪く、申し訳ありませんでした。

回答No.1

・真 綾・（@Ma-yan_bh1011）

名簿の途中に空行がないなら、「500」の代わりに
[B2].End(xlDown).Row
が使えます。

お礼

ご回答いただきありがとうございました。
マクロ初心者ですので、これからも色々と試したいと思います。