如果它涉及到对用户单击的任何单元格的整行执行某些操作，则可以简单地用途：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Rows(Target.Row).Select
End Sub

字符串
例如，要将背景色应用于整行：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Rows(Target.Row).Interior.Color = vbYellow
End Sub

型
在这些示例中，如果用户选择了多个单元格，则将使用所选区域的“顶”行。
若要将动作套用至所有选取的列，您可以在这些列之间进行循环：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim rw
  For Each rw In Target.Rows
    Rows(rw.Row).Interior.Color = vbRed
  Next rw
End Sub

型
......或者，从选定单元格的任意区域中选择所有行将是一个类似的循环，使用Union将每一行添加到一个区域

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim rw, sel As Range
  For Each rw In Target.Rows  'loop through selected rows
    If sel Is Nothing Then
      Set sel = Rows(rw.Row) 'if this the 1st selected row, store it
    Else
      Set sel = Application.Union(sel, Rows(rw.Row)) 'merge with prev
    End If
  Next rw
  sel.Select 'select range of rows
End Sub

型