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

VBA Copy给我400错误

1 个答案: