excel宏里如何利用if语句插入行？

经测试，下面的代码可用 Dim i As Long i = 3 Do If Cells(i, 5).Value <> Cells(i - 1, 5).Value And Cells(i, 5).Value <> 0 Then Rows(i).Insert shift:=xlDown i = i + 1 End If If Cells(i, 5) = 0 And i > Sheet1.UsedRange.Rows.Count Then Exit Do i = i + 1 Loop

顶一下

(0)

0%

踩一下

(0)

0%