如何在 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 中取消合併儲存格並用重複值填充？