1つのワークシートのすべてのフィルタリングされたデータを新しいワークブックにコピーします。

Question

1つのワークシートの目に見えるセルのみを新しいワークブックにコピーするのに問題があります。私の最初のワークブックはフィルタリングされています。

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