WPS中,A列输入数据,B列自动生成当前的真实时间,请问怎么写公式?

2025-03-31 20:54:43
推荐回答(1个)
回答1:

Sub test()
Dim i As Integer
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1) <> "" Then
Cells(i, 2) = Date
End If
Next i

End Sub