総合練習問題3回答｜ExcelマクロVBA練習問題解答

最終更新日：2015-10-22

第30回.総合練習問題3回答

回答ページです、

以下の表で問題です、行の削除・挿入の問題です。

　　⇒　　

左の表から、偶数行を削除し、１行目に空行、A列に空列を挿入して下さい。

では、シンキングタイム

開始

・
・・
・・・
・・・・
・・・・・

はい、終了。

では、回答のマクロです。




Sub 練習1()
　　Dim i As Long
　　For i = Cells(Rows.Count, 1).End(xlUp).Row 
To 1 Step -2
　　　　Rows(i).Delete
　　Next 
i
　　Rows(1).Insert
　　Columns(1).Insert
End 
Sub

行削除を、下から行うのがミソです。

後は、一行置きなので、Step 2 になります。

もし、上からやろうとすると、ちょっとマクロが書きづらくなります。

こんな感じになります。




Sub 練習2()
　　Dim i As Long
　　i = 2
　　Do While Cells(i, 1) <> 
""
　　　　Rows(i).Delete
　　　　i = i + 
1
　　Loop
　　Rows(1).Insert
　　Columns(1).Insert
End 
Sub

最終行が、行削除で常に変わってしまうので、For～NextではなくDo～Loopで処理しています。

しかし、１行置きなのに、iのカウントアップが１づつである事は、少し理解しづらいです。

要は、行を削除した時点で、次行以降が上にシフトされるので、

そこをイメージして、マクロ作成できかだけなんですが。

行・列の削除・挿入は、下・右からやりましょう。