示例数据:
0102030405060708091011121314151617181920
我想这样做:(如果阅读10 sel auto enter)
0102030405(enter)
0607080910(enter)
1112131415(enter)
1617181920(enter)
nt:水平(每10个sel)到垂直
答案 0 :(得分:0)
从:
开始正在运行MAIN()
:
Public Function frag(s As String, N As Long)
Dim L As Long, K As Long
L = Len(s)
K = L / N
ReDim ary(1 To K)
For kk = 1 To K
ary(kk) = Mid(s, N * kk - (N - 1), N)
Next kk
frag = ary
End Function
Sub MAIN()
Dim st As String
Range("A1").NumberFormat = "@"
With Range("A1")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
End With
st = [A1]
arr = frag(st, 10)
[A1] = Join(arr, vbCrLf)
End Sub
将产生: