
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列の数字通りに繰り返しできる式を教えてください。
お手数をお掛けしますが、よろしくお願いいたします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
差し込み印刷でラベルを使うなら、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
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
印刷枚数をセルの数値としたい
Excel(エクセル)
-
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
Excel マクロ 選択セルの値の枚数印刷かつページ数をセルに表記
Excel(エクセル)
-
-
4
Excelのマクロで指定したセルを枚数分印刷をしたいです。
Excel(エクセル)
-
5
エクセル印刷時 一枚の書類に印刷枚数分の連続番号を振るには?
Excel(エクセル)
-
6
Excel で行を指定回数だけコピーしたい
Excel(エクセル)
-
7
印刷枚数を指定して印刷(印刷しないシートを含む場合)
Visual Basic(VBA)
-
8
エクセルで印刷部数をセルに表示させたい
その他(Microsoft Office)
-
9
Excelのマクロで印刷枚数をセルの値に設定していますがエラーになります。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでフィルタ後の条件付...
-
PowerPointで表の1つの列だけ...
-
エクセルで二つの数字の小さい...
-
エクセル(勝手に太字になる)
-
2つのエクセルのデータを同じよ...
-
エクセルの表から正の数、負の...
-
エクセルの項目軸を左寄せにしたい
-
エクセルで最初のスペースまで...
-
EXCELで 一桁の数値を二桁に
-
【エクセルの並び替え】末尾の...
-
エクセルで、列の空欄に隣の列...
-
Excel関数(通常はA列優先で、...
-
EXCELで cuontifやsubtot...
-
エクセルで文字が混じった数字...
-
VBAでセル入力の数式に変数を用...
-
エクセルのセル内の文字の一部...
-
Excel VBAで不一致なら空白セル...
-
お店に入るために行列に並んで...
-
【excelVBA】Findメソッドで検...
-
50人を数回、グループ分けする...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
2つのエクセルのデータを同じよ...
-
Excelで半角の文字を含むセルを...
-
EXCELで 一桁の数値を二桁に
-
エクセル(勝手に太字になる)
-
エクセル 文字数 多い順 並...
-
エクセルで最初のスペースまで...
-
オートフィルターをかけ、#N/A...
-
エクセル 同じ数字を他の列に自...
-
エクセル 同じ値を探して隣の...
-
「B列が日曜の場合」C列に/...
-
エクセルで文字が混じった数字...
-
Excel、市から登録している住所...
-
エクセルの項目軸を左寄せにしたい
-
Excel 文字列を結合するときに...
-
エクセルの表から正の数、負の...
-
【VBA】特定列に文字が入ってい...
-
エクセルで、列の空欄に隣の列...
-
オートフィルターの絞込みをし...
おすすめ情報