Question

嗨，请参阅以下代码，尝试在vba中使用if来打印基于卷的体积和包装尺寸。但我的代码仅适用于体积部分，但涉及尺寸时，它始终是打印第一个条件，即很小，不打印其余部分。你能帮我看看我要去哪里错了。该表具有以下多个行，这些行具有多个行中的值：包装名称，日期，长度，宽度，高度，体积，大小。

适用于音量，但不适用于尺寸enter image description here

Sub FillDown（）

结束子

Answer 1

这似乎是X/Y problem。您不希望所有G2：G44的第2行有相同的 small / medium / large 值。

Sub smlFillDown()

    With ThisWorkbook.Sheets("Sheet1")
        .Range("F2:F44").Formula = "=PRODUCT(C2:E2)"
        .Range("G2:G44").Formula = "=lookup(f2, {0, 1000000, 9000000 }, {""small"", ""medium"", ""large""})"
    End With

end sub

如果在VBA代码中else语句无法正常工作

1 个答案: