EXCEL中隔行插入一行

运行宏，25是代表有数据的行数，可以更改Sub InsertRow()n = 1 For i = 1 To 25 If Cells(i + n, 1) "" Then Cells(i + n, 1).Select Selection.EntireRow.Insert n = n + 1 End If NextEnd Sub