[已解决]另类转换有合并单元的情况

张雄友

xdragon 发表于 2014-8-10 13:51
你也别把代码改的面目全非吧。。。控制循环的step都被你删掉了。。。。还有你的if判断语句放到for j=1 t ...

我习惯用 brr,arr, 不用cnt .

张雄友

xdragon 发表于 2014-8-10 13:51
你也别把代码改的面目全非吧。。。控制循环的step都被你删掉了。。。。还有你的if判断语句放到for j=1 t ...

不用 step  能否继续OK？

xdragon

张雄友 发表于 2014-8-10 13:58
不用 step  能否继续OK？

不用step会多出判断环节，比如 if len(arr(i,1)) then

张雄友

xdragon 发表于 2014-8-10 14:03
不用step会多出判断环节，比如 if len(arr(i,1)) then

这样？

1. Sub xdragon()
   
2. TT = Timer
   
3. Dim arr, i&, j&, m&
   
4. arr = [A1].CurrentRegion
   
5. ReDim brr(1 To UBound(arr) * UBound(arr, 2), 1 To 4)
   
6. For i = 2 To UBound(arr)
   
7. If Len(arr(i, 1)) Then
   
8.       For j = 2 To UBound(arr, 2)
   
9.          If Len(arr(i, j)) Then
   
10.          m = m + 1
    
11.          brr(m, 1) = arr(1, j)
    
12.          brr(m, 2) = arr(i, 1)
    
13.          brr(m, 3) = arr(i, j)
    
14.          brr(m, 4) = arr(i + 1, j)
    
15.          End If
    
16.       Next
    
17.    End If
    
18. Next
    
19. [Y:AB].ClearContents
    
20. '[O2].Resize(m, 4) = brr
    
21. [Y2].Resize(UBound(brr), UBound(brr, 2)) = brr
    
22. MsgBox "用时" & Format(Timer - TT, "0.00") & "秒"
    
23. End Sub
    

复制代码