我們?nèi)绾卧贓xcel中將序列號填充到不同大小的合并單元格列表中页藻？我們首先想到的是拖動(dòng)“自動(dòng)填充”手柄來填充合并的單元格，但在這種情況下，我們將收到以下警告消息罐柳，并且無法填充合并的單元锻狗。
有沒有一種方法可以在不必手動(dòng)鍵入數(shù)字的情況下對合并的單元格進(jìn)行編號满力？
例如，A1是標(biāo)題轻纪，范圍A2:A15由不同大小的合并單元格組成油额，請參見以下屏幕截圖。如何填寫A2:A15中的數(shù)字序號刻帚？
用Excel公式
一潦嘶、選擇合并的單元格（在本例中，選擇A2:A15）我擂。
二衬以、按F2鍵，或單擊公式欄校摩，輸入公式：=MAX(A$1:A1)+1看峻。
三、按CTRL+ENTER衙吩。
用VBA代碼
以下VBA代碼可以幫助你快速為選定的合并單元格編號互妓。請執(zhí)行以下操作：
一、按住ALT+F11鍵，它將打開Microsoft Visual Basic for Applications窗口冯勉。
二澈蚌、單擊“插入”>“模塊”，然后在“模塊窗口”中粘貼以下代碼灼狰。
Sub?NumberCellsAndMergedCells()? Dim Rng As Range? Dim WorkRng As Range? On Error Resume Next??xTitleId?=?"Number?For?Merged Cells"SetWorkRng = Application.SelectionSetWorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address,Type: =8)SetWorkRng = WorkRng.Columns(1)xIndex =1SetRng = WorkRng.Range("A1")DoWhileNotIntersect(Rng, WorkRng)IsNothing? ? Rng.Value = xIndexxIndex = xIndex +1SetRng = Rng.MergeArea.Offset(1)LoopEndSub
三宛瞄、然后按F5鍵運(yùn)行此代碼，會彈出一個(gè)提示框交胚，讓你選擇要填充的合并單元格份汗，請參見屏幕截圖：
四、選擇合并單元格后蝴簇，單擊“確定”杯活，現(xiàn)在，你選擇的合并單元格已經(jīng)填充了序號熬词，請參見屏幕截圖：
