Question

我正在尝试编写一些代码，这些代码将带有表格的工作表，并仅将可见单元格粘贴到新工作表并冻结标题行。我一直得到一个1004粘贴方法的workseet类失败错误，调试器突出显示activesheet.paste作为问题。我对VBA还不熟悉所以不确定为什么我在这样一个看似简单的命令上收到错误？

* {
    box-sizing: border-box;
}

.col-2 {width: 16.66%; background-color : #4CAF50 ; color : white; text-align : left; padding : 10px;position:relative;height:60px;}
.col-10 {width: 83.33%; background-color : blue; color : white; text-align : right;}
.col-12 {width: 100%;}


[class*="col-"] {
        float: left;
        /*border: 1px solid red;*/
    }

.row{
        content: "";
        clear: both;
        display : flex;
        min-height : 60px;
}
/* Responsive */
#begueradj{height:60px;}

.dropdown-content {
        display: block;
        position: absolute;
        float : left;
        background-color: gray;
    width : 100%;
    left:0;
    top:60px;
}

.hide { display: none;}

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

粘贴可见单元格错误1004

1 个答案: