根据相同的值插入一行

zy19880405 · 发表于 2018-6-22 17:04

yylucke 发表于 2018-6-22 16:54
思路：
1、先对原始数据区排序
2、然后按照“不知道为什么”兄弟的办法插入行

那忽略掉空行应该怎么写入那个数值呢？？

璨若明珠 · 发表于 2018-6-22 17:57

Sub dd()
x = UsedRange.Rows.Count
a = 2
For i = 2 To x
If Cells(i, 2) <> "" And Cells(i, 2) <> Cells(i + 1, 2) And Cells(i + 1, 2) <> "" Or i = x Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(a, 1) & "-" & Right(Cells(i, 1), 2)
Cells(i + 1, 2) = Cells(i, 2)
i = i + 1
a = i + 1
End If
Next
End Sub

复制代码

你运行一下试试吧，我已经测试过了，你要把数据弄干净就可以实现的

zy19880405 · 发表于 2018-6-23 10:13

璨若明珠发表于 2018-6-22 17:57
你运行一下试试吧，我已经测试过了，你要把数据弄干净就可以实现的

您好，我试着运行你这个第二条就出问题了我不知道是什么原因调试对象什么的然后黄色的提示

zy19880405 · 发表于 2018-6-23 10:22

璨若明珠发表于 2018-6-22 17:57
你运行一下试试吧，我已经测试过了，你要把数据弄干净就可以实现的

这条就错误。。。

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

[求助] 根据相同的值插入一行