エクセルの空白のセルに別の項番をふるにはどうしたらよいですか？

質問

A列が下記のように、空白が混じった項番だったとします。

1
2
3

4
5

6
7
8

上記の空白行のみに、上から順番に新しい項番（従来の1～8とは差別化を図るため、記号を不可したもの）をふるにはどうしたらいいですか。
イメージは下記の通りです。

1
2
3
A1
4
5
A2
6
7
8
A3

よろしくお願いします。

回答No.1

nag0720 · ベストアンサー

マクロを作ってください。

k = 0
For i = 1 To Cells(65536, 1).End(xlUp).Row + 1
　　If Cells(i, 1).Value = "" Then
　　　　k = k + 1
　　　　Cells(i, 1).Value = "A" & k
　　End If
Next i

お礼

ありがとうございます！！とても助かりました。