Excel VBA复制粘贴移动

时间:2016-01-20 23:00:18

标签: excel vba excel-vba

我只是VBA编码的新手,所以我不太清楚我在做什么,不幸的是。我希望我能在这里得到一个手。

我想做的是。

第一步:复制一行(包含公式)并将其粘贴到相同位置但仅作为值粘贴。
第二步:将选定的单元格向下移动一行 第三步:复制一行(带公式)并将其与公式一起放在另一行。

这一切都在同一张纸上完成。

如果我能得到一些帮助,或者某些方向可以获得一些非常感谢的教程。

1 个答案:

答案 0 :(得分:2)

通常情况下,如果没有你的努力,我不会这样做,但为什么不呢?以下是我能得到的简单。不过请使用宏录制器来查看这一切是如何工作的。这就是我们很多人开始的方式。

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

最后一个:

Sub StepThree()
' Not tellin :P!  You should be able to get this. Hint: look at StepOne.  
End Sub

编辑:啊,我现在意识到第三步比设置两个范围更加复杂,因为你想保持公式。但是,我会把这作为一个学习机会供你调查。如果你无法弄清楚,请告诉我,我可以指导你。 :d