用于将值从一个范围复制到另一个范围的VBA代码

我想编写一段VBA代码，执行以下操作：

使用单元格G13中的值返回单元格的单元格引用，以确定列：

=地址2，匹配13，A2:K2,0,4

将范围CDPayment中的值复制到该单元格中

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

Dim populate As Long

populate = "=ADDRESS(2,MATCH(RC[-3],R[-11]C[-9]:R[-11]C[1],0),4)"
'This will be the variable that holds the cell reference of the cell I want to copy the       values to

Range("CDPayment").Copy
Sheets("Rec").Range("populate").PasteSpecial xlPasteValues

---

我是VBA的新手，因此非常感谢您的帮助。提前谢谢。

我能推荐一种替代方法吗？为单元格G13指定一个别名，就像您对CDPayment range所做的那样。如果CDPayment是一个数值列表，请使用Range.MyAliasName和sum函数为其指定总和：

Sheets("Rec").Range("MyCell").Value = WorksheetFunction.Sum(Range("CDPayment"))

如果它只是一个字符串值：

Sheets("Rec").Range("MyCell").Value = Range("CDPayment")

---

看起来你是在要求一个软件开发，而不是问一个问题：你能把你的帖子缩小到一个明确定义的问题吗？你好，谢谢你的回复。我决定走另一条路。”代码“Dim y作为错误时的整数继续下一个y=工作表函数。匹配范围G14，范围单元格3，1，单元格3，11，0 ActiveSheet.Cells10，y。值=范围CDPayment如果x=则MsgBox未找到匹配值如果End Sub”