求助：基于指定列单元格值循环运行对应VBA宏的问题

你的核心问题是缺少逐行循环逻辑，且未在每次调用宏前激活对应行的BG列单元格（你的宏仅作用于活动单元格）。以下是修正后的完整代码：

Sub WireUpdate()
    Dim lastRow As Long
    Dim currentRow As Long
    
    ' 获取A列最后一行的行号，确定遍历范围
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 从第8行开始，逐行遍历到最后一行
    For currentRow = 8 To lastRow
        ' 激活当前行的BG列单元格——这是关键，确保宏作用在正确位置
        Cells(currentRow, "BG").Activate
        
        ' 根据B列单元格的值，调用对应宏
        Select Case UCase(Cells(currentRow, "B").Value)
            Case "OPGW"
                Call OPGW2
            Case "CONDUCTOR"
                Call Conductor2
            Case Else
                ' 非目标值时，BG列设为"0"（可按需调整）
                Cells(currentRow, "BG").Value = "0"
        End Select
    Next currentRow
End Sub

关键说明： #

• 循环结构：用For...Next实现从第8行到数据末尾的逐行遍历，解决你之前无法自动下移的问题。
• 激活目标单元格：每次循环先激活对应行的BG列单元格，保证OPGW2和Conductor2宏作用在指定位置。
• 逻辑优化：用Select Case替代嵌套If，逻辑更清晰；UCase函数避免因单元格值大小写不一致导致的匹配失败。
• 避免覆盖：按行顺序逐一处理，而非批量处理同一类型后再处理另一类型，彻底解决宏循环导致的覆盖问题。

你之前代码的问题： #

• 无循环逻辑，仅处理当前活动单元格所在的单行，无法自动遍历后续行。
• 让宏自身循环时，因批量处理顺序问题，后处理的内容覆盖了先处理的结果。

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