用如下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
我现在有事,如有疑问可问,我空了回答。
高级筛选 选择条件为GSK1 结果放在另外一个表中 就行 或者在本报表中筛选后复制
=INDEX(Sheet1!A:A,SMALL(IF(Sheet1!$C$2:$C$433=$C$3,ROW($C$2:$C$433),5000),ROW(1:1)))
这是在另一表中C3是包含的数据,在另一表中做公式
用自动筛选吧
把你要的值筛选出来,F5定位>定位条件>可见单元格>确定,复制,再粘贴