я используюAutoFilter сортировать таблицу в VBA, что приводит к уменьшению таблицы данных. Я только хочу скопировать / вставить видимые ячейки одного столбца после применения фильтра. Кроме того, я хотел бы усреднить отфильтрованные значения одного столбца и поместить результат в другую ячейку.

мы нашли этот фрагмент в стеке, который позволяет мне копировать / вставлять все видимые результаты фильтра, но я нене знаю, как изменить его или другой способ получить только один столбецs ценность данных (без заголовка) от этого.

Range("A1",Cells(65536,Cells(1,256).End(xlToLeft).Column).End(xlUp)).SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

Дополнение к ответу (для расчета по отфильтрованным значениям):

tgt.Range("B2").Value =WorksheetFunction.Average(copyRange.SpecialCells(xlCellTypeVisible))