Я хочу выбрать несколько отфильтрованных ячеек на листе и применить выбор к фильтру во второй книге.
Я пробовал это с измененным кодом, найденным здесь.
Sub Test()
Dim Arr As Variant
Dim i As Integer
Arr = WorksheetFunction.Transpose(WB_Macro.Sheets("Current Stage").Selection.Value)
For i = LBound(Arr) To UBound(Arr)
Arr(i) = CStr(Arr(i))
Next i
Selection.AutoFilter
WB_New.Sheets("Consolidated EOY ´20-CO20-21").Range("$A$2:$C$1048576").AutoFilter Field:=7, Criteria1:=Arr, Operator:=xlFilterValues
End Sub
Можно кто-нибудь мне поможет?