Question

我是VBA的新手，所以我向你们寻求正确方向的一些提示。

我有一张带有两张纸（Blad1，Blad2）的工作簿，我试图制作一个功能，将下一个可用单元格中预先设定的单元格范围从Blad1复制到Blad2。同时我希望每次按下按钮时复制的单元格中的数字增加10，这样每个副本都有不同的值。

这是我到目前为止编写的代码：

    Sub new_Group()
Dim rnTarget As Range
Set rnTarget = Blad2.Cells(Range("A:A").Cells.Count, 1).End(xlUp)
If rnTarget <> "" Then Set rnTarget = rnTarget.Offset(1)
Blad1.Range("A8:F15").Copy rnTarget
Blad1.Range("J9").Value = Blad1.Range("J9").Value + 10
End Sub

复制/粘贴功能正在按预期工作。但问题在于增量。我不知道如何复制值而不是公式，因此复制的单元格中的值会发生变化，它也会将J9源单元格更改为J10，J17等。

Image of Blad1 cells

这是Blad1中预制的细胞准备复制。 POS之后的数字是每次复制后我想要增加10的数字。

要么我应该使用其他一些方法来复制单元格，这样它就不会保留公式而只保留值，或者我不知道增量是多少。任何指针都很开心。

Answer 1

以下内容应仅粘贴值

Sub new_Group()
Dim rnTarget As Range
Set rnTarget = Blad2.Cells(Range("A:A").Cells.Count, 1).End(xlUp)
If rnTarget <> "" Then Set rnTarget = rnTarget.Offset(1)
Blad1.Range("A8:F15").Copy 
Blad2.range(rnTarget.address).PasteSpecial xlValues
Blad1.Range("J9").Value = Blad1.Range("J9").Value + 10
End Sub

Excel VBA：复制增量单元格值

1 个答案: