如何修改现有VBA代码，实现其他列为空时停止公式运行？

我来帮你搞定这个问题！你的代码核心问题在于用Sheet1的B列非空行数来决定公式应用的范围，这就导致哪怕Sheet4里对应行的内容是空的，公式还是会硬塞进去。我们只需要调整LastRow的计算逻辑，让它基于Sheet4里实际有数据的最后一行来确定范围，就能解决空行跑公式的问题。

修改后的完整代码 #

Sub L4FORMULA()
    Dim rngFor As Range
    Dim RNG1 As Range
    Dim LastRow As Long

    Application.Calculation = xlCalculationManual
    Set rngFor = Sheet2.Range("P2")
    Set RNG1 = Sheet2.Range("U2")

    ' 这里可以去掉Activate，直接操作Sheet4更健壮，我先保留你的原有逻辑，后面给优化建议
    Sheet4.Activate

    ' 关键修改：获取Sheet4中你指定的"其他列"的最后非空行
    ' 比如如果判断空行的依据是B列，就用"B"，你可以根据实际需求改成对应列标
    LastRow = Sheet4.Cells(Sheet4.Rows.Count, "B").End(xlUp).Row
    ' 防止没有数据时出现无效范围，确保至少从第2行开始
    If LastRow < 2 Then LastRow = 2

    ' 只给有数据的行应用公式，空行直接跳过
    rngFor.Copy Sheet4.Range("P2:P" & LastRow)
    Sheet4.Range("P2:P" & LastRow).Calculate
    Sheet4.Range("P2:P" & LastRow).Value = Sheet4.Range("P2:P" & LastRow).Value

    RNG1.Copy Sheet4.Range("U2:U" & LastRow)
    Sheet4.Range("U2:U" & LastRow).Calculate
    Sheet4.Range("U2:U" & LastRow).Value = Sheet4.Range("U2:U" & LastRow).Value

    Application.Calculation = xlCalculationAutomatic
End Sub

重要说明 #

1. LastRow的逻辑调整：原代码用CountA(Sheet1.Range("B:B"))得到的是Sheet1的B列非空数量，但这和Sheet4的实际数据行不一定匹配。现在改成直接读取Sheet4中你关注的“其他列”的最后非空行，比如你说的“其他列内容为空时停止”，就把代码里的"B"改成那个列的字母（比如"A"、"C"），这样就能精准匹配Sheet4的有效数据范围，空行不会被处理。
2. 边界错误防护：加了If LastRow < 2 Then LastRow = 2的判断，避免当Sheet4里完全没数据时，出现P2:P1这种无效的单元格范围。
3. 可选优化：去掉Activate：其实完全不需要切换到Sheet4，直接通过Sheet4.Range(...)操作更稳定，把Sheet4.Activate删掉就行，代码功能完全不受影响。

这样修改后，公式就只会应用到Sheet4中指定列有数据的行，后续空行就不会再执行公式啦。

内容的提问来源于stack exchange，提问作者aicirtap