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でセルの結合を解除し、重複する値で埋めるにはどうすればよいですか？