如何通过VBA将选中的含‘Saturday’单元格向右合并4个单元格？

你现有的代码已经完成了边框设置和筛选出含"Saturday"的单元格范围rng1，只需添加合并逻辑即可实现需求。以下是修改后的完整代码：

Sub MergeSaturdayCells()
    Dim rng As Range
    Set rng = Range("d12:h42, q12:u42")
    ' 设置边框样式
    With rng.Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
    End With
    
    Dim rCell As Range
    Dim rng1 As Range
    ' 筛选出值为"Saturday"的单元格
    For Each rCell In Range("d12:h42, q12:u42")
        If rCell.Value = "Saturday" Then
            If rng1 Is Nothing Then
                Set rng1 = rCell
            Else
                Set rng1 = Application.Union(rCell, rng1)
            End If
        End If
    Next
    
    ' 关闭合并时的提示弹窗
    Application.DisplayAlerts = False
    
    ' 遍历每个目标单元格，向右合并4个单元格（当前单元格+右侧4列，共5个单元格）
    If Not rng1 Is Nothing Then
        Dim mergeCell As Range
        For Each mergeCell In rng1
            ' 取当前单元格到右侧第4列的范围
            Range(mergeCell, mergeCell.Offset(0, 4)).Merge
            ' 可选：设置合并后内容居中
            mergeCell.HorizontalAlignment = xlCenter
        Next
    End If
    
    ' 恢复提示弹窗显示
    Application.DisplayAlerts = True
End Sub

关键修改说明： #

• 添加了对rng1的非空判断，避免因没有找到"Saturday"单元格导致报错
• 新增循环遍历每个目标单元格，通过Offset(0,4)获取右侧第4列的单元格，结合当前单元格组成合并范围
• 加入了合并后内容居中的设置（可选，根据需求调整）
• 最后恢复Application.DisplayAlerts为True，避免影响后续操作

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