Копировать из одной таблицы в другую (VBA)

Question

Я пытаюсь скопировать данные из одной таблицы в другую в Excel.В настоящее время код, который у меня есть, ничего не делает.

Worksheets(1).ListObjects("Table1").ListColumns(2).DataBodyRange.SpecialCells(xlCellTypeVisible).Copy _
        Destination:=Worksheets(3).ListObjects("Table2").ListColumns(1).DataBodyRange("A" & LastRow1).SpecialCells(xlCellTypeVisible)

Answer 1

Почему используется SpecialCellType?Вы хотите скопировать отфильтрованный диапазон?Опять же, вставка в видимом диапазоне не поддерживается, поэтому вы должны предоставить одну ячейку назначения или диапазон одинакового количества ячеек для вставки.Тем не менее, следующий рабочий код для вашей справки:

LastRow1 = Worksheets(3).ListObjects("Table2").DataBodyRange.Rows.Count
Worksheets(1).ListObjects("Table1").ListColumns(2).DataBodyRange.SpecialCells(xlCellTypeVisible).Copy _
        Destination:=Worksheets(3).ListObjects("Table2").ListColumns(1).DataBodyRange.Offset(LastRow1)