数据自动插入行并加入字符

lwxandy · 发表于 2018-6-22 13:25

数据是1-1、2-1、3-1.。。。。。一直往下排序，自动从1-最后一个数据和2-1分开，并插入2行，并在后面加入一个字符C，请高手指导！！！！！！

lwxandy · 发表于 2018-6-22 13:26

请高手指导

lwxandy · 发表于 2018-6-22 13:39

请高手指导

liulang0808 · 发表于 2018-6-22 13:56

Sub 按钮1_Click()
Application.ScreenUpdating = False
r = Cells(Rows.Count, 1).End(3).Row
Cells(r + 1, "g") = "c"
For j = Cells(Rows.Count, 1).End(3).Row To 3 Step -1
If Right(Cells(j, 1), 1) & "" = "1" And (Not Left(Right(Cells(j, 1), 2), 1) Like "[0-9]") Then
Rows(j).Insert
Rows(j).Insert
Cells(j, "g") = "c"
End If
Next j
Application.ScreenUpdating = True
End Sub

复制代码

liulang0808 · 发表于 2018-6-22 13:57

附近内容供参考。。。。。。

lwxandy · 发表于 2018-6-22 14:10

请高手指导

lwxandy · 发表于 2018-6-22 14:21

请高手指导

lwxandy · 发表于 2018-6-22 14:37

谢谢，确实可以，很实用

		自动登录	找回密码
密码			免费注册

[求助] 数据自动插入行并加入字符