将两列中有符合条件的单元格所在的行提取出来

ZL-H

如图，附件也发了，求大神指点，我想将hour列的1和type列的PM2.5_24h所在的行提取出来，该怎么用函数实现？可以批量操作吗？

624134745

  筛选尝试下？B列筛选出1，C列筛选出PM2.5-24H。 复制粘贴

函数二把刀

提出到什么地方？是跨表提出，集中在一起？还是？

ZL-H

函数二把刀 发表于 2019-12-1 14:00
提出到什么地方？是跨表提出，集中在一起？还是？

最好能跨表提出😭

ZL-H

624134745 发表于 2019-12-1 12:46
筛选尝试下？B列筛选出1，C列筛选出PM2.5-24H。 复制粘贴

用函数实现

ZL-H

函数二把刀 发表于 2019-12-1 14:00
提出到什么地方？是跨表提出，集中在一起？还是？

最好能够跨表提出，因为有好多差不多的表

函数二把刀

找人写vba，速度快

ZL-H

函数二把刀 发表于 2019-12-1 17:05
找人写vba，速度快

去VBA板块找吗

1055751654

Sub s()
Application.DisplayAlerts = False
On Error Resume Next
Dim sh As Worksheet
    Sheets("Sheet2").Delete
        Set sh = Worksheets.Add
        sh.Name = "Sheet2"
    arr = Worksheets("china_sites_20150102").Range("a1").CurrentRegion
For i = 2 To UBound(arr)
If Cells(i, 2).Value = 1 And Cells(i, 3).Value = "PM2.5_24h" Then
Worksheets("china_sites_20150102").Rows(i).Copy Worksheets("sheet2").Range("A65536").End(3).Offset(1, 0)
Worksheets("china_sites_20150102").Rows(1).Copy Worksheets("sheet2").[a1]
End If
Next
Application.DisplayAlerts = True
MsgBox "OK!完成！！！", 48, "温馨提示……"
End Sub