Excel総合相談所 147

[0055 名無しさん＠そうだ選挙にいこう 2021/12/09(木) 03:09:49.58]

>>51
Sub Macro2()
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 最終行 + 1 Step 2
Cells(i, 1).Rows.Group
Next
End Sub