Excelで結合されたセルに自動番号を付ける方法は？

Excelでさまざまなサイズの結合セルのリストにシリーズ番号を入力するにはどうすればよいですか？ 最初に頭に浮かぶのは、自動入力ハンドルをドラッグして結合されたセルを埋めることですが、この場合、次の警告メッセージが表示され、結合されたセルを埋めることができません。

塗りつぶしハンドルは結合されたセルをサポートしていないため、ここでは、この問題を解決するための他のいくつかのトリックについて説明します。

自動番号/マージされたセルをVBAコードで埋める

自動番号/マージされたセルをVBAコードで埋める

次のVBAコードは、選択した結合セルにすばやく番号を付けるのに役立ちます。 次のようにしてください。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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