大家真是太强大了
那么我把我最后使用的方法也跟大家分享一下啦!
'''Function GeShiHua(St As String) As String
'''
Dim Str1 As String, Str2 As String, Str3 As String
'''
'''
If Len(St) > 8 Then
'''
GeShiHua = ""
'''
Exit Function
'''
End If
'''
Str1 = "00000000"
'''
Str2 = Left(Str1, 8 - Len(St)) & St
'''
For i = 1 To 8 Step 2
'''
Str3 = Str3 & Mid(Str2, i, 2) & " "
'''
Next
'''
GeShiHua = Trim(Str3)
'''End Function