显示单击的单元格的值以及VBA Excel中同一行的另一个值

Question

我正在使用以下宏来显示A1单元格中点击单元格的值（范围A5：A200）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("A5:A200")) Is Nothing Then
            Range("A1").Value = Selection.Value
        End If
    End If
End Sub

......而且效果很好。此外，在A2中，我希望显示C列的相关值。

实施例： 我点击A10 - ＆gt;并查看A1中的值，然后在A2中我希望看到来自C10单元格的值

Answer 1

您可以使用.row的{​​{1}}属性。但是，您已经Selection在Target事件中使用Worksheet_Selection()作为您的＆＃34;选择＆＃34;范围，并使用该范围优于使用选择。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("A5:A200")) Is Nothing Then
            Range("A1").Value = Target.Value
            Range("A2").Value = Cells(Target.row, "C")
        End If
    End If
End Sub

因此，请使用Target替换您的选择范围，并使用row中的Cell()属性从C列中获取您的值。