Excel VBA-满足一定条件时返回当前日期

1、首先打开Excel表格，比如book1，A列值在B列中有相同项时，需要在C列返回当前日期。

2、单击视图-宏，输入宏名my ，单击创建。

3、输入代码：

Sub my()

Dim i

Dim j

For i = 1 To 3   'A列行数从1到3循环

For j = 1 To 6   'B列行数从1到6循环

If Cells(i, 1).Value = Cells(j, 2).Value Then

Cells(i, 3).Value = Date    '若A列值在B列中有相同数值返回日期

End If

Next

Next

End Sub

4、回到sheet1中，单击宏-查看宏-执行，得到结果。