Excel VBA 如何用变量行号清空非连续行合并单元格区域内容

方案1：数组遍历实现（易维护，推荐） #

直接把所有目标行号存入数组遍历处理，后续增删行号只需修改数组内容即可，代码如下：

Sub ClearTargetRows()
    Dim targetRows As Variant, rowItem As Variant
    ' 括号内填入所有需要处理的行号，按需增删即可
    targetRows = Array(25, 65, 67, 69, 71, 77, 79, 81, 83)
    
    For Each rowItem In targetRows
        ' 这里J对应你要操作的列，如需修改其他列替换即可
        Range("J" & rowItem).MergeArea.ClearContents
    Next rowItem
End Sub

方案2：Union批量操作（性能更优，适合行号数量多的场景） #

将所有目标单元格合并为一个Range对象一次性处理，无需循环：

Sub ClearTargetRowsBatch()
    Dim targetRng As Range
    ' 组装所有目标单元格
    Set targetRng = Range("J25")
    Set targetRng = Union(targetRng, Range("J65"), Range("J67"), Range("J69"), Range("J71"))
    Set targetRng = Union(targetRng, Range("J77"), Range("J79"), Range("J81"), Range("J83"))
    
    ' 一次性清空所有合并区域内容
    targetRng.MergeArea.ClearContents
End Sub

注意事项 #

• 你之前编写的测试代码列号写为D，和原需求的J列不一致，实际使用时注意核对列号
• 如果后续有新增/删除处理行的需求，只需修改数组元素或Union参数即可，无需重复编写清空逻辑

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