Выберите и выделите строку в сводной таблице, которая содержит указанный c текст

Question

Я пытаюсь написать макрос, который выбирает и выделяет строку в сводной таблице, которая содержит определенный c текст.

Сейчас он выбирает точное совпадение (скриншот ниже). Есть ли способ заставить его выбирать все строки с JPY вместо того, чтобы вводить их одну за другой?

Текущий код

Результат в сводной таблице table

Между прочим, условное форматирование здесь не работает, потому что эта сводная таблица удаляется после каждого прогона, и поэтому c CF также удаляется из сводной таблицы. Я знаю, плохой дизайн но уже слишком поздно менять его, потому что сейчас он связан с двумя другими процессами.

Answer 1

Используйте следующий код, но сначала обновите ИМЯ ПОВОРОТНЫХ ПОЛЕЙ в СТРОКЕ 3. Это должно делать то, что вы хотите.

Sub Highlight_JPY_Pairs()

Dim element, cell As Range

With Sheets("Sheet1").PivotTables("PivotTable1").PivotFields("ENTER-NAME-OF-FIELD-CONTAINING-JPY-TEXT")
    .ClearAllFilters

    For Each element In .DataRange
        If element.Value Like "*JPY*" Then
            element.Interior.ColorIndex = 6
            element.End(xlToRight).Interior.ColorIndex = 6
        End If
    Next
    End With
End Sub