今日VBAで以下のコードを書いた。 Sub test1() Dim i As Integer i = Cells(Rows.Count, 1).End(xlUp).Row Do While i > 0 If i Mod 2 = 0 Then Rows(i).Delete End If i = i - 1 Loop Rows(1).Insert Columns(1).InsertEnd Sub とあるサイトの練習問題をやろうと思って書いてみたけど、今まで知らなかった事に気付いた。 「Do Until i <= 0」と「Do While i > 0」は同じ意味らしい。 「Do While i > …