vba - 复制/粘贴 VBA 时出现错误代码 1004 无法解决

Question

我已经研究了 5 个多小时，但无法找到正确的解决方案。这不是我的主要任务，只是我在工作中提供帮助。

基本上，我是从已过滤行的工作表复制到另一个工作表，并将其放置在 A 列的最后一行进行粘贴。

在我进行一些更改之前，它工作得很好，现在它完全损坏了，非常感谢任何帮助，这是 splinter 的意大利面条代码......

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

您可以按如下方式重构代码:

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