Excel 为下一个循环插入公式

找不到可以回答我问题的线程，os我在这里。请提供一个链接，如果有一个我没有找到

使用Excel 2010 这些评论应该足以说明我在做什么。 我得到了应用程序定义的或对象定义的错误（运行时错误1004），我可以找到它。任何帮助都将不胜感激。旁注：当一个公式如=if（A1=B1，“，3）if实际将公式放置在单元格中并在满足条件时在每个单元格中显示3时，我可以使循环工作。它只是添加了列，行，我尝试了&Range（$，C）&，各种组合，所以，告诉我我有多大的胸部，并帮助我进行简单的修复

提前谢谢

私有子命令按钮1_单击（）

---

End Sub

看起来您应该使用R和C来引用可以从中返回的a

我还删除了您的

R=R+2

，并更改了For的步骤。。。旁边是增量2。你不应该为…而自我增值。。。下一个在循环中

我把作业改成了。虽然您的方法经常有效，但它是不正确的，如果单元格格式为文本，则公式将以文本形式进入单元格，看起来像一个公式

您的变量声明应该更像以下内容

Dim R As Long, C As Long
Dim Frmla1 As String, Frmla2 As String, Frmla3 As String

---

每个声明都应该带有一个变量类型。没有它，它们被声明为对象/变量类型，

在重新阅读代码中的注释后，我不确定

R=R+2

应该做什么。也许

步骤2

的语法不正确。

    For R = 4 To 301 Step 2
        ActiveSheet.Cells(R, C).Formula = _
          Frmla1 & Cells(R, C).Address(0, 0) & Frmla2 & Cells(R, C).Address(0, 0) & Frmla3
    Next R

Dim R As Long, C As Long
Dim Frmla1 As String, Frmla2 As String, Frmla3 As String