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.1
- 回答日時:
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
- Excel(エクセル) 【Excel】指定した文字列に該当する行を重複しないようにリスト 3 2022/03/30 12:27
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) エクセルのセルの書式設定・ユーザー定義の条件設定について 1 2022/08/17 21:56
- Excel(エクセル) エクセルにおいてセル内の文字を出来るだけ大きく表示する方法を教えてください。 4 2022/07/30 08:08
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルでA列セル内で折り返すことなく、文字列を、B列C列・・・側に一行に 2 2022/07/23 02:02
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
印刷枚数をセルの数値としたい
Excel(エクセル)
-
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
Excel で行を指定回数だけコピーしたい
Excel(エクセル)
-
-
4
エクセルで印刷部数をセルに表示させたい
その他(Microsoft Office)
-
5
Excel マクロ 選択セルの値の枚数印刷かつページ数をセルに表記
Excel(エクセル)
-
6
エクセル印刷時 一枚の書類に印刷枚数分の連続番号を振るには?
Excel(エクセル)
-
7
数字をカウントしながらエクセル印刷したい
Excel(エクセル)
-
8
Excelのマクロで印刷枚数をセルの値に設定していますがエラーになります。
Excel(エクセル)
-
9
エクセルでページ数をあるセルに表示させたい
Excel(エクセル)
-
10
excelで、空白を除いてデータを抽出する方法について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
PowerPointで表の1つの列だけ...
-
LOOKUP関数を使えばいいのでし...
-
エクセルで二つの数字の小さい...
-
エクセルの表から正の数、負の...
-
エクセル 文字数 多い順 並...
-
50人を数回、グループ分けする...
-
エクセルで最初のスペースまで...
-
重複行を削除して数値を合算し...
-
Excelで、A列にある文字がB列...
-
A,B,C3種類の文字で無限列を作る
-
VBAで文字列を数値に変換したい
-
エクセルで文字が混じった数字...
-
コミックマーケットについて
-
Excel元に戻す方法を教えてくだ...
-
エクセルで休日日数・連休日数...
-
VBAでセル入力の数式に変数を用...
-
エクセルで2列のセルを連続して...
-
エクセルマクロ:複数列 重複...
-
エクセルかグーグルスプレッド...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
エクセル 文字数 多い順 並...
-
EXCELで 一桁の数値を二桁に
-
エクセル 同じ値を探して隣の...
-
VBAで文字列を数値に変換したい
-
エクセルの並び変えで、空白セ...
-
Excelで半角の文字を含むセルを...
-
エクセルで文字が混じった数字...
-
Excel、市から登録している住所...
-
A列がない・・・A列が非表示に...
-
エクセルの表から正の数、負の...
-
[関数得意な方]教えて下さい・...
-
エクセルの項目軸を左寄せにしたい
-
エクセル 時間帯の重複の有無
-
Excelにてある膨大なデータを管...
おすすめ情報