小编Sch*_*Ben的帖子

我的代码在所有H2列中粘贴相同的公式.我没有在代码中的任何地方看到它应该这样做.

Worksheets("sheet1").Activate
Range("F2").Activate
Do Until IsEmpty(ActiveCell)
    If ActiveCell.Value <> "" Then
          Pickle = ActiveCell.Address
          ActiveCell.Offset(0, 2).Select
          ActiveCell.Value = "=IF(" + Pickle + " <TODAY(),""Send Reminder"",""Do not Send Reminder"") "
          ActiveCell.Offset(0, -2).Select
     End If 
     ActiveCell.Offset(1, 0).Select
Loop