急急急！请高手帮忙在数据排序和插空行！！！求助！感谢！

631262338

需求1、C列中不同内容间插入一空行，相同内容间不需要插入空行，形成一个组别

需求2.分完列后每个组别需要排序，排序规则为3列相同的放在该组的最后，然后在该组别中找第二列和它（3列相同）第一列相同的放在其上面，如此类推

原数据：

Prime  part	Replacement Prime	Top successor
41515	41517	41517
922211142	922211142	922211142
00908-01  B0	00908-01 B0	00908-01 B0
01/KRC118114/4718	01/KRC118114/4718 R1A	01/KRC118114/4718 R1A
01/KRC118114/4718  R1A	01/KRC118114/4718 R1A	01/KRC118114/4718 R1A
01/KRC118114/4719	01/KRC118114/4719 R1A	01/KRC118114/4719 R1A
01/KRC118114/4719  R1A	01/KRC118114/4719 R1A	01/KRC118114/4719 R1A
1/BFL901009/1	1/BFL901009/1 R1B	NTK102243/1 R1C
1/BFL901009/1  R1B	1/BFL901009/1 R2D	NTK102243/1 R1C
1/BFL901009/1  R2D	1/BFL901009/1 R3C	NTK102243/1 R1C
1/BFL901009/1  R3C	NTM1011906/1	NTK102243/1 R1C
NTK102243/1	NTK102243/1 R1C	NTK102243/1 R1C
NTK102243/1  R1C	NTK102243/1 R1C	NTK102243/1 R1C
NTM1011906/1	NTM1011906/1 R1A	NTK102243/1 R1C
NTM1011906/1  R1A	NTM1011906/1 R2B	NTK102243/1 R1C
NTM1011906/1  R2B	NTM1011906/1 R3B	NTK102243/1 R1C
NTM1011906/1  R3B	NTK102243/1	NTK102243/1 R1C

需要得出的结果

Prime  part	Replacement Prime	Top successor
41515	41517	41517
922211142	922211142	922211142
00908-01  B0	00908-01 B0	00908-01 B0
01/KRC118114/4718	01/KRC118114/4718 R1A	01/KRC118114/4718 R1A
01/KRC118114/4718  R1A	01/KRC118114/4718 R1A	01/KRC118114/4718 R1A
01/KRC118114/4719	01/KRC118114/4719 R1A	01/KRC118114/4719 R1A
01/KRC118114/4719  R1A	01/KRC118114/4719 R1A	01/KRC118114/4719 R1A
1/BFL901009/1	1/BFL901009/1 R1B	NTK102243/1 R1C
1/BFL901009/1  R1B	1/BFL901009/1 R2D	NTK102243/1 R1C
1/BFL901009/1  R2D	1/BFL901009/1 R3C	NTK102243/1 R1C
1/BFL901009/1  R3C	NTM1011906/1	NTK102243/1 R1C
NTM1011906/1	NTM1011906/1 R1A	NTK102243/1 R1C
NTM1011906/1  R1A	NTM1011906/1 R2B	NTK102243/1 R1C
NTM1011906/1  R2B	NTM1011906/1 R3B	NTK102243/1 R1C
NTM1011906/1  R3B	NTK102243/1	NTK102243/1 R1C
NTK102243/1	NTK102243/1 R1C	NTK102243/1 R1C
NTK102243/1  R1C	NTK102243/1 R1C	NTK102243/1 R1C

可以查看附件。

ykqrs

占位学习，插行容易，三列一样的排后不会

XUYUJING2007

Sub aa()
Dim a As Integer
For a = [c65536].End(3).Row To 3 Step -1
If Cells(a, 3) <> Cells(a - 1, 3) Then
Range("c" & a).Insert shift:=xlDown
End If
Next
End Sub

631262338

XUYUJING2007 发表于 2015-3-24 09:24
Sub aa()
Dim a As Integer
For a = [c65536].End(3).Row To 3 Step -1

这个不行哦，AB列没跟着下去，只有C列按不同内容插了空行，AB列没有任何变化。

631262338

请高手，帮忙解决！！！

XUYUJING2007

Sub aa()
Dim a As Integer, B As Integer
For B = 3 To 1 Step -1
For a = [c65536].End(3).Row To 3 Step -1
If Cells(a, B) <> Cells(a - 1, B) Then
Cells(a, B).Insert shift:=xlDown
End If
Next
Next
End Sub

yjh_27

需求2 参见

BOM 大纲排序-自定义函数
http://club.excelhome.net/thread-1175717-1-1.html

631262338

XUYUJING2007 发表于 2015-3-24 10:10
Sub aa()
Dim a As Integer, B As Integer
For B = 3 To 1 Step -1

还是不行，得出来的结果是这样：

Prime  part	Replacement  Prime	Top  successor
41515	41517	41517
922211142	922211142	922211142
00908-01 B0	00908-01 B0	00908-01 B0
01/KRC118114/4718	01/KRC118114/4718 R1A	01/KRC118114/4718 R1A
	01/KRC118114/4718 R1A	01/KRC118114/4718 R1A
01/KRC118114/4718 R1A
	01/KRC118114/4719 R1A	01/KRC118114/4719 R1A
01/KRC118114/4719	01/KRC118114/4719 R1A	01/KRC118114/4719 R1A
01/KRC118114/4719 R1A	1/BFL901009/1 R1B	NTK102243/1 R1C
		NTK102243/1 R1C
1/BFL901009/1	1/BFL901009/1 R2D	NTK102243/1 R1C
		NTK102243/1 R1C
1/BFL901009/1 R1B	1/BFL901009/1 R3C	NTK102243/1 R1C
		NTK102243/1 R1C
1/BFL901009/1 R2D	NTM1011906/1	NTK102243/1 R1C
		NTK102243/1 R1C
1/BFL901009/1 R3C	NTK102243/1 R1C	NTK102243/1 R1C
	NTK102243/1 R1C	NTK102243/1 R1C
NTK102243/1
	NTM1011906/1 R1A
NTK102243/1 R1C
	NTM1011906/1 R2B
NTM1011906/1
	NTM1011906/1 R3B
NTM1011906/1 R1A
	NTK102243/1
NTM1011906/1 R2B
NTM1011906/1 R3B

631262338

大神，请帮忙写一下，急用！！！

631262338

大神们，帮忙解决一下！！急用！！！