双击之前如何将单元格值复制到新工作表中的特定单元格？

Question

我有一个包含6列45行的工作表。在名为I.D.的B列中，每个单元格都有一个唯一的3个字母的标识符。我想要做的是创建一个VBA代码，该代码允许我双击B列中的单元格并将其复制到新工作表中的特定单元格中。我在指定范围并将信息传输到新工作表时遇到麻烦。到目前为止，我的代码如下：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Not Intersect(Target, Range("B3:B45")) Is Nothing Then
    cancel = True
    Worksheets("Dashboard").Activate
End If
End Sub

Answer 1

无需激活。直接复制相关单元格。这是一个例子

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    If Not Intersect(Target, Range("B3:B45")) Is Nothing Then
        Target.Copy Worksheets("Analysis").Range("A1")
        cancel = True
    End If
End Sub

我要复制到Analysis中的单元格A1中。随时更改它。