[已解决]多了一个序号，帮我改改，谢谢！

fangniuji

运行代码时，A38多了一个37序号，帮我改改，谢谢！A列正确如D列。

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-9-25 09:25

1. 
   
2. Sub Macro2()
   
3. 
   
4. For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row - 1
   
5.    
   
6.     Cells(i + 1, 1) = i
   
7. Next
   
8. 
   
9. 
   
10. End Sub

复制代码

跳转到最佳答案楼层

这儿有肥猫

1. 
   
2. Sub Macro2()
   
3. 
   
4. For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row - 1
   
5.    
   
6.     Cells(i + 1, 1) = i
   
7. Next
   
8. 
   
9. 
   
10. End Sub

复制代码