【マクロ】文字を１文字づつ、追加してうちたいです

【やりたい事】

セルAに、１～１２の１２個の数字を使って
コンマで区切って、以下の例のような
マクロを使って数字を打ちたい。

自分のイメージでは以下のコードにて
１～１２までの１２個のコードと
コンマ（,）のコードを使って打ちたいです

ちなみに、数値は
１つか２つか３個までしか並べません
任意で自分の好きな数字を並べます

下記ようにコードを考えましたが
A1全てにかわってしまいます

例のような数字のA1への入力を
手打ちではなく、マクロでしたいということです

ご存じの方よろしくお願いします


例
例1→1
例2→1,2
例3→1,2,3
例4→5
例5→5,6
例6→7,8


【コード】
Sub b()

Range("A1").Value = 1

End Sub



Sub a()

Range("A1").Value = ","

End Sub

No.1 ベストアンサー 回答者： zongai 回答日時： 2024/03/30 20:34

Sub a()

　　Range("A1").Value = Range("A1").Value & ","
End Sub

今ある値に　&　でつなげるよ、って形にしましょう

この回答へのお礼

ありがとうございます。
早速、解決しました

お礼日時：2024/03/30 21:01

No.2 回答者： ssawatake 回答日時： 2024/03/30 21:31

当たり前。

例えば
a=1
a=10
とプログラムしたら、aに何が入っていようが、a=10でaには10が入る。