練習問題14（行の挿入・削除の練習）解答

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

練習問題14（行の挿入・削除の練習）解答

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

マクロVBA練習問題

・区分がD の行を削除して下さい。
・区分がIの行の前に新規行を挿入して下さい。

練習問題用のExcelファイル

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

　Ａ　　Ｂ

区分	№
	1
D	2
I	3
	4
	5
D	6
D	7
	8
I	9
	10
D	11
I	12
	13
	14
I	15
I	16
	17
D	18
	19
	20

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

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

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

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

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

マクロ練習問題解答

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


  
    
      Sub 練習問題14()

      　　Dim i As Long

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

      　　　　Select Case Cells(i, 1)

      　　　　　　Case "I"

      　　　　　　　　Rows(i).Insert

      　　　　　　Case "D"

      　　　　　　　　Rows(i).Delete

      　　　　End Select

      　　Next

      End Sub

削除・挿入は後ろから！
これは鉄則として覚えて下さい
以下も参考にして下さい。

ExcelマクロVBA入門.第29回.セル・行・列の削除・挿入（Delete,Insert）

単一セルまたは複数セルの削除・挿入と行・列の削除・挿入についてのマクロVBAを解説します。単一セルまたは複数セルを指定しての行全体・列全体に対する削除・挿入と、行・列を指定しての削除・挿入は結果としては同じ事になりますが、マクロVBAの書き方には違いがあり、実際のVBAでは使い分けが必要になる場合があります。

同じテーマ「マクロ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練習問題解答
練習問題14（行の挿入・削除の練習）解答

このサイトがお役に立ちましたら「シェア」「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練習問題解答
練習問題14（行の挿入・削除の練習）解答