A1~FC1に文字が入力されています。 任意の文字10文字までを指定(入力画面とか何かで)任意に入力すると A1~FC1に入力されている全ての文字の頭に、指定した文字が付される ようにするマクロ・VBA・関数などどれでも構いませんので教えて下さい。 画像を参考にして下さい。 文字だけでなく数字、スペース(半角全角含む)、記号なども対照です。 EX)追加したい文字「はてな」とした場合、 「はてな氏名」。「はてな住所」など
ログインして回答する
これ以上回答リクエストを送信することはできません。制限について
コメント(4件)
Do While 1
a = InputBox("付与したい文字列は?")
If Len(a) > 10 Then
MsgBox ("10文字以下にしてね。")
Else
Exit Do
End If
Loop
For b = 1 To 159
Cells(1, b) = a & Cells(1, b)
Next b
End Sub
でも、いつからここ回答欄になったっけか。
もう一度、再考してから質問しなおします。
オープンにしないで・・・とのことですので
一旦、キャンセルさせていただきます。
またよろしくお願いします。