判断指定列数据，谢谢老师!

ztd123

判断指定列数据，谢谢老师!

汉唐

Private Sub CommandButton1_Click()
With Sheet1
r = .Cells(.Rows.Count, 4).End(xlUp).Row
arr = .Cells(2, 1).Resize(r - 1, 10)
End With
For i = 2 To UBound(arr)
If arr(i, 8) = Empty Then GoTo line1
Next
MsgBox "考勤全满，没有缺勤"
line1:
End Sub

DevilW

yanglinzi

请测试。。。

gwjkkkkk

Sub test()
With Range("D2", Cells(Rows.Count, "D").End(xlUp))
    ar = .Value
    For i = 1 To UBound(ar)
        If .Cells(i, 1).Offset(, 4).Value <> "" Then n = n + 1
    Next
End With
If n = UBound(ar) Then MsgBox "考勤全满，没有缺勤"
End Sub

ykcbf1100

参与一下。