请老师看看如果依据A列中的不重复值插入空行,谢谢

YANWEI82123300

请老师看看如果依据A列中的不重复值向下插入空行,谢谢

loirol

YANWEI82123300

loirol 发表于 2024-12-23 09:53

loirol老师黄色部分与上面是同一个值,请修改一下,在黄色部分往下插入行,谢谢

sj15627581616

YANWEI82123300 发表于 2024-12-23 10:04
loirol老师黄色部分与上面是同一个值,请修改一下,在黄色部分往下插入行,谢谢

把-1去掉，你这混到中级了，真就懒得一点代码基础都不学，一点点代码都不懂么

ykcbf1100

参与一下。。。

YANWEI82123300

sj15627581616 发表于 2024-12-23 10:20
把-1去掉，你这混到中级了，真就懒得一点代码基础都不学，一点点代码都不懂么

谢谢老师提醒,中级我是菜鸟混的,没有实力,致歉

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.12.23
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     For i = r To 3 Step -1
   
4.         Set Rng = Cells(i, 1)
   
5.         If Rng <> Rng.Offset(-1) Then
   
6.             Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   
7.         End If
   
8.     Next
   
9. End Sub
   
10. 
    

复制代码

YANWEI82123300

ykcbf1100 发表于 2024-12-23 10:26
参与一下。。。

ykcbf1100,谢谢老师帮助

YANWEI82123300

loirol 发表于 2024-12-23 09:53

谢谢老师帮助!