エクセルで連番を振った数字を丸つきにしたい

1.2.3.…と振ったリストの数字を①.②.③…としたいのですが、どうできますか？
途中で結合したセルが混じるので、何回か手作業で振り直しています。

No.4 回答者： goomania 回答日時： 2021/03/21 15:08

No.3です。

困ったときのVBAということで、マクロでも解決できます。
質問者がVBAでもかまわなければ以下のようなVBAを当該ブックの標準モジュールに作成します。
添付画像①のように「オプション」→「Shift+M」を押す→「OK」でマクロに、例えば「Ctrl+Shift+M(サブルーチンの頭文字=半角アルファベットなら何でもよい)」というショートカットキーを登録しておけば、変換したいシートを表示した状態で「Ctrl+Shift+M」を押すことで、添付画像②のように変換されます。
>1.2.3.…と振ったリストの数字を①.②.③…としたいのですが･･･
というご質問者のご要望が叶うと思います。

Sub Maru_Number()
Cells.Replace What:="1.", Replacement:="①.", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=True, MatchByte:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="2.", Replacement:="②."
Cells.Replace What:="3.", Replacement:="③."
Cells.Replace What:="4.", Replacement:="④."
Cells.Replace What:="5.", Replacement:="⑤."
Cells.Replace What:="6.", Replacement:="⑥."
Cells.Replace What:="7.", Replacement:="⑦."
Cells.Replace What:="8.", Replacement:="⑧."
Cells.Replace What:="9.", Replacement:="⑨."
End Sub

No.3 回答者： goomania 回答日時： 2021/03/20 22:38

No.1さんの方法は、方法論としてはありだと思いますが、数式が誤っている気がします。

>半角1の文字コードは49です。①の文字コードは10529。

とおっしゃていますが、①の文字コード(JISコード)は16進で「2d21」ですので、「=HEX2DEC("2d21")」で10進に変換すると11553です。

従って、方法論を活かして数式を作成すると

=CHAR(CODE(A2)+11504)&MID(A2,2,LEN(A2)-1)

となります。

No.2 回答者： ずんだしらたま 回答日時： 2021/03/17 07:44

申し訳ありません。

文中の式に誤りがありました。

誤　char(A2+10480&mid(A2,2,len(A2-1)

正　char(A2+10480)&mid(A2,2,len(A2)-1)

No.1 回答者： ずんだしらたま 回答日時： 2021/03/17 07:39

一発では変換できませんが、以下の手順で作業すれば可能だと思います。

半角1の文字コードは49です。
①の文字コードは10529。1の文字コードとの差は10480です。

A1セルにある「5」という文字を「⑤」と表示する場合は、char(A1+10480)とすれば良いです。
A2セルにある「6.あいうえお」という文字列を「⑥.あいうえお」としたいのであれば、char(A2+10480&mid(A2,2,len(A2-1)とすれば良いです。

上は関数の式なので、元のリストを置き換えるためには…、

まず、上の式を適当な空いたセルに必要な行数（列数？）分入力、コピーします。

その後、欲しい結果が得られた複数のセルをコピーして、元々「1.2.3.…」が振られていた行（列？）に【文字列として】貼り付けて下さい。