【Excel】セルの値を印刷枚数に設定orセルの数値通りに繰り返し表示したい

Excelでリストを作成し、Wordの差し込み文書でラベルを作成しました。
I列の数字の通り、セルの値を印刷枚数に設定する方法はありますか？
Wordでの操作が難しい場合は、エクセルの元データをI列の数字通りにA列～H列まで
コピーできるVBAの式を教えていただけないでしょうか。

A B C D E F G H I（列）
あ い う え お か き く 1
け こ さ し す せ そ な 2
に ぬ ね の は ひ ふ へ 4

（例）
A B C D E F G H I
あ い う え お か き く 1
け こ さ し す せ そ な 2
け こ さ し す せ そ な 2
に ぬ ね の は ひ ふ へ 4
に ぬ ね の は ひ ふ へ 4
に ぬ ね の は ひ ふ へ 4
に ぬ ね の は ひ ふ へ 4

このようにエクセルのデータをI列の数字通りに繰り返しできる式を教えてください。
お手数をお掛けしますが、よろしくお願いいたします。

No.3 回答者： GOMΛFU 回答日時： 2019/03/18 07:48

WordでVBAが組めるならiの値分印刷を繰り返せばよいだけじゃ。

No.2 回答者： enunokokoro 回答日時： 2019/03/14 01:01

差し込み印刷でラベルを使うなら、Excel側で対応してます。

（Word側では、ラベルの場合は無理なので）

Excelだと、こちら↓のベストアンサーのマクロで対応できます。
https://oshiete.goo.ne.jp/qa/4323969.html

現在のリストがSheet1にあるのなら、Sheet2を用意しておきます。
1行目のフィールド名も必要なので、1行目もI列に数字の1を入れて
以下の部分を修正したマクロを実行します。

Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
' Dim d, i, j, k

Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
d = sh1.Range("A65536").End(xlUp).Row
　MsgBox d
k = 1
　For i = 1 To d
' 最終列をE列からI列に修正
　　For j = 1 To sh1.Cells(i, "I")
' コピー後のI列が不要なら、.Copyの前にあるIをHにします。
　　　sh1.Range(sh1.Cells(i, "A"), sh1.Cells(i, "I")).Copy _
　　　sh2.Cells(k, "A")
　　　k = k + 1
　　Next j
　Next i
End Sub

No.1 回答者： nouble1 回答日時： 2019/03/14 00:22

等号で、

既に　表示されている、
セルを　指し示せば、
良いだけでは？

又は、
オートフィルすれば　良いですよね？
https://www.724685.com/word/wd141210.htm