如何在 Excel 中自动为合并单元格编号?

ms excelmicrosoft technologiescomputers更新于 2024/10/6 8:44:17

在 Excel 中，我们尝试在某个项目中插入序列号时，通常使用自动填充句柄。但当我们尝试将相同的过程应用于不同大小的单元格时，就会出现错误。此过程无法使用 Excel 中的默认函数完成;因此，我们将使用 VBA 应用程序来完成此过程。

阅读本教程，了解如何在 Excel 中自动为合并单元格编号。

在 Excel 中自动为合并单元格编号

在这里，我们将首先插入一个 VBA 模块，然后运行该模块来完成任务。让我们通过一个简单的过程来了解如何在 Excel 中自动对合并单元格进行编号。

步骤 1

假设一个 Excel 工作表包含一系列不同的高度，然后尝试使用自动填充句柄应用序列号。

我们可以看到结果并不准确，但我们可以使用 VBA 代码来获得完美的结果。现在右键单击工作表名称并选择"查看代码"以打开 VBA 应用程序，然后点击"插入"并选择"模块"，然后在文本框中输入程序，如下图所示。

示例

Sub NumberCellsAndMergedCells()
   'Updated Bu Nirmal
   Dim Rng As Range
   Dim WorkRng As Range
   On Error Resume Next
   xTitleId = "select the range"
   Set WorkRng = Application.Selection
   Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
   Set WorkRng = WorkRng.Columns(1)
   xIndex = 1
   Set Rng = WorkRng.Range("A2")
   Do While Not Intersect(Rng, WorkRng) Is Nothing
      Rng.Value = xIndex
      xIndex = xIndex + 1
      Set Rng = Rng.MergeArea.Offset(1)
   Loop
End Sub