[已解决]请大师帮帮忙，对你们来说小菜一碟

zld0807

如数据例那样，我想在E列编上序号，也就是查找A列中等于序号的单元格，查找到之后就开始计数，估计用do loop比较容易，我调试了一下，没实现，对这个do循环不太熟，请帮帮忙，谢谢。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-25 10:31

1. Sub 序号()
   
2.     Dim arr
   
3.     Dim lLastRow&
   
4.     Dim lCount&, i&
   
5.     lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
   
6.     Columns(5).ClearContents
   
7.     arr = Range("a1:e" & lLastRow)
   
8.     For i = LBound(arr) To UBound(arr)
   
9.         If arr(i, 1) = "序号" Then
   
10.         lCount = lCount + 1
    
11.         arr(i, 5) = lCount
    
12.         End If
    
13.     Next
    
14.     Range("a1").Resize(UBound(arr), UBound(arr, 2)).Value = arr
    
15.     MsgBox "OK", vbInformation + vbOKOnly
    
16. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 序号()
   
2.     Dim arr
   
3.     Dim lLastRow&
   
4.     Dim lCount&, i&
   
5.     lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
   
6.     Columns(5).ClearContents
   
7.     arr = Range("a1:e" & lLastRow)
   
8.     For i = LBound(arr) To UBound(arr)
   
9.         If arr(i, 1) = "序号" Then
   
10.         lCount = lCount + 1
    
11.         arr(i, 5) = lCount
    
12.         End If
    
13.     Next
    
14.     Range("a1").Resize(UBound(arr), UBound(arr, 2)).Value = arr
    
15.     MsgBox "OK", vbInformation + vbOKOnly
    
16. End Sub

复制代码

hwc2ycy

1. Sub 序号()
   
2.     Dim arr
   
3.     Dim lLastRow&
   
4.     Dim lCount&, i&
   
5.     On Error GoTo ErrorHandler
   
6. 
   
7.     Application.ScreenUpdating = False
   
8.     Application.DisplayAlerts = False
   
9.     Application.EnableEvents = False
   
10. 
    
11.     lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
    
12.     Columns(5).ClearContents
    
13.     arr = Range("a1:e" & lLastRow)
    
14.     Range("a1:e" & lLastRow).ClearContents
    
15.     For i = LBound(arr) To UBound(arr)
    
16.         If arr(i, 1) = "序号" Then
    
17.             lCount = lCount + 1
    
18.             arr(i, 5) = lCount
    
19.         End If
    
20.     Next
    
21.     Range("a1").Resize(UBound(arr), UBound(arr, 2)).Value = arr
    
22.     Application.ScreenUpdating = True
    
23.     Application.DisplayAlerts = True
    
24.     Application.EnableEvents = True
    
25.     MsgBox "OK", vbInformation + vbOKOnly
    
26.     Exit Sub
    
27. 
    
28. ErrorHandler:
    
29.     MsgBox Err.Number & vbCrLf & _
    
30.            Err.Description
    
31. 
    
32. End Sub

复制代码

zld0807

谢谢  这个就更完美了