首页 文章

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

提问于
浏览 次
0

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

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

= ADDRESS（2，MATCH（G13，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的新手，所以非常感谢任何帮助 . 先感谢您 .

excel vba excel-vba

1 回答

  • 0

    我可以推荐一种替代方法吗？为单元格G13提供别名，就像使用“CDPayment”范围一样 . 如果CDPayment是一个数值列表，请使用Range . （MyAliasName）和sum函数为其赋值 .

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

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

    Sheets("Rec").Range("MyCell").Value = Range("CDPayment")
    回复于

相关问题