一键检索多行

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
l = Sheet2.[A65536].End(3).Row
m = [C65536].End(3).Row
n = m - l
Range("u" & m) = n
Range("t" & m) = Now
For i = l To m
   Set rg = Sheet1.Range("C:C").Find(Cells(i, "C"), LookIn:=xlValues, LookAt:=xlWhole)
   If Not rg Is Nothing Then
      r = rg.Row
      For j = 1 To 19
         Cells(i, j) = Sheet1.Cells(r, j)
      Next j
   End If
   
Next i
'下面写上增加几条，时间是多少

Application.ScreenUpdating = True
MsgBox "done！added" & n
End Sub