Question

我希望宏将两个不同的公式粘贴到同一列（A）中。原因是我的公式引用了2个不同的表，所以当我将它们合并为一个公式时，我的单元格范围会混乱。

因此，我的代码使用了参考表1中最后使用的行并将我的公式插入到A列中。所以我的问题是，如何定义一个范围，允许我在A列的最后使用的行之后插入一个公式，但是范围必须根据B列中的最后使用范围（在同一工作表中）停止。因此，如果B列在第33行停止，我希望只在单元格33之前插入公式

这是我到目前为止所拥有的

With ThisWorkbook

With .Sheets("XYZ")
 lRow = .Cells(.Rows.count, 1).End(xlUp).Row

With.Sheets("ABC")
 Set rng2 = .Range("A6:A" & lRow)
     rng2.Formula = "=IF(..Very long formula..)"

Answer 1

尝试

dim lRow as long

With ThisWorkbook

    With .Sheets("XYZ")
        lRow = .Cells(.Rows.count, "A").End(xlUp).Row
        'or is it ....?
        lRow = .Cells(.Rows.count, "A").End(xlUp).Row + 1
    end with

    With.Sheets("ABC")
        .Range(.cells(lRow, "A"), .cells(.rows.count, "B").end(xlup).offset(0, -1)).formula = _
            "=IF(..Very long formula..)"
    end with

end with

在列中最后使用的单元格之后插入公式的宏

1 个答案: