快速查找EXCEL整个工作表中的合并单元格

1. 按下 `Alt + F11`,打开VBA编辑器。
2. 在左侧的“项目”窗口中,找到你的工作簿,右键点击该工作簿下的任意工作表,选择 **插入 -> 模块**。
3. 在新建的模块窗口中,粘贴以下代码:

Sub HighlightMergedCells()
    Dim cell As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 清除所有单元格的背景色(可选)
    ws.Cells.Interior.ColorIndex = xlNone
    
    For Each cell In ws.UsedRange
        If cell.MergeCells Then
            ' 给合并单元格添加颜色
            cell.MergeArea.Interior.Color = RGB(255, 255, 0) ' 黄色
        End If
    Next cell
    
    MsgBox "合并单元格已被标记为黄色。"
End Sub

  

4. 关闭VBA编辑器,返回Excel。
5. 按下 `Alt + F8`,选择你刚刚创建的宏 `HighlightMergedCells`,然后点击 **运行**。
6. 这会自动选择工作表中所有被合并的单元格。

posted @ 2024-09-20 13:15  自律™  阅读(0)  评论(0编辑  收藏  举报