2023-09-21から1日間の記事一覧
今日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 とあるサイトの練習問題をや…
今日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 とあるサイトの練習問題をや…