求助如何批量填写出库日期

月落天涯

向各位大神求助如何批量填写出库日期，希望达到的效果是：在出入库明细表M2,O2单元格分别输入订单号及出库日期，并点击按钮后，该订单号表里所有项，对应的H列单元格，只要是空的，就自动填写O2单元格里的日期，如若对应的H列单元格已经填写了出库日期，则不做处理，谢谢各位大神，有鲜花。

Qs18

Public Sub test() '2024/05/19
Dim arr, i, 订单号, 出库日期
订单号 = Sheet1.Range("m2").Value: 出库日期 = Sheet1.Range("o2").Value:
arr = Sheet1.Range("a3").CurrentRegion.Value
For i = 2 To UBound(arr)
    If arr(i, 2) = 订单号 Then
        If arr(i, 8) = "" Then
            Sheet1.Range("h" & i + 2).Value = 出库日期
        End If
    End If
Next i
MsgBox "完毕！"
End Sub

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.19
   
2.     dd = [m2].Value
   
3.     rq = [o2].Value
   
4.     r = Cells(Rows.Count, 1).End(3).Row
   
5.     For i = 4 To r
   
6.         If Cells(i, 2) = dd Then
   
7.             If Cells(i, 8) = Empty Then
   
8.                 Cells(i, 8) = rq
   
9.             End If
   
10.         End If
    
11.     Next
    
12.     MsgBox "OK！"
    
13. End Sub
    

复制代码