Question

我希望用占位符（即0）填充B列中缺少数据的单元格，这样他们就不会被我的其他宏删除。我希望有一些VBA代码可以模拟以下公式并将其应用于所有行：

= IF（B2 =＆＃34;＆＃34;，IF（COUNT（C2：I2）GT; 0,0，＆＃34;＆＃34;），＆＃34;＆＃34）

我希望这个公式的结果进入B列（上例中的单元格B2）。此公式的目的是，如果列C：I中的至少一个单元格具有数字，则仅将占位符值放在列B中。

非常感谢任何帮助/改进！

编辑：我尝试添加到宏

Sub test()
Dim nRows As Integer: nRows = Cells(Rows.Count, 1).End(xlUp).Row
Dim cell As Range, r As Range: Set r = Range("A2:A" & nRows)
Dim r1 As Range: Set r1 = Range("B2:B" & nRows)
Dim r2 As Range: Set r2 = Range("I2:I" & nRows)

For Each cell In r2
    If cell.Value > 0 Then
        For Each cell In r1
            If cell.Value = "" Then cell.Value = 0
Next cell

End Sub

Answer 1

如果列C中至少有一个单元格，我将更新B列（ActiveSheet.UsedRange）：我有一个数字

Option Explicit

Public Sub setPlaceholderInColB()
    With ActiveSheet
        .Range("B2").Formula = "=IF(COUNT(C2:I2)>0,0,"""")"
        .Range("B2").AutoFill Destination:=Range("B2:B" & .UsedRange.Rows.Count)
    End With
End Sub

填写特定空单元格

1 个答案: