如何在 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