怎么可以得到空白的具体日期

sunya_0529

cfull 发表于 2023-2-28 16:39
班次里面是1和2，和空白，只提取显示1的具体日期

Sub 提取未打卡记录()
Dim c As Range, arr(9999, 1), i%
With ActiveSheet.[A1]
  arr(0, 0) = "姓名"
  arr(0, 1) = "缺卡日期"
  For Each c In .CurrentRegion
'    If Len(c.Value) = 0 Then
    If c.Value = 1 Then
      i = i + 1
      arr(i, 0) = c.Parent.Cells(c.Row, 1).Value
      arr(i, 1) = c.Parent.Cells(1, c.Column).Value
    End If
  Next
  .End(xlToRight).Offset(0, 2).Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1) = arr
End With
End Sub