[已解决]excel vba 提取字符串

nsdyq

A列，输入的是学生的座号和成绩，已设成文本格式，
A               B            c
0110
1015
2080.5
现在B列要从A中提取出前面两位，作为座号，c列要从A中提取第三位开始到最后，作为成绩
我写的代码是
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i!
i = Range("a1").Value
Range("b1") = Left(i, 2)
Range("c1") = Mid(i, 3, 5)
End Sub
这个代码为什么当A为0110时，B提取的是11，C提取的是0而不是1和10

最佳答案

月排行榜 / 总排行榜

天天EP

2015-7-11 15:46

学习了

跳转到最佳答案楼层

qh8600

dim i as string
变量 i 要定义成字符串型
b1跟c1单元格格式设置为文本

天天EP

学习了

天天EP

晕
楼主你可能弄错了
不过,我还是自己写个,你可以参考一下
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Offset(0, 1) = Left(Target.Text, 2)
        Target.Offset(0, 2) = Mid(Target.Text, 3, 99)
    End If
End Sub
工作表事件