研究许久题还是用vba写不出来，谁会写

小丸子jun

帮我看看，这个应该怎么写，我研究许久还是用vba写不出来？

weiqigreen

没看懂里面的逻辑关系。

sieft

似乎不难，只要判断空格单元格是否连续即可。

小丸子jun

sieft 发表于 2017-8-9 15:25
似乎不难，只要判断空格单元格是否连续即可。

是的，我也是按照这样思路写，但就是写不对，您会写吗？方便写我学习下。

Chip_Kenny

try this:

1. <div class="blockcode"><blockquote>Sub zz()
   
2. Dim ar, a(), n
   
3. ar = [a2:l5].Value
   
4. For i = 1 To UBound(ar)
   
5.     ReDim a(UBound(ar, 2))
   
6.     For j = 1 To UBound(ar, 2)
   
7.         If Len(ar(i, j)) = 0 Then
   
8.             n = j
   
9.             Do While Len(ar(i, j)) = 0
   
10.                 a(n) = a(n) + 1: j = j + 1
    
11.             Loop
    
12.         End If
    
13.         a(0) = a(0) & a(n): n = j
    
14.     Next
    
15.     ar(i, 1) = a(0)
    
16. Next
    
17. [o2].Resize(UBound(ar)) = ar
    
18. End Sub

复制代码

小丸子jun

Chip_Kenny 发表于 2017-8-9 16:47
try this:

厉害，都用上数组了