VBA多条件判断并填入当前时间

anteyesy

要求：
多条件填充数据，满足条件仓库C且C列为空，按下按钮会向C列填入当前时间。

如图，需要在C4填入当前时间

anteyesy

想做一个按钮，按下实现上述功能。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&
   
    ar = [A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        If Len(ar(i, 3)) = 0 And ar(i, 1) = "仓库C" Then
             ar(i, 3) = Format(Now(), "hh:ss:mm")
        End If
    Next i
   
    [A1].CurrentRegion.Value = ar
    Beep
End Sub

gwjkkkkk

请参考。。。

anteyesy

谢谢大神，解决大问题了