練習問題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入門」シリーズは、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.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.変数宣言のDimとデータ型｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ひらがな⇔カタカナの変換｜エクセル基本操作
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
10.条件分岐（Select Case）｜VBA入門

ホーム
マクロVBA入門編
マクロVBA練習問題解答
練習問題14（行の挿入・削除の練習）解答

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

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

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