Excel 在vba中如何将变量放入公式中

脚本如下：

Sub Macro1()

Lastrow1 = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count,5).End(xlDown).Row

For y = 2 To Lastrow1

If Cells(y, 6) <> "" Then
    Cells(y, 7).Formula = "=Networkdays(E2,F2,$S$2:$S$14)"

Else
    Exit For
End If

Next y

End Sub

Sub宏1（）
Lastrow1=ThisWorkbook.Sheets（“Sheet1”）.Cells（Rows.Count，5）。End（xlDown）。Row
对于y=2到最后一行1
如果单元格（y，6）“，则
单元格（y，7）。公式=“=网络天数（E2，F2，$S$2:$S$14）”
其他的
退出
如果结束
下一个y
端接头

我的问题从这里的公式开始；例如，我想选择E2、F2和那些常量“$S$2:$S$14”，然后循环到E3、F3，直到在“F列”中找不到任何内容，循环将结束

---

关于这个有什么提示吗？这可能已经被问了好几次了，但一旦你开始，问题不仅在于缺乏知识，还在于缺乏提出正确问题的技能。

可能类似于下面的代码。
它查找最后一行（使用

xlUp

而不是

xlDown

），并将公式放在第2行和第G列的最后一行之间

Public Sub InsertFormula()

    Dim LastRow As Long

    With ThisWorkbook.Worksheets("Sheet1")

        LastRow = .Cells(.Rows.Count, 6).End(xlUp).Row

        'Put the formula in the range G2:G & LastRow
        .Range(.Cells(2, 7), .Cells(LastRow, 7)).Formula = "=Networkdays(E2,F2,$S$2:$S$14)"
    End With

End Sub

那么：

Sub Macro1()

Lastrow1 = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 5).End(xlDown).Row

For y = 2 To Lastrow1
    If Cells(y, 6) <> "" Then
        Cells(y, 7).Formula = "=Networkdays(E" & y & ",F" & y & ",$S$2:$S$14)"
    Else
        Exit For
    End If
Next y

End Sub

Sub宏1（）
Lastrow1=ThisWorkbook.Sheets（“Sheet1”）.单元格（Rows.Count，5）.结束（xlDown）.行
对于y=2到最后一行1
如果单元格（y，6）“，则
单元格（y，7）。公式=“=网络天数（E”&y&“，F”&y&“，$S$2:$S$14）”
其他的
退出
如果结束
下一个y
端接头

好的，我真的很努力地咬我的舌头。我要说的是，我在选择了

Sheet2

的情况下尝试了这一点，在我整理出

变量未定义的错误后，代码没有成功运行，我的
Lastrow1
始终是1048576，因为它从第1048576行开始，从那里向下看。咆哮：）在我的情况下，问题解决了，谢谢你，我只是不知道在公式部分正确地加入include变量