vba遍历字符串_操蛋的VBA程序错误！

职场中使用Excel VBA编程处理表格数据时，我们肯定会遇到过错误，《神奇的VBA》学习插件中介绍过VBA错误有语法错误，有运行时错误等等。语法错误在编程阶段编辑器会告知我们，这很方便，但是运行时错误有时候就有点麻烦了。程序运行时错误是所有写程序人的天敌！一个小小的错误有时候能让人变得非常暴躁。尤其是学习Excel VBA的新人，程序的错误更会消耗一个人的耐心和兴趣。下面介绍3个常见的错误。这些错误不仅职场Excel编程的新人会碰到，而且经常使用Excel VBA编程的职场老腊肉们其实也经常会掉坑里。

1. 变量名错误

错误信息：运行后没有返回正确的结果。为什么我的运行结果为空？

Sub 创建变量并赋值()
Dim str1 As String
shr1 = "I Love 神奇的VBA"
MsgBox str1
End Sub

错误原因：这个错误，太多人会碰到了，这是个典型的超低级错误！上面代码示例中str1和sh1根本就不是同一个变量。虽然显式定义了一个字符串String类型的变量，但是赋值变量时，却写错了变量。由于编辑器默认不用强制编程声明，所有sh1在编程时并没有提示错误。运行时也不会产生错误，sh1相当于隐式地创建了一个变量。

2. 数组定义理解不清

错误信息：运行后，循环遍历数组时，为什么会多弹出一个0.

Sub 数组赋值并遍历()
'创建一维数组
Dim num(3) As Integer
'对元素数组进行赋值
Dim x As Long
For x = 0 To 2num(x) = Cells(x + 1, "A") '假设A1~A12单元格都有数据
Next
'通过循环遍历逐一弹窗显示数组的元素值
Dim ele As Variant
For Each ele In numMsgBox ele
Next
End Sub

错误原因：在没有Option Base 1语句的前提下， num(12)等同于num(0 To 12) 总共有13个元素，而不是12个元素。

3. For Each遍历数组元素产生错误！

错误信息：循环遍历数组获取数组元素值时，运行中产生错误提示“下标越界”。

Sub 数组赋值并遍历()
'创建一维数组
Dim num(0 To 2) As Integer
'对元素数组进行赋值
Dim x As Long
For x = 0 To 2num(x) = Cells(x + 1, "A") '假设A1~A12单元格都有数据,分别为1~12
Next
'通过循环遍历逐一弹窗显示数组的元素值
Dim ele As Variant
For Each ele In numMsgBox num(ele) '产生“下标越界”的运行时错误！
Next
End Sub

错误原因：应该将num(ele) 改成 ele。For..Each遍历直接遍历元素。而num(ele)这样写会重新以ele值作为索引获取数组值！如果ele不是数值的如字符串的话会立即产生错误！

暂时就介绍这么多,更多知识下次再分享。

关注我，学习职场中的干货技能！