Excel“如果>复制>插入1行>粘贴>仅值（从一张纸到另一张纸）”

Question

我正在尝试创建一个宏，以检查“ A3”列是否为空”，然后从工作表“ Outros”中复制单元格“ A3：K3”，然后在第2行后的“文档”工作表中插入一行，然后仅将值粘贴至A3 ：K3“文档” ...

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

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

但是，与此同时，我不仅粘贴了公式，而且还没有插入行。

Answer 1

要向下移动一行，请使用：

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

复制/粘贴之前

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

.PasteSpecial Paste:=xlPasteValues

Answer 2

也许这将帮助您编写自己的代码：

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