Excel VBA:复制增量单元格值

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

copy/paste 函数按预期运行。但问题在于增量。我不知道如何只复制值而不是公式，所以复制单元格中的值发生变化，它还将 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:复制增量单元格值

Excel VBA: Copy increment cell value

excel

vba

copy

increment