vba - 我的代码生成一个无限循环

Question

我的代码在所有 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

Answer 1

不需要循环。使用.FormulaR1C1
不要使用激活和选择，它们会减慢代码

Dim lastrow As Long
With Worksheets("sheet1")
    lastrow = .Cells(.Rows.Count, "F").End(xlUp).Row
    .Range("H2:H" & lastrow).FormulaR1C1 = "=IF(RC[-2] <TODAY(),""Send Reminder"",""Do not Send Reminder"") "
End With

这会将公式一次放入所有单元格中，并且 RC[-2] 正确引用 F 列中的同一行