教えて!gooにおける不適切な投稿への対応について

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

gooドクター

A 回答 (4件)

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
「エクセルで連番を振った数字を丸つきにした」の回答画像4
    • good
    • 0

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



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

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

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

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

となります。
    • good
    • 0

申し訳ありません。


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

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

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

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



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

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

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング