Question

With ws
    'TROUBLE MAKER BELOW
    'CRIMS Print Header
    .Rows("1:6").Delete
    .Cells.AutoFilter
    .Cells.ClearFormats
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("A1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("B1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("C1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("D1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("E1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("F1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("G1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("H1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("I1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("J1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("K1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("L1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("M1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("N1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("O1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("P1")
    .Columns(X).Copy activeWB.Sheets("SHEET NAME").Range("Q1")
    .AutoFilterMode = False
End With

这是我的代码片段，正如您所看到的那样，复制列是一个简单的逻辑。但面临一个问题，我无法复制P以上的任何列...这意味着，P，Q，R等......

但奇怪的是，如果我在调试时运行我的VBA Excel宏，请进入并让它运行。它工作正常。有什么希望让它工作？真的坚持这个......

非常感谢和赞赏。

Answer 1

我的错误并没有真正的答案。但显然，其他一些方法利用最后几行进行过滤。由于代码是由另一组窥视完成的，我很难深入研究这个问题...

但经过无数次调试和少量头发掉落后，我发现该方法已经删除了3列...所以我做的是我隐藏了其他方法播放的几列并使用其他可用列。它与复制功能无关，也与处理时间无关。

无法使用列（）复制超过15列。复制

1 个答案: