VBA Excel 循环不会处理数组

Question

****更新已解决*****感谢大家帮助我得出这个结论！******

因此，如下所示，我的代码中的所有内容都按预期进行，除了一行。

If c = myArray(x) Then

这个脚本读入一个我没有提到的文件。它从文件中读取“A”列并将每一行放入myArray。我知道该数组有效，因为当我将它循环到对话框中时，它会正确打印出数据。循环功能正确搜索每一行，如果它等于'c'，它会抓取我的数据并将其放入另一张表中。我知道这很有效，因为当我输入数据时，它会按预期抓取它。我的麻烦是每当我尝试添加myArray(x) 的元素以将其与整数“c”进行比较时。它拒绝查看 x 整数以正确循环使用整数“x”的myArray()。

有人可以向我解释为什么myArray(x) 无法正常循环或帮助我解决问题。我不是资深的 VBA 程序员，但我编写了相当一部分功能正常的代码。我只是觉得我错过了一个小细节，忽略了一些简单的事情。任何帮助都将不胜感激，这是出于工作目的，您将帮助他人而不仅仅是我自己。

Sub myArray()
    Dim FSO As Object, MyFile As Object
    Dim FileName As String, Arr As Variant
    Dim c As Range
    Dim j As Integer, i as Integer
    Dim Source As Worksheet, Target As Worksheet

    FileName = ""   '<--This is left intentionally blank.
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set MyFile = FSO.OpenTextFile(FileName, 1)
    Arr = Split(MyFile.ReadAll, vbNewLine)  
    Set Source = ActiveWorkbook.Sheets("Sheet1")
    Set Target = ActiveWorkbook.Sheets("Sheet2")

    i = 0
    j = 1

   For i = LBound(Arr) To UBound(Arr)
    For Each c In Source.Range("B:D")
        If c = Arr(i) Then
            Source.rows(c.Row).Copy Target.rows(j)
            j = j + 1
        End If
    Next c
Next i

End Sub

Answer 1

看起来您可能会在将 x 递增到其上限之后继续检查数组，因为该循环独立于 B1:D6719 循环。

是否可以将代码修改为：

For Each c In Source.Range("B1:D6719")
    If c = CInt(myArray(x)) Then '<--Here is where my problem is, this line right here
        Source.rows(c.Row).Copy Target.rows(j)
        j = j + 1
        x = x + 1
    End If

    If x > UBound(myArray) Then Exit For
Next c

Answer 2

尝试调用从 1 开始的数组：

    x = 1
    if c = myArray(x) then

在其他人examples of array in vba 我看到他们从 1 而不是 0 开始