如果左侧有值，则动态自动填充单元格 VBA

Question

我想知道如果单元格左侧的单元格有任何值，我如何创建一个自动填充单元格的 VBA 代码。我已经尝试过（xlDown）），但它使我的 Excel 工作簿崩溃。因为我的数据每周都在变化，所以我需要一个动态解决方案。下面的简单示例，我希望在 column3 中的所有单元格中设置值 100。

╔═════════╦═════════╦═════════╗ ║ 1 列 ║ 2 列 ║ 3 列 ║ ╠═════════╬═════════╬═════════╣ ║ ABC ║ AK ║ 100 ║ ╠═════════╬═════════╬═════════╣ ║ABC║║║ ╠═════════╬═════════╬═════════╣ ║ABC║AK║║ ╚═════════╩═════════╩═════════╝

提前谢谢你！

Answer 1

有两种解决方案，VBA

Dim i As Long
For i = 2 To Rows.Count
If Not IsEmpty(Cells(i, 1).Value) Or Not IsEmpty(Cells(i, 2).Value) Then
    Cells(i, 3).Value = "100"
End If
Next i

或作为细胞函数

=IF(OR(NOT(ISBLANK(A2));(NOT(ISBLANK(B2))));100;0)