Question

当一个单元格包含数字“1”时，我正在寻找一个代码来执行语句。

我一直在网上找到这个代码。

compile

然而，如果只读取单元格C6，则此工作。我如何设置它以便从C2：C5000读取一系列单元格。就像我的手机一样，当手机C2显示“1”时D2显示“是”，当手机C3显示不同的数字时，手机D3显示“否”？

感谢您的大力帮助

HORO

Answer 1

你可以这样避免循环：

Columns(3).SpecialCells(XlCellType.xlCellTypeConstants, xlNumbers).Offset(, 1).FormulaR1C1 = "=IF(RC[-1]=1,""yes"",""no"")"

如果你想摆脱公式：

With Columns(3).SpecialCells(XlCellType.xlCellTypeConstants, xlNumbers).Offset(, 1)
    .FormulaR1C1 = "=IF(RC[-1]=1,""yes"",""no"")"
    .value = .value
End With

如何在VBA中“如果包含单元格”

1 个答案: