Private Sub CommandButton1_Click()
Dim s, str As String
Dim i, j, k As Long
s = Trim(Sheet1.Cells(1, 1))
str = ""
For i = 1 To Len(s)
str = str & Asc(Mid(s, i, 1)) & ","
Next i
Sheet1.Cells(2, 1) = str
End Sub
原文：https://www.cnblogs.com/bignine/p/10091018.html