Excel VBA复制粘贴移动

Question

我只是VBA编码的新手，所以我没有太多的线索我不幸的是我在做什么。我希望能在这里得到一只手。

我想要做的是。

第一步：复制一行（其中有公式）并将其粘贴在同一位置，但只作为值。
第二步：将选中的单元格向下移动一行。
第三步：复制一行（带公式），并在另一行上用公式在另一行上复制它。

这是在同一张纸上完成的。

如果我能得到一些帮助，这个或某些方向的教程，将非常感激。

Answer 1

通常情况下，如果没有你的努力，我不会这样做，但为什么不呢？下面的内容和我所能得到的一样简单。请仍然使用宏记录器来看看这一切是如何工作的。这是我们很多人开始的方式。

Sub StepOne() 
Dim myRow As Long 
myRow = 1 ' We will "copy/paste" on Row 1 
' To avoid using the clipboard, you can simply set two ranges' values equal. This will 
' clear out any formulas and leave the values. 
Rows(myRow).Value = Rows(myRow).Value 
End Sub 

而第二个：

Sub StepTwo() 
Dim rng As Range 
'Change this as required. Note the use of `Set` with a `Range` type. 
Set rng = Range("A1:A10") 
rng.Cut rng.Offset(1, 0) 
End Sub 

，最后一个：

​​

编辑：嗯，我知道现在第三步是不是设置两个范围等于一个涉及多一点因为你想维护公式。不过，我会将此作为您进行调查的学习机会。如果你不知道，让我知道，我可以指导你。 ：D