用如下VBA可选取这些行,然后copy到另一表:
Sub try()
Dim rag As Range, rags As Range
For Each rag In Range("F3:F300")
If rag.Value = "GSK1" Then
If rags Is Nothing Then
Set rags = rag.EntireRow
Else
Set rags = Union(rags, rag.EntireRow)
End If
End If
Next
rags.Select
End Sub
我现在有事,如有疑问可问,我空了回答。
本回答被提问者采纳