Question

我正在使用VBA代码将值从一个工作簿复制并粘贴到另一个工作簿。但是，粘贴时，目标工作表中的边框将被删除。粘贴时如何保持边框？

以下是我的代码：

With wsSource
    .Range(.Range("A2"), .Range("C2").End(xlDown)).Copy wsDestination.Range("A3")
End With

我已经读过PasteSpecial方法可能有用，但我不知道如何在上面的代码中实现它。

谢谢！

Answer 1

试试这个

With wsSource
    .Range(.Range("A2"), .Range("C2").End(xlDown)).Copy

    wsDestination.Range("A3").PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

每当有疑问时，记录一个宏;）

VBA复制粘贴正在删除边框

1 个答案: