エラーコード1004 VBA Cant Solveをコピー/ペーストするとき

Question

これを5時間以上探して、正しい解決策を見つけることができませんでした。これは私の仕事の中で私が主にすることではありません。

基本的には、行をフィルタリングしたシートから別のシートにコピーし、それを貼り付ける列Aの最後の行に配置しています。

これは、私はいくつかの変更をした前に、完全に見つけて、今では任意の助けを感謝して理解される、完全に壊れて、ここではスパゲッティコードの壊れた塊がある....

Sheets("Working Sheet").Select 
Selection.Copy 
Sheets("Sent Items").Select 

Dim LastRow As Long 
With ActiveSheet 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 
End With 

Range("A" & LastRow).Select 
ActiveSheet.Paste 
Application.CutCopyMode = False 
Columns("K:K").EntireColumn.AutoFit 
Sheets("Sent Items").Select 

それは言って、エラー1004が発生し働いていましたサイズは同じである必要があります???貼り付けによってエラーが発生します。どんな助けも良い答えを探していました。

Answer 1

フィルタリングされた行をコピーしているので、SpecialCellsメソッドを使用することは常に良い方法です。

以下のリファクタリングされたコードを参照してください。また、常にavoid using selectに最適で、オブジェクトで直接作業してください。

Dim wsWorking as Worksheet 
Set wsWorking = Sheets("Working Sheet") 

With wsWorking 

    .Select 
    Selection.SpecialCells(xlCellTypeVisible).Copy 

End With 

Dim wsSent as Worksheet 
Set wsSent = Sheets("Sent Items") 

With wsSent 

    Dim LastRow As Long 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 

    .Range("A" & LastRow).PasteSpecial 

    .Columns("K:K").EntireColumn.AutoFit 

    .Range("A1").Select 'to make sure you end up on that sheet 

End With 

Answer 2

次のようにあなたのコードをリファクタリングできます

Worksheets("Working Sheet").Select 
Selection.SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Sent Items").Cells(Rows.Count, 1).End(xlUp).Offset(1) 

か、あなたが貼り付け値に興味がある場合のみ：同じこと

Dim area As Range 

Worksheets("Working Sheet").Select 
For Each area In Selection.SpecialCells(xlCellTypeVisible).Areas 
    Worksheets("Sent Items").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(area.Rows.Count, area.Columns.Count).Value = area.Value 
Next area