фильтр моего массива на колонке 3 для конкретного слова

Question

У меня есть следующий код ниже,

Я хочу, чтобы фильтровать массив (не лист) для слова «телефон», который сидит в колонке 3 массива. Затем выход переместится в мой лист адресата («L»)

как изменить следующий код, чтобы отфильтровать слово? Я должен указать, что хочу фильтровать массив, а не лист.

Sub Example1() 
Dim arrValues() As Variant 
Dim lastRow As Long 
Dim filteredArray() 
Dim lRow As Long 
Dim lCount As Long 
Dim alength As Long 
lastRow = Sheets("Raw Data").UsedRange.Rows(Sheets("Raw Data").UsedRange.Rows.Count).Row 
arrValues = Sheets("Raw Data").Range(Cells(2, 1), Cells(lastRow, 21)).Value 
ReDim filteredArray(1 To UBound(arrValues), 1 To 1) 
alength = UBound(arrValues) 
For lCount = 1 To UBound(arrValues) Step 1 
    lRow = lRow + 1 
    filteredArray(lRow, 1) = arrValues(lCount, 1) 
Next 
Sheets("L").Range("A2:U" & 1 + alength) = filteredArray 
End Sub 

Answer 1

Вы могли бы сделать что-то вроде этого:

Sub Example1() 
    Dim arrValues() As Variant 
    Dim lastRow As Long 
    Dim filteredArray() 
    Dim lRow As Long 
    Dim lCount As Long 
    Dim tempArray() 

    lastRow = Sheets("Raw Data").UsedRange.Rows(Sheets("Raw Data").UsedRange.Rows.Count).Row 
    arrValues = Sheets("Raw Data").Range(Cells(2, 1), Cells(lastRow, 21)).Value 

    ' First use a temporary array with just one dimension 
    ReDim tempArray(1 To UBound(arrValues)) 
    For lCount = 1 To UBound(arrValues) 
     If arrValues(lCount, 3) = "phone" Then 
      lRow = lRow + 1 
      tempArray(lRow) = arrValues(lCount, 1) 
     End If 
    Next 

    ' Now we know how large the filteredArray needs to be: copy the found values into it 
    ReDim filteredArray(1 To lRow, 1 To 1) 
    For lCount = 1 To lRow 
     filteredArray(lCount, 1) = tempArray(lCount) 
    Next 

    Sheets("L").Range("A2:U" & 1 + lRow) = filteredArray 
End Sub