如何粘貼來自不同工作簿的范圍？

Question

我的代碼：

With wbImport.Worksheets("Data")
    LastCol = .Range("A1").End(xlToRight).Column
    LastRow = .Range("A1").End(xlDown).Row
    .Range("A1", .Cells(LastRow, LastCol)).Copy ' ‹-- Copy without Select
End With
    
wsData.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False

我正在嘗試將 wbImport 的數據粘貼到我當前的工作簿 wsData 中。

幾乎每次我得到

錯誤 1004 Range 類的特殊粘貼方法失敗。

Answer 1

我會像下面這樣：

Dim wsData As Worksheet
set wsData = ... ' <-- set your target sheet

With wbImport.Worksheets("Data")
    With .Range("A1").CurrentRegion
        wsData.Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value
    End With
End With

編輯：

如果你只對過濾的行感興趣，那么你必須回到Copy和PasteSpecial方法

wbImport.Worksheets("Data").Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
wsData.Range("A1").PasteSpecial xlPasteValues