excel - VBA 复制给我一个 400 错误

Question

我让它工作得很好，然后由于我不知道的原因，它现在产生了 400 错误：

Set ws = Sheets("Overview")

         LastCol = ws.Cells.Find(What:="*", _
            After:=ws.Range("A1"), _
            LookAt:=xlPart, _
            LookIn:=xlFormulas, _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious, _
            MatchCase:=False).Column

           ws.Columns(LastCol).Copy ws.Columns(LastCol + 1)

复制部分工作正常，但似乎失败的地方是将它复制到新列，我不知道为什么

Answer 1

我建议这样做而不是复制。此处无需涉及剪贴板：

       ws.Columns(LastCol + 1).value = ws.Columns(LastCol).Value