ASCII码

标签：sheet   string   comm   vat   str   long   for   command   end   

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

ASCII码

标签：sheet   string   comm   vat   str   long   for   command   end   

原文地址：https://www.cnblogs.com/bignine/p/10091018.html