Excel：VBA从活动行中的单元复制内容

我需要帮助将一个函数分配给在Excel中的button。 我想要做的是有一个button获取活动行中的第一列的值，并将其复制到另一个单元格，或更好地将其指定为单元的查找公式中使用的“variables”。

我已经尝试了一些变体，例如：

Range("A" & (ActiveCell.Row)).Copy ("H2") 

这给了

Range类的复制方法失败

我是VBA脚本的初学者，所以我不知道如何继续前进。

Answer 1

既然你写了你对cell值感兴趣：

 Range("H2").value = Cells(ActiveCell.row, 1).value 

Answer 2

我假设你正在寻找这样的东西：

 Range("A" & (ActiveCell.Row)).Copy Destination:=Range("H2") 

然而，你应该为此目的插入一个procedure ，而不是一个function 。 所以，完整的代码（包括更明确的编码风格）可能是这样的：

 Option Explicit Public Sub tmpSO() Dim ws As Worksheet Set ws = ThisWorkbook.ActiveSheet ws.Range("A" & (ActiveCell.Row)).Copy Destination:=ws.Range("H2") End Sub 

Answer 3

尝试下面的任何一个。

 Range("A" & (ActiveCell.Row)).Copy [H2] 

---

 Range("A" & (ActiveCell.Row)).Copy Range("H2")