Question

vba函数提示数组下标越界

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s() As String
s = Split(Cells(Target.Row, Target.Column), ".")
Cells(Target.Row, Target.Column) = s(1)
End Sub
输入字符串时 提示下标越界（输入没问题的）

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s() As String
If InStr(s, ".") <> 0 Then
s = Split(Cells(Target.Row, Target.Column), ".")
Cells(Target.Row, Target.Column) = s(1)
End If
End Sub

追问

为什么少了判断以后就报错，无论输入是否合法

追答

因为在Cells(Target.Row, Target.Column) = s(1)这一句里，改变了单元格的值，比如原来是123.456.经过这一句代码之后会变为456，这样就重新出发了worksheet_change函数，函数重新执行的结果就是会对“456”而不是“123.456”进行处理， 处理“456”得出的数组只有一个s(0),没有s(1)，所以就提示下标越界

Answer 2

s = Split(Cells(Target.Row, Target.Column), ".")
s数组里有几个元素，是不是只有1个元素，这样下一句s(1)就会出现下标越界了。
另外，你输入字符串2.3.2.2试一下看看

追问

还是报错

追答

对了，你这样会出现死循环。
假设你在目标单元格输入了2.3.4，这个时候你的目标单元格数据就会变成3，这个时候会再次引发单元格变化事件，而此时你数组S就只有1个元素3了，所以s(1)就会溢出了。
你要为输入数据的单元格做一下标记，经过VBA处理过的数据就不能再次处理。