怎么截取字符_VBA

如何截取字符
在excel中的单元格中（如第２行第２列）数值为0.5，请问如何读取0和５分别放在第3行第２列和第4行第２列

------解决方案--------------------------------------------------------
第3行第２列

=INT(A1)

第4行第２列

=MID(A1-INT(A1),3,100000)
------解决方案--------------------------------------------------------

VB code

    Dim a As String '要拆分的字符串    a = "0.5"    Dim bArray() As String'存放拆分开字符串数组    bArray = Split(a, ".")'进行拆分
------解决方案--------------------------------------------------------
VB codeSub t()Dim a As String '要拆分的字符串    a = "1.0"    Dim bArray() As String '存放拆分开字符串数组    bArray = Split(a, ".", -1) '进行拆分    Debug.Print bArray(0)    Debug.Print bArray(1)End Sub