怎么把小于2的人员名单提取出来

PYSX

请教怎么样才能把检测时间小于2的人员名字全部显示在警戒名单处？谢谢

清风竹-

请看图片。

PYSX

谢谢，不过我试过好像还是不行，我需要的是F列数字小于2的名字显示

huipu20220102

这是你要的效果不？




Sub test()
Dim NameQty As Integer
Dim i, j As Integer

Range("2:2") = ""
NameQty = WorksheetFunction.CountA(Range("B7:B100"))
For i = 7 To 6 + NameQty
    If Cells(i, 6) < 2 Then
        j = j + 1
        Cells(2, j) = Cells(i, 2)
    End If
Next i

End Sub

huipu20220102

这是你要的效果不？



Sub test()
Dim NameQty As Integer
Dim i, j As Integer

Range("2:2") = ""

NameQty = WorksheetFunction.CountA(Range("B7:B100"))
For i = 7 To 6 + NameQty
    If Cells(i, 6) < 2 Then
        j = j + 1
        Cells(2, j) = Cells(i, 2)
    End If
Next i

End Sub

huipu20220102

Sub test()
Dim NameQty As Integer
Dim i, j As Integer

Range("2:2") = ""

NameQty = WorksheetFunction.CountA(Range("B7:B100"))
For i = 7 To 6 + NameQty
    If Cells(i, 6) < 2 Then
        j = j + 1
        Cells(2, j) = Cells(i, 2)
    End If
Next i

End Sub

清风竹-

PYSX 发表于 2022-7-3 09:18
谢谢，不过我试过好像还是不行，我需要的是F列数字小于2的名字显示

小于2的数，只有1和0，筛选选数时，自定义。 或再做一次，选”0“或空白。选择B列姓名区域，复制，选择性粘贴。