Excel"；如果>；复制>；插入1行>；粘贴>；仅限值（从一张图纸到另一张图纸）"；

我试图制作一个宏来检查列“A3”是否为空，然后从工作表“Outros”复制单元格“A3:K3”，然后在第2行之后的“Docs”工作表中插入一行，然后仅将值粘贴到A3:K3“Docs”

主要的问题是只复制和粘贴值+插入行，我得到的最接近的公式是

Worksheets("Outros").Range("A3:K3").Copy Destination:=Worksheets("Docs").Range("A3:K3")

---

但是我用它不仅粘贴公式值，而且不插入行。

要向下移动行，请使用：

Rows(3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

在复制/粘贴之前

要粘贴值而不是公式，请使用：

.PasteSpecial Paste:=xlPasteValues

---

也许这将帮助您创建自己的代码：

Sub test()

Dim rng_one As Range
Dim rng_two As Range

Set rng_one = Worksheets("Outros").Range("A3:K3")
Set rng_two = Worksheets("Docs").Range("A3:K3")

' check if range is empty
If Application.WorksheetFunction.CountA(rng_two) = 0 Then

' insert row above row 3
Worksheets("Docs").Rows("3:3").Insert Shift:=xlDown

' copy paste as values
rng_one.Copy
rng_two.PasteSpecial xlPasteValues

Excel.Application.CutCopyMode = False

End If

End Sub

---

如果问题的关键在于如何仅粘贴值，请尝试：