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

我们如何在 Excel 中为不同大小的合并单元格列表填充序列号呢？首先想到的是拖动自动填充手柄来填充合并的单元格，但在这种情况下，我们会收到以下警告消息，并且无法填充合并的单元格。

由于填充手柄不支持合并的单元格，这里我可以介绍一些其他解决此问题的技巧。

使用 VBA 代码自动编号/填充合并单元格

使用 VBA 代码自动编号/填充合并单元格

以下 VBA 代码可以帮助您快速对选定的合并单元格进行编号。请按照以下步骤操作：

1. 按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA 代码：自动编号合并单元格

Sub NumberCellsAndMergedCells()
	'Update 20141028
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	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("A1")
	Do While Not Intersect(Rng, WorkRng) Is Nothing
		Rng.Value = xIndex
		xIndex = xIndex + 1
		Set Rng = Rng.MergeArea.Offset(1)
	Loop
End Sub

3. 然后按 F5 键运行此代码，会弹出一个提示框，让您选择要填充的合并单元格，请参见截图：

4. 选择合并单元格后，单击 确定，现在，您选择的合并单元格已填充了连续的数字，请参见截图：

相关文章：

如何在 Excel 中筛选后自动编号或重新编号？

如何在 Excel 中快速合并具有相同数据的相邻行？

如何在 Excel 中取消合并单元格并用重复值填充？