arrays - VBA 使用 Like 运算符在数组中查找字符串不起作用

Question

我有一个 Excel 文件，其中包含表的名称及其对应的列，如下所示: Tables and Columns

我编写了一个子过程，它返回表名的所有对应列。

我当前的代码执行以下操作:

1. 将 Col A(表名)和 Col B(列名)保存到二维数组

2. 遍历数组，查找表名是否存在于数组的第一列。

3. 如果表名存在，则一个计数器增加并且另一个数组在每次值时重新确定尺寸出现在数组中。
4. 然后我将该数组设置为等于原始数组数组并将该列名称数组返回到工作表。

我在那里有一个错误处理程序，如果表名不是表的全名(即用户是一个短字符，或者输入了数组中不存在的表名) ) 然后显示以下消息:

“您必须输入表格的全名。”

我的问题是，无论是否输入了正确的表名，上面的错误处理程序都会显示错误，我不知道为什么。如果我删除错误处理程序，代码就会运行完美...直到有人输入数组中不存在的表名，这是令人费解的错误处理程序应该解决的问题，除非它不能正常工作，大声笑。

有人知道哪里出了问题以及如何解决吗？它必须能够非常快地处理包含大量数据的大型数组。

感谢您提前提出任何想法、建议或答案!!!

注意:我有超过 100,000 行，因此 application.Match、Index 或组合将不起作用。

完整代码如下:

Option Compare Text
Option Explicit
Sub Testingggg()

    Dim Big_Array(), small_array() As Variant
    Dim i, j, LookUpValue_Counter As Long
    Dim LookUpValue As String

    Application.ScreenUpdating = False

     'Clear previously returned data
     Worksheets("New TRAX").Range("C2:D300").ClearContents

       If UserForm2.txttablecols.Value <> "" Then

           LookUpValue = UserForm2.txttablecols.Value

       Else

            MsgBox "You must enter a the name of the table.", vbExclamation, "Error Encountered"

               Exit Sub
        End If

        'Store cols A and B in the Big_Array
        Big_Array = Range("A2").CurrentRegion

        'Starting in the second row of the Big_Array loop through _
         each element of the Big_Array
        For i = LBound(Big_Array, 1) To UBound(Big_Array, 1)

            'Note: I used Option Compare Text at the _
            beginning of the module to make the text _
            comparisons case insensitive

             'This searches the second Col (i.e. Column Names) only
             If Big_Array(i, 2) Like LookUpValue Then
                MsgBox "You must enter the name of the Table, NOT the Column", vbExclamation, "Error Encountered"

                Exit Sub

             '******************************************************* 
              'This ElseIf is what gives me problems. Like I said _
               before, if I remove this, the other code and error _
               handlers work perfectly. However if the the user _
               enters a table name that doesn't exist, then the code _
               won't run, but that makes sense, b/c that's what error _
               handler is for...except it doesn't work, lol.
             '*******************************************************                 
              This searches the first Col (i.e. Table Names) only  
             ElseIf Not (Big_Array(i, 1) Like LookUpValue) Then
                MsgBox "You must enter the the full name of the Table.", vbExclamation, "Error Encountered"

                Exit Sub        

             'If the table name exists and  is in the correct _
              format, then execute the following
             ElseIf Big_Array(i, 1) Like LookUpValue Then

                'increase the LookUpValue_Counter by 1 each _
                time the LookUpValue matches a value in col A
                LookUpValue_Counter = LookUpValue_Counter + 1

                'Redimension the small_array array with each instance _
                of a the LookUpValue in the Big_Array.
                ReDim Preserve _
                small_array(1 To 2, 1 To LookUpValue_Counter)

                  '*******************************************
                   'NOTE: FOR THOSE OF YOU WHO HAVE BEEN TRYING TO _ 
                    FIND A WAY AROUND SUB-SETTING AN ARRAY THAT _ 
                    WORKS FOR WAY MORE THAN 65,536 ROWS (see index _ 
                    for sub-setting arrays) I FOUND A WAY :), NOTE THE _
                    2 to 2 IN THE FOR LOOP; THIS PULLS ONLY THE SECOND _
                    COLUMN OF THE ARRAY  _
                    The following Starts a counter (j) to populate _ 
                    the small_array. 
                    '*******************************************
                    For j = 2 To 2
                    'The small_array array equals the current Big_Array
                          small_array(j, LookUpValue_Counter) _
                          = Big_Array(i, j)
                    Next j
            End If
        Next i

        'Transpose the small_array onto sheet
        ActiveSheet.Range("C2", Range("C2").Offset(LookUpValue_Counter - 1, 1)) _
        = Application.Transpose(small_array)

      'Write LookUpValue to sheet
      Worksheets("New TRAX").Cells(2, 3).Value2 = LookUpValue

    Application.ScreenUpdating = True

    End Sub

