求当前间隔值

13790142239

求当前间隔值。麻烦大神们了。

chaohuahch

代码如下： 请测试，如果可以，请送几朵小花把

1. Sub jiange()
   
2. Dim arr, i%, j%, brr()
   
3. Dim sh As Worksheet
   
4. Application.ScreenUpdating = False
   
5. For Each sh In Worksheets
   
6.   If sh.Name <> "Sheet1" Then
   
7.        arr = sh.Range("a2").CurrentRegion
   
8.        ReDim brr(1 To UBound(arr))
   
9.            For i = UBound(arr) To 1 Step -1
   
10.                 If arr(i, 1) = 0 Or arr(i, 1) = " " Then
    
11.                    m = m + 1
    
12.                    brr(i) = ""
    
13.                 Else: brr(i) = m + 1: m = 0
    
14.                 End If
    
15.             Next i
    
16.    sh.Range("l1:l" & UBound(brr)).ClearContents
    
17.    sh.Range("l1:l" & UBound(brr)) = Application.WorksheetFunction.Transpose(brr)
    
18.   End If
    
19. Next
    
20.   
    
21. Application.ScreenUpdating = True
    
22. End Sub
    

复制代码