如何在 Excel 中删除单元格中的所有空行或首行?

ms excelmicrosoft technologiescomputers更新于 2024/8/3 2:20:17

Microsoft Excel 是一款功能强大的电子表格程序，可帮助您高效地组织和分析数据。在处理大量数据集或单元格中的文本时，您可能会遇到需要删除空行或首行以提高数据的可读性和呈现效果的情况。

在本文中，我们将介绍两种典型情况——删除单元格中的所有空行和仅删除首行。我们将逐步指导您如何使用各种 Excel 兼容技术来执行这些操作。无论您的 Excel 水平如何，本视频都能帮助您精简数据并节省时间。那么，让我们开始学习如何删除 Excel 单元格中的首行或所有空行吧!

删除单元格中的所有空白行

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们看一个简单的过程，了解如何在 Excel 中删除单元格中的所有空行或仅删除第一行。

步骤 1

假设有一个 Excel 工作表，其中有一个包含多行单元格的列表，类似于下图。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。然后，点击"插入"并选择"模块"，然后将以下代码复制到文本框中。

右键单击 >"查看代码">"插入">"模块">"复制"。

代码

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Range of cells", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
   For I = 1 To Len(xCell) − Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
      xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
   Next
Next
End Sub

步骤 2

然后将工作表保存为启用宏的模板，点击 F5 运行模块，选择单元格区域，然后点击"确定"完成任务。

保存 > F5 > 单元格 > 确定。

注意

如果只想删除第一行，可以使用以下代码。

代码

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
   Dim xCell As Range
   For Each xCell In Target.Cells
      xCell.Value = Right(xCell.Value, Len(xCell.Value) − InStr(1, xCell.Value, vbLf))
   Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Range of cells", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub