本帖最后由 benhsu 于 2022-7-5 10:30 编辑
不写VBA,只要把文字的方向变成竖(0度),调整行高即可实现了
Sub test()
len1 = Len(Range("A2"))
t1 = IIf((len1 Mod 10) = 0, Int(len1 / 10), Int(len1 / 10) + 1)
text1 = ""
For j = 1 To 10
For i = t1 - 1 To 0 Step -1
text1 = text1 & IIf(Mid(Range("A2"), (j + i * 10), 1) = "", " ", Mid(Range("A2"), (j + i * 10), 1))
Next i
text1 = text1 & Chr(10)
Next j
Range("B2") = text1
End Sub