Private Sub CommandButton2_Click()
Dim rng As Range, x&
For x = 2 To Cells(Rows.Count, 4).End(3).Row
If Range("d" & x).Value > 20 Then
If rng Is Nothing Then Set rng = Rows(x) Else Set rng = Union(rng, Rows(x))
End If
Next
If Not rng Is Nothing Then rng.Select
End Sub
Union(rng, Rows(x))?
rng rows(x) 分别是什么 这2个变量搞不清