[已解决]我的本地窗口打不开了

zld0807

就是判断序号，如果A1等于“序号”，那么L1等于1.然后继续往后判断，再次出现“序号”，则相应的L列计数为2.

zld0807

举例：也就是说判断A列中的值是否为”序号“，如果是，则开始计数在L列中，最开始计数时值为1，判断完好用do循环继续判断，再次出现的时候把原来的值加1，请老师帮帮改改。

hwc2ycy

1. Sub test()
   
2.     Dim M, X
   
3.     M = 0
   
4.     X = 1
   
5.     Do While X < Range("A65535").End(xlUp).Row
   
6.         If Range("A" & X) = Range("A5") Then
   
7.             Range("J" & X) = M + 1
   
8.             M = M + 1
   
9.         End If
   
10.         X = X + 1
    
11.     Loop
    
12. End Sub

复制代码

zld0807

再次谢谢老师，这正是我想要的，学习了。