Question

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

我有一个VBA镶嵌的电子表格，我告诉他在一个变量范围内自动填充公式。它在我的电脑上完美运行，但在同事身上失败了。

错误是：运行时错误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的菜鸟，所以如果编码很糟糕的话，请保持内心的咯咯笑声！

谢谢

汤姆

Answer 1

据我所知，代码没问题。在同事计算机上运行工作簿时，如果可能，尝试从与计算机相同的路径运行。否则，请将计算机上的工作簿保存到两台计算机上相同的默认系统位置，然后重试。

Answer 2

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

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

2 个答案: