Excel表格网

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

166 2023-12-24 21:35 admin   手机版

经测试,下面的代码可用 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%
相关评论
我要评论
用户名: 验证码:点击我更换图片