Question

昨天我问了一个类似的问题，我遇到了另一个问题。这是我的代码（我宣布了我的工作表）：

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

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

1 个答案: