Excel VBA AdvancedFilter должен копировать только определенные столбцы

Question

Можно ли скопировать только определенные столбцы из отфильтрованной таблицы, а не все столбцы?

Базовый код:

Sub GENERATE_click()

    ThisWorkbook.Worksheets("sheet1").Range("A12:E500").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("D1:F3"), _
        CopyToRange:=Range("L14"), _
        Unique:=False
End Sub

Answer 1

Пожалуйста, попробуйте это (например, копируя только столбцы B, C и E):

Private Sub MyAdvancedFilters()
    Dim lastVisibleRow As Long
    With ActiveSheet
        .Range("A12:E500").AdvancedFilter _
            Action:=xlFilterInPlace, _
            CriteriaRange:=Range("D1:F3"), _
            Unique:=False
        lastVisibleRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("B12:C" & lastVisibleRow & ",E12:E" & lastVisibleRow).Copy .Range("L14")
        .ShowAllData
    End With
End Sub