- Sub Macro1()
- Dim arr, i&, j%, k%, zf$, p$
- arr = [x2:ad4]
- For i = 1 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- zf = Replace(arr(i, j), " ", "")
- p = ""
- For k = 1 To Len(zf) - 2 Step 3
- p = p & " " & Mid(zf, k, 3)
- Next
- arr(i, j) = Mid(p, 2)
- Next
- Next
- Range("bo2").Resize(UBound(arr), UBound(arr, 2)) = arr
- End Sub
复制代码 |