Question

这可能很简单，但作为初学者，我不知道如何将这两个代码合并为一个。

现在我使用此代码将表复制并粘贴到特定范围内。 Sheet3.Range("MyTable").Copy Sheets("MyWorksheet").Range("B12:D12").Insert Shift:=xlDown

现在我想粘贴它而不进行格式化，这段代码应该完成工作：

Sheets("MyWorksheet").Range("B12:D12").PasteSpecial xlPasteValuesAndNumberFormats

我需要做的就是以某种方式将Shift:=xlDown添加到第二个代码中...是否可以在一行中完成所有操作？

Answer 1

尝试分两行，但你必须保持所有指令的正确顺序：

Sheets("MyWorksheet").Range("B12:D12").Insert Shift:=xlDown
Sheet3.Range("MyTable").Copy
Sheets("MyWorksheet").Range("B12").PasteSpecial xlPasteValuesAndNumberFormats

可能还需要.insert之前的以下行：

application.CutCopyMode = false

Answer 2

尝试使用此解决方案，其中第一个 - 我们复制+插入，如前所述，第二个 - 我们复制粘贴值以覆盖插入的内容：

java resources

VBA - 粘贴/插入没有格式化的范围向下移动

2 个答案: