Excelでセル範囲に接頭辞または接尾辞を追加するにはどうすればよいですか？

Excelの連結関数は、単一のセルに接頭辞や接尾辞を迅速に挿入できます。

1次の関数を入力します： =CONCATENATE("食品 - ",A1) 空白のセルに、例えばセル C1に入力し、その後このセルのオートフィルハンドルをドラッグして、埋めたい範囲全体に適用します。これで、すべてのセルに特定の接頭辞が追加されます。スクリーンショットをご覧ください：

連結関数を使用して、接頭辞、接尾辞、または両方を次のように挿入できます：

Excelの関数やVBAコードに慣れていない場合もあるでしょう。そして、この「テキストの追加」ユーティリティであるKutools for Excelは、選択した範囲に迅速に接頭辞や接尾辞を挿入するのに役立ちます。

1.  接頭辞または接尾辞を追加したいセルを選択し、Kutools > テキスト > テキストの追加 をクリックします。

2「 テキストの追加 」ダイアログボックスで、接頭辞または接尾辞を テキスト ボックスに入力し、「 最初の文字の前 」オプション（接頭辞を追加する場合）または「 最後の文字の後 」オプション（接尾辞を追加する場合）を選択し、「 OK 」ボタンをクリックします。
これで、指定された接頭辞または接尾辞が一度に各選択されたセルに追加されました。スクリーンショットをご覧ください：

以下のVBAコードを使用してこの問題に対処することもできます：

1. 接頭辞または接尾辞を挿入したい範囲を選択します。

2. 開発 > Visual Basic をクリックすると、新しいMicrosoft Visual Basic for Applicationsウィンドウが表示されます。挿入 > モジュール をクリックし、以下のコードを入力します：

Sub AddTextOnLeft()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = addStr & Rng.Value
Next
End Sub

Sub AddTextOnRight()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = Rng.Value & addStr
Next
End Sub

3. 実行ボタンをクリックするか、 F5キーを押してVBAを実行します。

4次に、接頭辞または接尾辞を追加する範囲を最初の KutoolsforExcel ダイアログボックスで指定し、「 OK 」ボタンをクリックします。その後、追加する接尾辞または接頭辞を2番目の KutoolsforExcel ダイアログボックスに入力し、「 OK 」ボタンをクリックします。下のスクリーンショットをご覧ください：
     
これで、指定された接尾辞または接頭辞が各選択されたセルに追加されました。下のスクリーンショットをご覧ください：

すべてのセルの先頭または末尾にテキストを追加する

複数のセルにテキスト文字列を追加する

数字やテキストに先行ゼロを追加する