"xlPasteColumnwidths"にエラーがあり、私のコードがより効率的になりますか？

Question

ワークブック間でデータをコピーする最も良い方法は何ですか？私は与えられたワークブックのデータを "thisworkbook"にコピーするためのコードを以下に書いています。しかし、私はいくつかの問題に直面しており、これを行う正しい方法ではないと思っていますか？

は、私は正確に何をしたいですか：

私は大量のデータを持っているでブックを持って、私は「はThisWorkbook」にそのワークブックからコピーされ、いくつかの与えられた範囲をしたいです。これらは、コピーされた後、私は私が持っているどのようなデータ

間のすべての空白行を削除したい：私はxlPasteColumnwidths」でエラーが出るのはなぜ

Application.ScreenUpdating = False 

Dim wb As Workbook 

Set wb = Workbooks.Open("path") 

With wb 
    Sheets("sheet1").Range("B3:D107").Copy 
End With 

With ThisWorkbook.Sheets("sheet1").Range("A1") 
    .PasteSpecial xlPasteAll 
    .PasteSpecial xlPasteColumnWidths 
End With 

With wb 
    Sheets("sheet1").Range("B113:D117").Copy 
End With 

With ThisWorkbook.Sheets("sheet1").Range("A106") 
    .PasteSpecial xlPasteAll 
    .PasteSpecial xlPasteColumnWidths 
End With 

With wb 
    Sheets("sheet1").Range("F3:F107").Copy 
End With 

With ThisWorkbook.Sheets("sheet1").Range("D1") 
    .PasteSpecial xlPasteAll 
    .PasteSpecial xlPasteColumnWidths 
End With 

With wb 
    Sheets("sheet1").Range("F113:F117").Copy 
End With 

With ThisWorkbook.Sheets("sheet1").Range("D106") 
    .PasteSpecial xlPasteAll 
    .PasteSpecial xlPasteColumnWidths 
End With 

wb.Close False 

On Error Resume Next 

Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

Application.ScreenUpdating = True 

を、私はこのコードをより効率的に行うことができます

Answer 1

？あなたが個別に各操作を実行する必要があります、PasteSpecial操作で複数の列挙を持つことはできません

：

With wb 
    Sheets("sheet1").Range("B3:D107").Copy 
End With 

With ThisWorkbook.Sheets("sheet1").Range("A1") 
    .PasteSpecial xlPasteAll 
End With 

With wb 
    Sheets("sheet1").Range("B3:D107").Copy 
End With 

With ThisWorkbook.Sheets("sheet1").Range("A106") 
    .PasteSpecial xlPasteColumnWidths 
End With 

私はすべての問題を見ることができないパフォーマンスについてあなたのコードで。確かに、シート全体を配列に収めて見て、必要なビットを書き出すことができますが、これは単純なことのために過度のことです。