Excelで頭に文字を加えるような置換をしたい

次のように文字列の頭に、ある文字を追加するような置換（下の例なら　1-　を追加したい）を1列一気にやりたいのですが、いい手はありますか？


QWERT　　　　　1-QWERT
ASDFG　--＞　1-ASDFG
ZXCVB　　　　　1-ZXCVB
..........

No.1 ベストアンサー 回答者： NIWAKA_0 回答日時： 2003/01/07 17:00

表示を直すだけならば、

[セルの書式設定]→[表示形式]→[ユーザー設定]
→"1-"@

値まで変えたいのならば、
一度別のセルに
="1-"&A1
（A1は元の文字列のあるセル）として、
その後
[コピー]→[形式を選択して貼り付け]→[値]
でできると思います。

この回答へのお礼

いろんな方法があるもんだなあと改めて感動しました。
今まで１個１個入力していたのに、夢のようです。
今回はNIWAKA0さんの方法を採用させていただきます。
他の皆さんもどうもありがとうございました。

お礼日時：2003/01/08 11:59

No.5 回答者： imogasi 回答日時： 2003/01/07 23:31

VBAで良ければ、下記を実行してください。

データはA列にあるとして、１００行までと仮定して
A列データが変ってしまいます。元へ戻すが効きません。
Sub Macro1()
　For i = 1 To 100
Cells.Replace What:=Cells(i, "A"), _
Replacement:="1-" & Cells(i, "A")
Next i
End Sub
２箇所の"A"をデータのある列記号（"C"とか）に変え、１００を最下行数で置換えてください。
"1-"のところも任意に換えてください。

No.4 回答者： bin-chan 回答日時： 2003/01/07 20:23

みなさんの回答の「すべての行へコピー」なんですが、

以下の方法で簡単にコピーできるのでお試しください。

式設定したセルの右下の「■」（フィルハンドル）をダブルクリック。これだけ。
途中に空白行があると駄目なんですが、コピーや数列を作成する時便利です。

お試しあれ。

No.3 回答者： kouchin 回答日時： 2003/01/07 17:15

クリック一発ではないですが、1分あればできる方法です。

1.元の文字列の列（Ａ列とします。また先頭のセル番地をA1として説明します）隣に2列、空の列を用意します（Ｂ列、Ｃｒ列）。

2.Ｂ列先頭（B1）に「="1-" & A1」と入力します。

3.B1を列末尾までフィルハンドルでコピーします。

4.B列を選択してコピー、C列に貼り付けます。そのとき「編集」－「形式を選択してコピー」とし「貼り付け」を「値」にします。

5.A列とB列を削除します。

No.2 回答者： EVIAN 回答日時： 2003/01/07 17:04

正当なやりかたではないかもしれませんが．．．

1.　文字列（ＱＷＥＲＴ）が入力されている列の前後どちらでも入れたいほうへ列を挿入する（スペースがあるなら挿入する必要はありません）
2.　どこか表の欄外に”1－”と入力する（ここではセルＡ１とします）
3.　先程挿入した列のセルに（ＱＷＥＲＴの隣がわかりやすくてよいと思います）「@CONCATENATE(セル＃Ａ＃１，ＱＷＥＲＴのセルを指定）」と関数を入れると”1－”とＱＷＥＲＴを結合した”1－ＱＷＥＲＴ”が表示されます
4.　後は結合させたいセルにその関数をコピーすれば完成

いかがでしょうか？