excel - 如何根据另一张工作表中的数据替换自动填充范围

Question

请帮助我将自动填充范围代码替换为可以解释表 RPdata 列中的差异的代码。可以看到，对于 A，范围当前设置为 A2:A520，我尝试构建一个自动范围来解释任何差异，但它不起作用（编译错误）。

   Sheets("Calc Data").Select

        Range("A2").FormulaR1C1 = _
            "=CONCATENATE(RPdata[@[Parish Code]]&"", ""&RPdata[@Parish])"
        Range("A2").AutoFill Destination:=Range("A2:A520"), Type:=xlFillDefaul

        Range("B2").FormulaR1C1 = "=RPdata[@[Building ID 1]]"
        Range("B2").AutoFill Destination:=Range("RPdata[@[Building ID1]]" & Rows.Count).End(1xUp).Row)

Answer 1

使用表格的行数来塑造目标范围。

dim rws as long

with workSheets("Calc Data")

    rws = .listobjects("RPdata").databodyrange.rows.count

    .cells(2, "A").resize(rws, 1).FormulaR1C1 = _
        "=CONCATENATE(RPdata[@[Parish Code]]&"", ""&RPdata[@Parish])"
    .cells(2, "B").resize(rws, 1).FormulaR1C1 = _
        "=RPdata[@[Building ID 1]]"

end with