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

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

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

3、输入代码：Sub my()Dim iDim jFor i = 1 To 补朱锚卦3 'A列行数从1到3事恐皇卫循环For j = 1 To 6 'B列行数从1到6循环If Cells(i, 1).Value = Cells(j, 2).Value ThenCells(i, 3).Value = Date '若A列值在B列中有相同数值返回日期End IfNextNextEnd Sub

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