|
本帖最后由 laoau138 于 2017-5-3 21:35 编辑
VBA如何把一列数字分开
本帖最后由 france723 于 2017-5-3 20:13 编辑
- Sub aaa()
- Dim y, ar, i&, s, j&
- y = Range("a65536").End(3).Row
- ar = Range("a1:c" & y)
- For i = 1 To UBound(ar)
- n = 4
- s = Split(ar(i, 3), " ")
- For j = 0 To UBound(s)
- Cells(i, n).NumberFormatLocal = "00"
- Cells(i, n) = s(j)
- n = n + 1
- Next j
- Next i
- End Sub
复制代码
|
|