練習問題22（総合練習4）解答

公開日：2013年5月以前　最終更新日：2019-11-03

練習問題22（総合練習4）解答

マクロVBA練習問題22の解答ページです。

マクロVBA練習問題

・シート「練習22」では、各伝票の1行から6行が横に並んでいます。
　これを、
　シート「練習22_回答」を新規追加し、各伝票の行を縦に並べて下さい。

つまり、伝票の明細行が横になっているものを、縦に変換するということです。

※下の二つ目の表は結果のサンプルです。

練習問題用のExcelファイル

こちらからダウンロードできます。zipはこちらです。

シート「練習22」

Ａ	Ｂ	Ｃ	Ｄ	Ｅ	Ｆ	Ｇ	Ｈ	Ｊ	Ｋ	Ｌ	Ｍ	Ｎ	Ｏ	Ｑ	Ｒ	Ｓ	Ｔ	Ｕ
伝票番号	商品1	数量1	単価1	商品2	数量2	単価2	商品3	数量3	単価3	商品4	数量4	単価4	商品5	数量5	単価5	商品6	数量6	単価6
1	バジル	9	254	イタリアンパセリ	10	56	セルフィーユ	11	158
2	スペアミント	5	230	オレガノ	12	237	ローズマリー	10	297	タイム	1	204	セージ	2	180	ディル	11	277
3	タラゴン	12	266	木の芽	12	269	エシャレット	5	232
4	小菊	9	89
5	穂じそ	7	185	紅たて	16	182	アンティーブ（チコリ）	1	171	辛味大根	16	186
6	トレビス	7	294	ししとう	5	117	にんにく	15	248
7	プチニンニク	16	223	にんにく	17	258
8	黄金の里生姜	9	191	ぎんなん	10	90	ゆりね	8	135	にんにくのめ	5	138
9	近江生姜	10	297	大葉	16	104	みょうが	17	199
10	ゆず	3	129	すだち	12	177	かぼす	4	137	サンチエ（パオ菜）	18	185	パセリ	13	283

シート「練習22_回答」
　　Ａ　　　　　　Ｂ　　　　　　　　　Ｃ　　　Ｄ

伝票番号	商品	数量	単価
1	バジル	9	254
1	イタリアンパセリ	10	56
1	セルフィーユ	11	158
2	スペアミント	5	230
2	オレガノ	12	237

※上記表の全体を選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

では、お考えください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

この「VBA入門」シリーズは、マクロVBAを習得し、日々のExcel作業を効率化・自動化できるようになることを目指します。VBAが初めての方でも無理なくステップアップできるよう、基礎から丁寧に、そして段階的に解説を進めます。そのため、シリーズ後半では入門レベルに留まらず、実務レベルで通用する高度なテクニックや幅広い知…

書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。

マクロVBA練習問題解答

では解答のマクロVBAコードです。
※.Valueは適宜省略しています。


  
    
      Sub 練習問題22()

      　　Dim i As Long

      　　Dim j As Long

      　　Dim ix As Long

      　　Dim ws1 As Worksheet

      　　Dim ws2 As Worksheet

      　　'シート追加

      　　Application.DisplayAlerts = False

      　　For Each ws2 In Worksheets

      　　　　If ws2.Name = "練習22_回答" Then

      　　　　　　ws2.Delete

      　　　　　　Exit For

      　　　　End If

      　　Next

      　　Application.DisplayAlerts = True

      　　'初期設定

      　　Set ws1 = Worksheets("練習22")

      　　Set ws2 = Worksheets.Add(After:=ws1)

      　　With ws2

      　　　　.Name = "練習22_回答"

      　　　　.Cells(1, 1) = "伝票番号"

      　　　　.Cells(1, 2) = "商品"

      　　　　.Cells(1, 3) = "数量"

      　　　　.Cells(1, 4) = "単価"

      　　End With

      　　ix = 2

      　　'横→縦

      　　With ws1

      　　　　For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row

      　　　　　　j = 2

      　　　　　　Do Until .Cells(i, j) = ""

      　　　　　　　　ws2.Cells(ix, 1) = .Cells(i, 1)

      　　　　　　　　ws2.Cells(ix, 2) = .Cells(i, j)

      　　　　　　　　ws2.Cells(ix, 3) = .Cells(i, j + 1)

      　　　　　　　　ws2.Cells(ix, 4) = .Cells(i, j + 2)

      　　　　　　　　ix = ix + 1

      　　　　　　　　j = j + 3

      　　　　　　Loop

      　　　　Next

      　　End With

      End Sub

決して難しい処理ではないし、わりと良くある処理です。
２つのシートを扱うので、各シートの行数を表す変数の管理が重要です。
シートの削除・追加は、定型文として覚えてしまいましょう。

同じテーマ「マクロVBA練習問題解答」の記事

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.条件分岐（Select Case）｜VBA入門

ホーム
マクロVBA入門編
マクロVBA練習問題解答
練習問題22（総合練習4）解答

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBA練習問題解答
練習問題22（総合練習4）解答