エクセルVBA（宛名の連続印刷） で作成した住所録のあるファイルに
シートを一枚追加します。
以下は、一例ですので、印刷レイアウトなど状況に合わせて編集してください。
２＊４のラベルシートで説明します。
１、準備です。
F列に ０ を７行分、次に ２ を７行分、同様に ４を７行、６を７行
G列に １ を７行分、次に ３ を７行分、同様に ５を７行、７を７行
E1セルに ２ と入れておいて
H1セルに =$E$1+F1 Ｉ１セルに =$E$1+G1 と入れて下までコピーすると
２、３
４，５
・・・・と表示される事を確認
Ｅ１セルに １０ と入れると
１０，１１
・・・・と表示される事を確認
２、ここで、Ｂ列、Ｃ列にラベル印刷に必要な住所などを表示させる関数を考えます。
エクセル豆知識（Vlookup関数） でＶｌｏｏｋｕｐ関数を使いましたが、ここではＩｎｄｅｘ関数を使います。
Ｂ１セルに =INDEX(住所録!$B:$B,H1)&""
Ｂ２セルに =INDEX(住所録!$C$CH2)&""
B３セルに =INDEX(住所録!$D:$D,H3)&""
B４セルに =INDEX(住所録!$A:$A,H4)&""
・・・と２行目の会社名、住所などが表示されるように関数を入れます。
Index関数は Index(表示する列,行番号) と取りあえず覚えておいてください。
H1セルは ２ですので、=INDEX(住所録!$B:$B,H1) は、住所録のB列の２行目です。
最後に &"" を追加しているのは、空白の際に ０ と表示されるのを
空白表示する手法です。
B1～B6までを、コピー、C1に貼付け
B1～C6までを、コピー、B7に貼付け
同様に、B13に貼付け、B19に貼付けすれば、印刷したいラベル一覧が出来ます。
あとは、印刷範囲を指定して、印刷プレビューでラベルに入るか確認してみましょう。
不要な行は削除していただいても構いません、
最後に、E1セルに １０ を入れてみましょう。次に住所が表示されます。
次に、１８ と ８飛びに数値を入れていけば順次表示されていきます。
F～I列の様に、関数を簡単にするために準備した列を「作業列」と呼びます。
３、印刷のマクロボタンの配置
感の良い方は、既にひらめかれたでしょう。
E1セルに、２，１０，１８と８飛びの数値が順に入って印刷するマクロです。
ボタンを配置
Sub ボタン3_Click()
For i = 2 To Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row Step 8
Range("E1").Value = i
ActiveSheet.PrintPreview
Next
End Sub
では、如何でしょうか。わずか４行です。
For の最後にある Step 8 は i を ８飛びに増やす意味です。
良く考えたら簡単ですよね。覚えてほしいことが一つ
「エクセルの機能、関数、マクロ を効率よく使いましょう」
全てをマクロ（VBA）で処理しようと考えると複雑になります。
今日は、来客があるので、ここまでにします。
『飲んだら書くな、書くなら飲むな！！』