左のセルに入っている合番を利用し，セルの名前として使うためのマクロです．

目次

  1. セル結合されている場合
  2. マクロ

セル結合されている場合

名前の入るセルが結合されていても機能します．
複数行にわたり結合されている場合，合番は左上に位置するセルに振ってください．

マクロ

100行100列目までの範囲でセルにマクロを実行するサンプルです．

Sub セルに名前をつける()

Dim max_row, max_col As Long
max_row = 100
max_col = 100

For i = 1 To max_row
	For j = 1 To max_col
		If Cells(i, j) <> "" Then
			Cells(i, j).Offset(0, 1).Name = "myseq_" & Cells(i, j).Value
		End If
	Next
Next

End Sub