如何在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。 選擇合併的單元格後，然後單擊 OK，現在，您選擇的合併單元格已填充有序號，請參見屏幕截圖：

相關文章：

如何在Excel中過濾後自動編號或重新編號？

如何在Excel中快速合併具有相同數據的相鄰行？

如何取消合併單元格並在Excel中填充重複值？