![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
くわしい方、よろしくお願いいたします。
<したいこと>
表1のようなデータがあるとします。これをD列の数字に応じて、表2のようにコピー行をその数字の数だけ作りたいのです。もちろん、手作業で「コピー→行挿入」を繰り返せばできますが、いかんせん実際はデータ量が多いため大変です。これを簡単に行う方法はないでしょうか。
表1
A列 B列 C列 D列
1 ポテト 120円 12/2 3
2 チョコ 150円 3/5 5
3 クッキー 200円 5/3 2
表2
A列 B列 C列 D列
1 ポテト 120円 12/2 3
2 ポテト 120円 12/2 3
3 ポテト 120円 12/2 3
4 チョコ 150円 3/5 5
5 チョコ 150円 3/5 5
6 チョコ 150円 3/5 5
7 チョコ 150円 3/5 5
8 チョコ 150円 3/5 5
9 クッキー 200円 5/3 2
10 クッキー 200円 5/3 2
シートは別に作成されると、なおよいです。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんばんは!
一例です。
Sheet1のデータをSheet2に表示するとします。
尚、1行目は項目行で、データは2行目以降にあるとします。
標準モジュールです。
Sub Sample1()
Dim i As Long, wS As Worksheet
Set wS = Worksheets("Sheet1")
With Worksheets("Sheet2")
.Cells.ClearContents
wS.Range("A1").Resize(, 4).Copy .Range("A1")
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
With .Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(wS.Cells(i, "D"))
.Value = wS.Cells(i, "A")
.Offset(, 1) = wS.Cells(i, "B")
.Offset(, 2) = wS.Cells(i, "C")
.Offset(, 3) = wS.Cells(i, "D")
End With
Next i
End With
End Sub
※ Sheet2のC列表示形式は日付にしておいてください。m(_ _)m
ありがとうございました。
1さんとはまた違うコードで、こちらはシート2に転写される形式。
こちらも要求通りのことが瞬間でできました。
本当に助かりました。
No.1
- 回答日時:
VBAの力が必要になりますが、大丈夫でしょうか
表1が シート名 Sheet1だとして
Sub ボタン1_Click()
For i = 2 To Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
For j = 1 To Sheets("Sheet1").Range("D" & i).Value
GYOU = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & GYOU & ":C" & GYOU).Value = Sheets("Sheet1").Range("A" & i & ":C" & i).Value
Next
Next
End Sub
別シートで実行してみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Googleスプレッドシートで、あるセルの値に応じて行を自動挿入したい 急いでいます! くわしい方、 3 2023/03/06 19:05
- Excel(エクセル) エクセルで2つの表を比較して、文字列が同じだが、その行のある値が違うものを抽出したい 1 2022/10/06 21:48
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- Excel(エクセル) Excelの文字列を数字に変換する方法について 6 2023/07/31 21:18
- 病院・検査 薬局はどうやって儲けてるんですか? 製薬企業が100円でA薬を作る→卸に150円で売る→卸は200円 2 2022/06/18 16:43
- C言語・C++・C# C言語初心者です、、、お助けください 2 2023/03/14 20:08
- 預金・貯金 夫婦における奨学金の返済負担割合について 11 2022/06/26 21:33
- レシピ・食事 今日作った料理は、いくらぐらいで作りましたか? ちなみに、僕が今夜作った料理は「120円〜150円」 3 2022/05/28 00:04
- 減税・節税 妻の年収を最もお得にするには!! 3 2022/06/05 19:22
- Excel(エクセル) Googleスプレッドシートの割合の関数と円グラフの並べ替えについて 1 2022/07/22 17:31
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
エクセルでセルの値分の個数の文字列を自動で入れたい
Excel(エクセル)
-
特定の条件の時に行を挿入したい
Excel(エクセル)
-
excelで、セル内に文字が入力される毎に行が自動挿入される仕組みを作りたいのですが…
Excel(エクセル)
-
-
4
エクセルで表示された値だけ行数をコピーし挿入、挿入行の指定したセルに連続した値を表示できますか?
Excel(エクセル)
-
5
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
6
excelで任意のセルを指定回数コピーペーストする方法を教えてください
Excel(エクセル)
-
7
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
8
Excelに自動で行の増減をしたいです。
Excel(エクセル)
-
9
特定のセルにある数のぶんだけ、自動で列をふやしたい
Excel(エクセル)
-
10
特定文字のある行の前に空白行を挿入したい
その他(Microsoft Office)
-
11
Excelで行ごとコピー、同じ行を3行にしたい
Excel(エクセル)
-
12
【VBA】【マクロ】 指定の条件で、空白の行を挿入
Excel(エクセル)
-
13
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
14
Excel で行を指定回数だけコピーしたい
Excel(エクセル)
-
15
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
16
エクセルでセルの条件が一致したら、値を挿入したい
Excel(エクセル)
-
17
エクセルVBA、特定条件で行を追加
Visual Basic(VBA)
-
18
VBAで条件が一致する行をコピーしその1つ下へ挿入
Excel(エクセル)
-
19
【エクセル関数】参照するセルを一定数ずつ増やす
Excel(エクセル)
-
20
エクセルのVBAで指定した行数の追加と数式のコピー方法をご教示いただけますか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
URLのリンク切れをマクロを使っ...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
Worksheets メソッドは失敗しま...
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
エクセル 2つの表の並べ替え
-
VBA 何かしら文字が入っていたら
-
VBAを使って検索したセルをコピ...
-
オートフィルタをマクロで作成...
-
Changeイベントでの複数セルの...
-
複数csvを横に追加していくマク...
-
VBAで、離れた複数の列に対して...
-
データグリッドビューの一番最...
-
エクセル アクティブセルから...
-
SUM関数の範囲を変数を代入して...
-
VBAで指定範囲内の空白セルを左...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Cellsのかっこの中はどっちが行...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
VBAで指定範囲内の空白セルを左...
-
【Excel VBA】 B列に特定の文字...
-
VBAを使って検索したセルをコピ...
-
VBAで、特定の文字より後を削除...
-
エクセル 2つの表の並べ替え
-
データグリッドビューの一番最...
-
rowsとcolsの意味
-
VBAでのリスト不一致抽出について
おすすめ情報
回答ありがとうございます。さっそく試してみたいと思います。
ただ、時間がかかりそうです。
もし、よろしければ、エクセルを開いたところからの手順を全く1から指示して頂けないでしょうか。
ご検討よろしくお願いいたします。