粘贴可见单元格错误 1004

Question

我正在尝试编写一些代码，该代码将使用带有表格的工作表并将可见单元格粘贴到新工作表并冻结标题行。我不断收到工作集类失败错误的 1004 粘贴方法，调试器将 activesheet.paste 突出显示为问题。我对 VBA 很陌生，所以不知道为什么我在这样一个看似简单的命令上出现错误？

    Sub Macro6()
'
' Macro6 Macro
'

'
    Sheets("Midwest Log").Select
    Range("A1").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "MW Log"
    Application.CutCopyMode = False
    Sheets("MW Log").Paste
    Columns("A:I").Select
    Columns("A:I").EntireColumn.AutoFit
    Rows("4:4").Select
    ActiveWindow.FreezePanes = True
    Range("A1").Select
End Sub

Answer 1

你有Application.CutCopyMode = False 在那里。删除它，你应该没事。

我冒昧地清理了选择。选择在 excel VBA 中被认为是非常糟糕的风格，因为它们速度慢且不可靠。你通常可以很容易地通过替换来摆脱它们

something.Select
Selection.dosomething

与

something.dosomething

虽然冷冻有点棘手，我也不确定这是否是理想的方式。

Sheets("Midwest Log").Range("A1").SpecialCells(xlCellTypeVisible).Copy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "MW Log"
Sheets("MW Log").Paste
Columns("A:I").AutoFit
ActiveWindow.SplitRow = 3
ActiveWindow.FreezePanes = True