在另一台PC上运行时，自动填充上的Excel VBA Runtime 1004错误

Tom G. 发表于 Dev

汤姆·G

我真的可以在这里使用知识之泉！

我有一个VBA封装的电子表格，我要它在可变范围内自动填充公式。它可以在我的PC上完美运行，但对同事却不起作用。

错误是：运行时错误1004

代码是：

Sub FillFormula()    

Dim BOBdate As Date 
Dim Bobrow, lastrow As Integer

lastrow = ActiveCell.CurrentRegion.Rows.Count + 2

BOBdate = Sheets("BOB Pivot").Range("a3").Value

Cells.Find(What:=BOBdate, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

    ActiveCell.Offset(0, 5).Select
    ActiveCell.FormulaR1C1 = _
    "=iferror(INDEX('BOB Pivot'!R2C1:R50000C50,MATCH('Rooms Daily'!RC2,'BOB Pivot'!R2C1:R50000C1,0),MATCH('Rooms Daily'!R3C,'BOB Pivot'!R2C1:R2C50,0)),0)"

BOBrow = ActiveCell.Row

With ActiveCell
    .AutoFill Destination:=Range("G" & BOBrow & ":AJ" & BOBrow), Type:=xlFillDefault
    .AutoFill Destination:=Range("G" & BOBrow & ":AJ" & LastRow), Type:=xlFillDefault
    .AutoFill Destination:=Range("G" & BOBrow & ":G" & LastRow), Type:=xlFillDefault

End With

End Sub

不上传整个工作簿，有什么明显的事情吗？

我是vba的菜鸟，所以如果编码太糟糕了，请保持内在的咯咯笑声！

谢谢

汤姆

汤姆·G

解决了...修改了自动填充的传播方式

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。