列中不同数值之间自动插入行，相同值中不插入行

syhhh888 · 发表于 2011-8-18 15:29

本帖最后由 syhhh888 于 2011-8-18 15:33 编辑

各位老师，我这里有个问题想请教下，望不吝赐教，谢谢啦

2.zip (5.45 KB, 下载次数: 24)

附件中sheet"求助"中为原文本，需要根据B列中的字符串判断是否需要插入空行

如B列中，第1-7个字符串不同，则需要在中间各插入一个空行

而第8-9个字符串是相同的，只需要在第9个字符串下面加一个空行即可，第10与第11个字符串相同，在第11个字符串下面加入一个空行

例：原文本

1	2011012747
2	2011013000
3	2011013115
4	2011013842
5	2011014038
6	2011014069
7	2011014666
8	2011014868
9	2011014868
10	2011015773
11	2011015773

需求文本

1	2011012747

2	2011013000

3	2011013115

4	2011013842

5	2011014038

6	2011014069

7	2011014666

8	2011014868
9	2011014868

10	2011015773
11	2011015773

以此类推，实现sheet“需求文本”中的格式，详情见附件

希望哪位老师能抽出点时间，帮助我完成这个功能，十分感谢！

syhhh888 · 发表于 2011-8-18 16:02

请问有没有哪位老师可以帮忙指教下啊？谢谢了

yaozong · 发表于 2011-8-18 22:06

syhhh888 发表于 2011-8-18 16:02
请问有没有哪位老师可以帮忙指教下啊？谢谢了

Sub aaa()
Dim i%
Sheet1.Activate
For i = Range("b65536").End(xlUp).Row + 1 To 4 Step -1
If Cells(i, 2) <> Cells(i - 1, 2) Then
Cells(i, 1).Resize(1, 2).Insert Shift:=xlDown
End If
Next
End Sub

longming3 · 发表于 2011-8-18 22:17

判断上下两行相等就不插入，不相等就插入一整行也行
For i = [b65536].End(3).Row To 3 Step -1
If Cells(i, 2) <> Cells(i + 1, 2) Then Rows(i + 1).Insert
Next

longming3 · 发表于 2011-8-18 22:20

i = [b65536].End(3).Row-1 To 3 Step -1
就和你的要求一样了

syhhh888 · 发表于 2011-8-19 09:40

longming3 发表于 2011-8-18 22:20
i = .End(3).Row-1 To 3 Step -1
就和你的要求一样了

这个完整的语句是什么呀？用4楼的回复就可以实现了，可是时间好像比较长，不知道是否可以优化下呢？
谢谢老师指导

荀小沼 · 发表于 2024-10-31 09:57

longming3 发表于 2011-8-18 22:17
判断上下两行相等就不插入，不相等就插入一整行也行
For i = .End(3).Row To 3 Step -1
If Cells(i, ...

你好，我想请问一下i为什么是to 3，这句话的意思是i的值是从最后一行有数值的值到第三行吗

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

[求助] 列中不同数值之间自动插入行，相同值中不插入行