如何自動合併Excel中上方/左側的空白單元格？

在本文中，我要討論的是合併上方或左側的空白單元格，如下圖所示。實際上，沒有內置的工具可以處理此任務，但是宏代碼可以。

合併上面的空白

合併空白

根據一列合併上方的空白單元格

合併上方的空白單元格（僅適用於單列）

合併剩餘的空白單元格

根據一列合併上方的空白單元格

假設三列中有一系列數據，現在您要基於C列合併以上數據。

1。按 Alt + F11 k啟用 Microsoft Visual Basic for Applications 窗口，然後單擊插入 > 模塊。看截圖：

2.然後將以下代碼粘貼到空白腳本中。看截圖：

VBA：根據下一列合併上方的空白

Sub MergeCells()
'UpdatebyExtendoffice2017025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then
            Range(xCell, xCell.Offset(-1, 0)).Merge
        End If
    Next
End Sub

3。按 F5 鍵運行代碼，然後彈出一個對話框，提醒您選擇一個工作範圍。看截圖：

4。點擊 OK，則空白單元格已在上方合併。看截圖：

合併上方的空白單元格（僅適用於單列）

這是一個宏代碼，可以在指定的列中合併上面的空白單元格。

1。按 Alt + F11鍵 啟用 Microsoft Visual Basic for Applications 窗口，然後單擊插入 > 模塊。看截圖：

2.將下面的代碼粘貼到腳本中。看截圖：

VBA：合併上方的空白單元格

Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
    Dim I As Long
    Dim xRow As Long
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "Only work for single column", , "KuTools For Excel"
        Exit Sub
    End If
    xRow = xRg.Rows.Count
    Set xRg = xRg(xRow)
    For I = xRow To 1 Step -1
        Set xCell = xRg.Offset(I - xRow, 0)
        Debug.Print xCell.Address
        If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
    Next
End Sub

3。按 F5 鍵運行代碼，並彈出一個對話框供您選擇列範圍。看截圖：

4.單擊確定。所選內容中的空白單元格已在上方合併。

合併剩餘的空白單元格

如果要合併剩餘的空白單元格，則以下代碼可以幫您一個忙。

1。按 Alt + F11鍵 啟用 Microsoft Visual Basic 在“應用程序”窗口中，然後單擊插入 > 模塊。看截圖：

2.然後將以下代碼粘貼到空白腳本中。看截圖：

VBA：合併空白

Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
    Next
End Sub

3。按 F5 鍵運行代碼，並彈出一個對話框供您選擇範圍。看截圖：

4。點擊 OK。空白單元格已合併到左側。

合併空白

合併相同的單元格或取消合併單元格

前往下載
60天免費試用購買
貝寶/ MyCommerce

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。