Скопируйте все отфильтрованные данные из одного листа в новую книгу

Question

У меня проблемы с поиском верного источника, чтобы скопировать только видимые ячейки из одного листа в новую книгу. Моя первоначальная рабочая книга отфильтрована. Что-то вроде:

Sub RangeToNew()

    Dim newBook as Workbook
    Set newBook = Workbooks.Add

    ThisWorkbook.Worksheets("worksheet").SpecialCells(xlCellTypeVisible).Copy _
        Before:=newBook.Worksheets(1)

End Sub

Это не работает.

Answer 1

Похоже, вам нужно сначала установить диапазон SpecialCells для объекта Range, а затем скопировать.Попробуйте это:

Sub rangeToNew_Try2()
    Dim newBook As Excel.Workbook
    Dim rng As Excel.Range

    Set newBook = Workbooks.Add

    Set rng = ThisWorkbook.Worksheets("Sheet1").Cells.SpecialCells(xlCellTypeVisible)

    rng.Copy newBook.Worksheets("Sheet1").Range("A1")
End Sub