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

MS Excel 微软技术计算机

当我们尝试在 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