Question

当前，我正在使用以下代码为预定义的单元格范围向列中的单元格添加公式。问题是我需要公式的像元数随数据集的大小而波动。

Range("R9").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<0,""False"",""True"")"
Selection.AutoFill Destination:=Range("R9:R12000")
Range("R9:R62053").Select

我想做的是对于每个在B列中具有值的单元格，我希望宏将公式插入C列中的相应单元格，并在到达b列中的单元格的位置时停止没有价值。

Answer 1

下面的代码基于OP的注释。在哪里，他的代码似乎定位到R9:R12000"

Dim cell As Range, Target As Range

With Worksheets("Sheet1")
    Set Target = .Range("B9", .Range("B" & .Rows.Count).End(xlUp))
    For Each cell In Target
        If cell.Value <> "" Then cell.Offset(0, -1).Formula = "=IF(RC[-1]<0,""False"",""True"")"
    Next
End With

带循环的if语句-大数据集

1 个答案: