合并单元格但跳过空单元格的VBA脚本异常问题

看起来你的脚本在处理行内有空单元格或者全空行的时候，没能正确识别需要合并的非空区域。我帮你调整了代码，既能合并同一行里分散的非空单元格（哪怕中间夹着空单元格），又能跳过全空行的无效操作，同时保留居中对齐的效果：

Sub MergeAndCenterCells()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim startCol As Integer, endCol As Integer
    Dim mergeRange As Range
    Dim cell As Range
    
    ' 设置目标工作簿和工作表（可根据实际修改）
    Set wb = ActiveWorkbook
    Set ws = wb.Sheets("Sheet1")
    
    ' 定义要处理的列范围，比如这里是A到C列（对应列号1到3）
    startCol = 1
    endCol = 3
    
    ' 获取数据区域的最后一行，避免遍历到工作表底部的空行
    lastRow = ws.Cells(ws.Rows.Count, startCol).End(xlUp).Row
    
    ' 逐行遍历处理
    For currentRow = 1 To lastRow
        Set mergeRange = Nothing ' 每次循环重置合并范围
        
        ' 遍历当前行的指定列，收集所有非空单元格
        For Each cell In ws.Range(ws.Cells(currentRow, startCol), ws.Cells(currentRow, endCol))
            If Not IsEmpty(cell.Value) Then
                If mergeRange Is Nothing Then
                    Set mergeRange = cell ' 第一个非空单元格作为初始范围
                Else
                    Set mergeRange = Union(mergeRange, cell) ' 把后续非空单元格加入合并范围
                End If
            End If
        Next cell
        
        ' 如果当前行有非空单元格，执行合并和居中
        If Not mergeRange Is Nothing Then
            With mergeRange
                .Merge
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
            End With
        Else
            ' 可选：如果整行都是空的，可以在这里加处理逻辑，比如标记或者跳过
            ' ws.Cells(currentRow, startCol).Interior.ColorIndex = 3 ' 给全空行标红
        End If
    Next currentRow
End Sub

关键调整说明： #

• 精准收集非空区域：用Union方法把同一行里分散的非空单元格整合到一个范围，不管中间有没有空单元格，都能正确合并需要的部分
• 避免无效操作：只有当行内存在非空单元格时才执行合并，全空行会直接跳过
• 优化范围判断：用End(xlUp)获取真实的最后一行，不会浪费时间遍历工作表底部的空白行

你可以根据自己的需求修改startCol和endCol来指定要处理的列，比如要处理B到E列就改成startCol=2、endCol=5。

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