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

ykqrs

1. 
   
2. Sub ch()
   
3. Dim i%, r%
   
4. r = Cells(Rows.Count, 3).End(xlUp).Row
   
5. For i = r To 3 Step -1
   
6. If Cells(i, 3) <> Cells(i - 1, 3) Then
   
7. Rows(i).Insert shift:=xlDown
   
8. End If
   
9. Next
   
10. End Sub

复制代码

只会插行

631262338

ykqrs 发表于 2015-3-24 10:48
只会插行

好的，谢谢！！

631262338

有大神懂吗！！请帮忙！！！谢谢！！

yjh_27

631262338 发表于 2015-3-24 12:23
有大神懂吗！！请帮忙！！！谢谢！！

参见附件。

631262338

yjh_27 发表于 2015-3-24 15:07
参见附件。

非常感谢大神！！！牛！！！感谢！！！