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

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