Question

excel vba如何将一个单元格里的不带分隔符的字符串拆分为单个的字母啊？

比如A列有许多不带分隔符的名字，我想按照每个单元格中单词的字母个数，拆分为单个的字母，不知道有没么办法没？split函数苦于没有分隔符，无法实现啊，跪求高手赐教，万分感谢。

Answer 1

选中A列，点 “数据”---分列----勾选“固定宽度”----下一步----在刻度尺上，每个刻度点一下，每个字母就会出现一个竖线----下一步---完成。就每个字母一列了。

Answer 2

Sub 拆分()
For i = 1 To [a65536].End(3).Row
    m = Len(Cells(i, 1))
    For k = 1 To m
        If Cells(i, 1) <> "" Then Cells(i, k + 1) = Mid(Cells(i, 1), k, 1)
    Next
Next
End Sub

Answer 3

用以下代码

Sub abc()
For n = 1 To ActiveSheet.UsedRange.Rows.Count
da = Range("A" & n).Value
For m = 1 To Len(da)
Cells(n, m + 1).Value = Mid(da, m, 1)
Next m
Next n
End Sub