[已解决]重新排序一下，谢谢！！！

fangniuji

拜托大家写一个VBa，F2以下有几个数据格子，然后按顺序重新排序一下，结果如G列，谢谢！！谢谢！！

最佳答案

月排行榜 / 总排行榜

银鱼

2012-8-22 12:05

1. 
   
2. Sub paixu()
   
3.     Dim i, j As Integer
   
4.     For i = 2 To Sheets("sheet2").[f65536].End(xlUp).Row
   
5.         If Cells(i, "f") <> "" Then
   
6.             j = j + 1
   
7.             Cells(i, "g") = j
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

不知道符不符合你要求

跳转到最佳答案楼层

银鱼

1. 
   
2. Sub paixu()
   
3.     Dim i, j As Integer
   
4.     For i = 2 To Sheets("sheet2").[f65536].End(xlUp).Row
   
5.         If Cells(i, "f") <> "" Then
   
6.             j = j + 1
   
7.             Cells(i, "g") = j
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

不知道符不符合你要求

从从容容

算了，不知道这样为什么用来做这个。就一个填充序号。

fangniuji

从从容容 发表于 2012-8-22 12:38
算了，不知道这样为什么用来做这个。就一个填充序号。

谢谢！！！！！谢谢！！！