为什么我的自动填充代码在没有引用VBA的单元格中显示＃N / A？

我昨天也提过一个类似的问题，而且我遇到了另外一个问题。 这是我的代码（我有我的工作表声明）：

Dim lrp As Long 'last row for pricing worksheet Dim lrf As Long 'last row for forecasting worksheet lrp = Pricing.Range("A3", Pricing.Range("A" & Rows.Count)).End(xlUp).Row lrf = Forecast.Range("A6", Forecast.Range("A" & Rows.Count)).End(xlUp).Row 'Pricing Worksheet Pricing.Range("B3:AR3").autofill Destination:=Pricing.Range("B3:AR" & lrp) 'Forecasting Worksheet Forecast.Range("B6:HO6").autofill Destination:=Forecast.Range("B6:HO" & lrf) 

如果我们以定价工作表为例，我之所以使用（“B3：AR3”）的原因是因为我有所有这些单元格中的公式，我想复制到最后一行（lrp）。 这段代码会自动填充所有内容，但是它也会将公式添加到上面的单元格中。 所以现在B2例如有一个公式，它应该是“＃N / A”，当它应该是我的头。 如何从第3行（从B列到AR）向下自动填充公式，直到最后一行，而不将其包含在标题中。

谢谢你们的帮助 对于VBA还是新的。

Answer 1

更改：

 lrp = Pricing.Range("A3", Pricing.Range("A" & Rows.Count)).End(xlUp).Row lrf = Forecast.Range("A6", Forecast.Range("A" & Rows.Count)).End(xlUp).Row 

至

 lrp = Pricing.Range("A" & Rows.Count).End(xlUp).Row lrf = Forecast.Range("A" & Rows.Count).End(xlUp).Row