Excel：VBA從活動行中的單元格復制內容

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")