用do....loop代碼會(huì)簡(jiǎn)單點(diǎn):
1,插入空行
Sub test()
Dim n%
Do
n = n + 1
Cells(n * 2, 1).EntireRow.Insert
Loop Until Cells(n * 2 - 1, 1).Value = ""
End Sub
2,刪除空行
Sub test1()
Dim n%
[a1].EntireRow.Insert
Do
n = n + 1
Cells(n, 1).EntireRow.Delete
Loop Until Cells(n, 1).Value = ""
End Sub
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任,
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。