使用VBA在Excel中选中对应行：合并单元格设备公差编辑问题

问题场景 #

A列（设备名称）存在跨行合并单元格，需要选中指定设备，编辑其对应所有行的公差值，原代码无法正常运行。

示例表格 #

原代码问题分析 #

• 合并单元格仅第一个单元格的MergeCells属性为True，后续属于该合并区域的单元格此属性为False，导致循环跳过这些行。
• For Each cell In Range("B" & i)仅遍历单个单元格，未覆盖合并区域对应的所有B列行。

修正后的VBA代码 #

Sub EditDeviceTolerance()
    Dim targetDevice As String
    Dim mergeArea As Range
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要编辑的目标设备名称
    targetDevice = "Height Gauge" ' 可按需替换
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 1 To lastRow
        ' 处理带设备名称的合并单元格（仅合并区域首单元格有值）
        If Not IsEmpty(Range("A" & i).Value) And Range("A" & i).MergeCells Then
            Set mergeArea = Range("A" & i).MergeArea
            ' 判断是否为目标设备
            If mergeArea.Cells(1, 1).Value = targetDevice Then
                ' 批量赋值公差（也可替换为逐个单元格处理逻辑）
                Range("B" & mergeArea.Row & ":B" & mergeArea.Row + mergeArea.Rows.Count - 1).Value = "0.01"
                Exit For ' 找到目标设备后退出循环，若需处理多个同名设备可删除此行
            End If
        ' 处理非合并的单个设备行
        ElseIf Not IsEmpty(Range("A" & i).Value) Then
            If Range("A" & i).Value = targetDevice Then
                Range("B" & i).Value = "0.01"
                Exit For
            End If
        End If
    Next i
End Sub

代码关键说明 #

• 通过MergeArea获取合并单元格的完整区域，精准定位设备对应的所有行。
• 仅处理A列非空单元格，避免重复遍历合并区域内的空行。
• 支持批量赋值或逐个单元格处理公差，可根据需求修改内部逻辑。
• 若需处理多个同名设备，删除Exit For语句即可遍历所有匹配项。

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