У меня есть два листа в рабочей тетради. Я использую следующий код VBA для фильтрации данных:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice 20160623
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A4").AutoFilter 1, "=001"
    Next
End Sub

Теперь я хочу использовать значение в ячейке F1 вместо 001. Как мне изменить код?

1 ответ1

0

Это довольно легко, приятель, попробуйте:

Sub apply_autofilter_across_worksheets()

    ' Updateby Extendoffice 20160623

    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A4").AutoFilter FIELD:=1, CRITERIA1:=xWs.range("F1").value
    Next
End Sub

ура

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .