[已解决]统计间隔单元格之间数字的数量

hhaa999

统计间隔单元格之间数字的数量

最佳答案

月排行榜 / 总排行榜

dsmch

2014-11-18 20:32

………………

跳转到最佳答案楼层

pengyx

解决没有,如解决了就不下附件了

hhaa999

下吧，没有解决呢！

pengyx

没完全理解，看看是不是你要的，不是就删了哈

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&, j%, p$$, s%, k%
   
3. arr = Range("a2").CurrentRegion
   
4. ReDim brr(1 To UBound(arr) - 1, 1 To 7)
   
5. For i = 2 To UBound(arr)
   
6.     brr(i - 1, 1) = arr(i, 1)
   
7.     p = "": s = 0: l = 2
   
8.     For j = 2 To UBound(arr, 2)
   
9.         If arr(i, j) <> "" Then s = s + 1
   
10.         p = p & arr(i, j) & ","
    
11.         If InStr(p, ",,,,") Or j = UBound(arr, 2) Then
    
12.             x = Split(p, ",")
    
13.             For k = j - UBound(x) + 1 To j
    
14.                 If arr(i, k) <> "" Then n = k - 1: Exit For
    
15.             Next
    
16.             brr(i - 1, l) = n
    
17.             brr(i - 1, l + 1) = s
    
18.             l = l + 2
    
19.             s = 0: p = ""
    
20.         End If
    
21.     Next
    
22. Next
    
23. Range("t2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
24. End Sub

复制代码

dsmch

………………