|
发表于 2014-4-8 22:42
|
显示全部楼层
本楼为最佳答案
Sub Macro1()
Dim arr, brr, i&, j%
arr = Range("a1:b" & Range("a65536").End(xlUp).Row)
x = [c1]
ReDim brr(1 To UBound(arr), 1 To 6)
For i = 1 To UBound(arr)
brr(i, 1) = arr(i, 1)
brr(i, 6) = arr(i, 2)
For j = 1 To Len(x)
brr(i, j + 1) = Mid(arr(i, 2), Mid(x, j, 1), 1)
Next
Next
Sheet2.Activate
Range("a2").Resize(UBound(brr), 6) = brr
End Sub
|
|