我也试过以下方法:

ElseIf Not InStr(1, Big_Array(i, 1), LookUpValue, vbTextCompare) Then

ElseIf Big_Array(i, 1) <> LookUpValue Then

ElseIf Not (Big_Array(i, 1) = LookUpValue) Then

这些都不起作用。

Answer 1

一开始你写的

For i = LBound(Big_Array, 1) To UBound(Big_Array, 1)

后来你写了

ElseIf Not (Big_Array(i, 1) Like LookUpValue) Then
    MsgBox "You must enter the the full name of the Table.", vbExclamation, "Error Encountered"

想一想。

如果 LookUpValue 不是 Big_Array 中的第一个，它将始终向您显示消息。我打赌你想先遍历整个数组，然后然后当它找不到时你想显示消息。

实现一个 bool 值就可以了' ***:

Option Compare Text
Option Explicit
Sub Testingggg()

    Dim Big_Array(), small_array() As Variant
    Dim i, j, LookUpValue_Counter As Long
    ' ***
    Dim blnfound As Boolean
    Dim LookUpValue As String

    Application.ScreenUpdating = False

     'Clear previously returned data
     Worksheets("New TRAX").Range("C2:D300").ClearContents

       If UserForm2.txttablecols.Value <> "" Then

           LookUpValue = UserForm2.txttablecols.Value

       Else

            MsgBox "You must enter a the name of the table.", vbExclamation, "Error Encountered"

               Exit Sub
       End If

        'Store cols A and B in the Big_Array
        Big_Array = Range("A2").CurrentRegion

        'Starting in the second row of the Big_Array loop through _
         each element of the Big_Array
        For i = LBound(Big_Array, 1) To UBound(Big_Array, 1)

            'Note: I used Option Compare Text at the _
            beginning of the module to make the text _
            comparisons case insensitive

             'This searches the second Col (i.e. Column Names) only
             If Big_Array(i, 2) Like LookUpValue Then
                MsgBox "You must enter the name of the Table, NOT the Column", vbExclamation, "Error Encountered"

                Exit Sub

             'If the table name exists and  is in the correct _
              format, then execute the following
             ElseIf Big_Array(i, 1) Like LookUpValue Then

                ' ***
                blnfound = True
                'increase the LookUpValue_Counter by 1 each _
                time the LookUpValue matches a value in col A
                LookUpValue_Counter = LookUpValue_Counter + 1

                'Redimension the small_array array with each instance _
                of a the LookUpValue in the Big_Array.
                ReDim Preserve _
                small_array(1 To 2, 1 To LookUpValue_Counter)

                  '*******************************************
                   'NOTE: FOR THOSE OF YOU WHO HAVE BEEN TRYING TO _
                    FIND A WAY AROUND SUB-SETTING AN ARRAY THAT _
                    WORKS FOR WAY MORE THAN 65,536 ROWS (see index _
                    for sub-setting arrays) I FOUND A WAY :), NOTE THE _
                    2 to 2 IN THE FOR LOOP; THIS PULLS ONLY THE SECOND _
                    COLUMN OF THE ARRAY _
                    The following Starts a counter (j) to populate _
                    the small_array.
                    '*******************************************
                    For j = 2 To 2
                    'The small_array array equals the current Big_Array
                          small_array(j, LookUpValue_Counter) _
                          = Big_Array(i, j)
                    Next j
            End If
        Next i

        ' *** If no 'Like' was found
        If blnfound = False Then
           MsgBox "You must enter the the full name of the Table.", vbExclamation, "Error Encountered"
           Exit Sub
        End If

        'Transpose the small_array onto sheet
        ActiveSheet.Range("C2", Range("C2").Offset(LookUpValue_Counter - 1, 1)) _
        = Application.Transpose(small_array)

      'Write LookUpValue to sheet
      Worksheets("New TRAX").Cells(2, 3).Value2 = LookUpValue

    Application.ScreenUpdating = True

    End Sub

顺便说一句，为什么 i 和 j 声明为 Variant？