Как использовать VBA для применения автоматического фильтра за месяц / год и добавления значения в другом диапазоне на основе фильтра месяца / года

Question

Как я могу использовать VBA для применения фильтра в столбце (за месяц / год), чтобы диапазон, соответствующий этой дате, получил значение как Месяц-Да в другом столбце?

Или в этом случае, было бы лучше использовать, если значение в столбце с именем CreationDate = Jan / 2020, тогда диапазон в столбце Month_Yr будет 01_2020.

Basi c VBA необходимо проверить даты в столбце A, и если он пишет только месяц и год в столбце B.

Что мне следует использовать: автоматический фильтр или Vlook? Есть идеи, как получить нужный результат?

Answer 1

Следуя вашим комментариям, вы можете использовать

With Sheet1.Range("B2:B" & last_row)
    .Formula = "=TEXT(A2,""m\_yyyy"")"
    ' I suggest you then delete the formulae
    .Value = .Value
End with

Обратите внимание, что способ добавления двойных кавычек внутри строки заключается в использовании 2 из них (т.е. экранировать их с помощью другой двойной кавычки), поэтому строка "=TEXT(A2,""m\_yyyy"")" приведет к формуле = ТЕКСТ (A2, "m \ _yyyy").

Также обратите внимание, что символ подчеркивания имеет особое значение в форматировании чисел в Excel и, следовательно, если вы хотите, чтобы он отображался в последней строке, тогда вам нужно избежать этого с помощью backsla sh. (Я знаю, что в моем комментарии выше это выглядело как опечатка, но это важно)