|
Option Explicit
Option Base 1
Sub test()
Dim zy, i&
zy = Split("张三、李四、王五、赵六、周七、杜八", "、")
For i = LBound(zy) To UBound(zy)
Cells(i + 1, 1) = zy(i)
Next i
End Sub
Sub test1()
Dim zy() As String, i&
zy = Split("张三、李四、王五、赵六、周七、杜八", "、")
For i = LBound(zy) To UBound(zy)
Cells(i + 1, 1) = zy(i)
Next i
End Sub
Sub test2()
Dim zy(), i&
zy = Split("张三、李四、王五、赵六、周七、杜八", "、")
For i = LBound(zy) To UBound(zy)
Cells(i + 1, 1) = zy(i)
Next i
End Sub
这是我写的测试代码,其中前两个正常运行,而第3个运行时提示类型不匹配,区别只是定义动态数组时写法不一样,不知何故?还有,我已经声明数组下标从1开始,但LBound(zy)=0,这是为何?请各位老师指导。谢谢!
|
|