VBA多条件批量插入公式问题求助（附现有代码）

Sub formula_insert()
    With ActiveSheet
        Dim targetCol As Range
        Dim endRow As Long, startRow As Long
        startRow = 2
        
        ' 定位A列中首个"end"的行号，无"end"则取A列最后一行
        On Error Resume Next
        endRow = .Columns("A").Find(What:="end", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Row
        On Error GoTo 0
        If endRow = 0 Then endRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        ' 若起始行大于结束行，直接退出
        If startRow > endRow Then Exit Sub
        
        ' 遍历第1行，筛选含"xyz"或"yxz"的列
        For Each targetCol In .Rows(1).Cells
            If InStr(1, targetCol.Text, "xyz", vbTextCompare) > 0 Or _
               InStr(1, targetCol.Text, "yxz", vbTextCompare) > 0 Then
                
                ' 批量给目标列的有效行范围写入公式
                .Range(.Cells(startRow, targetCol.Column), .Cells(endRow - 1, targetCol.Column)).FormulaR1C1 = "=RC[-1]/RC2"
            End If
        Next targetCol
    End With
End Sub

关键修改说明 #

• 动态适配目标列：替换原代码中硬编码的Offset(0,3)（固定指向D列），改为用targetCol.Column直接定位符合条件的列，支持任意数量的目标列。
• 固定引用B列：将公式从=RC[-1]/RC[-2]改为=RC[-1]/RC2，R1C1格式中RC2代表当前行的第2列（即B列），确保始终使用固定的B列作为除数。
• 优化行范围定位：用Find方法直接找到A列的"end"行，避免逐行循环；同时兼容无"end"的场景，自动取A列最后一行作为结束边界。
• 提升运行效率：不再逐单元格写入公式，而是一次性给整个目标行范围赋值，大幅减少操作次数，数据量大时效果更明显。

原代码问题核心 #

原代码通过Offset(0,3)硬绑定了目标列（D列），导致无论找到多少符合条件的列，都只会往D列写入公式，无法适配多列需求；另外逐单元格循环的方式效率较低，也未处理无"end"的边界情况。

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