VBA-Find()使用实例

Sub TPGRR()
With Sheets("Repair Rate By Model Think")
      r = .Cells(.Rows.Count, 1).End(xlUp).Row
      For i = 2 To r
           c = Sheets("TPG-RR").UsedRange.Columns.Count
          If .Cells(i, 1) Is Nothing Then
          ElseIf UCase(Trim(.Cells(i, 1))) = UCase(Trim("others")) Then
          Else
                 rs = Sheets("TPG-RR").Columns(1).Find(.Cells(i, 1), , , xlWhole).Row
                 .Cells(i, 2) = Sheets("TPG-RR").Cells(rs + 1, c - 1)
                 .Cells(i, 3) = Sheets("TPG-RR").Cells(rs + 2, c - 1)
                 .Cells(i, 4) = Sheets("TPG-RR").Cells(rs + 4, c - 1)
                 .Cells(i, 5) = Sheets("TPG-RR").Cells(rs + 5, c - 1)
         End If
    Next i
End With
End Sub