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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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 @   自律™  阅读(114)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· 阿里巴巴 QwQ-32B真的超越了 DeepSeek R-1吗?
· 【译】Visual Studio 中新的强大生产力特性
· 10年+ .NET Coder 心语 ── 封装的思维:从隐藏、稳定开始理解其本质意义
· 【设计模式】告别冗长if-else语句:使用策略模式优化代码结构
点击右上角即可分享
微信分享提示