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
晕
楼主你可能弄错了
不过,我还是自己写个,你可以参考一下
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
工作表事件