Excel VBA 如何将单词拆分为单个字母？

函数

=if(COLUMN)A1)>LEN($A$1),"",MID($A$1,COLUMN(A1),1))

右拉

Sub 拆分()

Dim X

X = Len([A1])

For I = 1 To X

Cells(2, I) = Mid([A1], I, 1)

Next

End Sub