快速查詢EXCEL整個工作表中的合併單元格

自律™發表於2024-09-20

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. 這會自動選擇工作表中所有被合併的單元格。

相關文章