Question

我需要帮助才能将功能分配给excel中的按钮。我想要做的是让一个按钮获取活动行中第一列的值并将其复制到另一个单元格，或者更好地将其指定为“变量”以在单元格的查找公式中使用。

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

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

这给出了

Range类的复制方法失败

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

Answer 1

我认为你正在寻找这样的东西：

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 2

因为你写道你对单元格值感兴趣：

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

Answer 3

尝试使用以下任何一项。

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

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

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

3 个答案: