[已解决]VBA如何加一个数组crr 一次输出结果到DE列

laoau138

VBA如何加一个数组crr   一次输出结果到DE列


Sub test()
    Dim i&, arr, brr(1 To 5, 1 To 2)
    arr = [a1].CurrentRegion.Value
    k = 1
    For i = 1 To UBound(arr)
        ss = Split(arr(i, 1), "|")
        For j = 0 To UBound(ss)
            brr(j + 1, 1) = Mid(ss(j), 1, 1)
            brr(j + 1, 2) = Mid(ss(j), 2, 1)
        Next
        Cells(k, 4).Resize(5, 2) = brr
        k = k + 6
        Erase brr
    Next
End Sub


'里面有代码
'如何把brr数组每一组 分别存入一个大数组crr
  '一次输出结果到DE列

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-26 09:58

1. Sub test()
   
2.     Dim i&, arr, crr, r&, ss
   
3.     arr = [a1].CurrentRegion.Value
   
4.     ReDim crr(1 To UBound(arr) * 6 - 1, 1 To 2)
   
5.     For i = 1 To UBound(arr)
   
6.         ss = Split(arr(i, 1), "|")
   
7.         For j = 0 To UBound(ss)
   
8.             r = r + 1
   
9.             crr(r, 1) = Mid(ss(j), 1, 1)
   
10.             crr(r, 2) = Mid(ss(j), 2, 1)
    
11.         Next
    
12.         r = r + 1
    
13.     Next
    
14.     [d1].Resize(UBound(crr), 2) = crr
    
15. End Sub

复制代码

跳转到最佳答案楼层

xyzxyz07

        For j = 0 To UBound(ss)
            k = k + 1
            brr(k, 1) = Mid(ss(j), 1, 1)
            brr(k, 2) = Mid(ss(j), 2, 1)
        Next

laoau138

xyzxyz07 发表于 2017-6-25 20:23
For j = 0 To UBound(ss)
            k = k + 1
            brr(k, 1) = Mid(ss(j), 1, 1)

请写完整答案

xyzxyz07

Sub test()
    Dim i&, arr, brr()
    arr = [a1].CurrentRegion.Value
    k = 0
    x = Range("A65536").End(xlUp).Row
    ReDim brr(1 To 6 * x, 1 To 2)
    For i = 1 To UBound(arr)
        ss = Split(arr(i, 1), "|")
        
        For j = 0 To UBound(ss)
            k = k + 1
            brr(k, 1) = Mid(ss(j), 1, 1)
            brr(k, 2) = Mid(ss(j), 2, 1)
        Next
        k = k + 1
    Next
    Cells(1, 16).Resize(k, 2) = brr
End Sub

大灰狼1976

1. Sub test()
   
2.     Dim i&, arr, crr, r&, ss
   
3.     arr = [a1].CurrentRegion.Value
   
4.     ReDim crr(1 To UBound(arr) * 6 - 1, 1 To 2)
   
5.     For i = 1 To UBound(arr)
   
6.         ss = Split(arr(i, 1), "|")
   
7.         For j = 0 To UBound(ss)
   
8.             r = r + 1
   
9.             crr(r, 1) = Mid(ss(j), 1, 1)
   
10.             crr(r, 2) = Mid(ss(j), 2, 1)
    
11.         Next
    
12.         r = r + 1
    
13.     Next
    
14.     [d1].Resize(UBound(crr), 2) = crr
    
15. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-6-26 09:58

VBA用数组随机随机  有什么问题


http://www.excelpx.com/thread-431468-1-1.html