如何在 Excel 中自动合并上方/左侧的空白单元格?

ms excelmicrosoft technologiescomputers更新于 2024/10/5 15:08:17

合并是 Excel 中最复杂的操作之一。如果合并单元格操作不当，数据可能会丢失且无法恢复。我们可以使用本文中提到的流程来更谨慎地执行此操作，该流程仅考虑空单元格。本教程将帮助您了解如何在 Excel 中自动合并上方或左侧的空白单元格。将多个单元格组合在一起称为合并

自动合并上方的空白单元格

在这里，我们将插入一个 VBA 模块，然后运行它来完成我们的任务。让我们看一个简单的过程，以了解如何使用 VBA 代码在 Excel 中自动合并上面的空白单元格。

步骤 1

假设有一个 Excel 工作表，其数据与下图所示类似。

要打开 VBA 应用程序，请右键单击工作表名称并选择"查看代码"，然后单击插图并选择"模块"，然后在文本框中输入"程序 1"，如下图所示。

示例 1

Sub MergeCells()
'Update By Nirmal
   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:", "Choose the Range", 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

步骤 2

现在点击 F5 运行 VBA 代码，然后在弹出窗口中选择要合并的区域，并点击"确定"。

最终输出结果如下图所示。

如果您只想合并上述单元格之一，请在 VBA 应用程序中使用程序 2。

示例 2

Sub mergeblankswithabove()
'Updated By Nirmal
   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):", "Choose the Range", xAddress, , , , , 8)
   If xRg Is Nothing Then Exit Sub
   If xRg.Columns.Count > 1 Then
      MsgBox "Only work for single column", , "Range selected"
      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

自动合并左侧空白单元格

在这里，我们将插入 VBA 模块并运行它来完成我们的任务。让我们通过一个简单的过程来理解如何使用 VBA 代码在 Excel 中自动合并左侧空白单元格。

步骤 1

假设一个 Excel 工作表，其数据类似于下图所示。

要打开 VBA 应用程序，请右键单击工作表名称并选择"查看代码"，然后单击插图并选择"模块"，然后在文本框中输入"程序 3"，如下图所示。

示例 3

Sub mergeblankswithleft()
'Update by Nirmal
   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:", "Range to merge", 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