EXCELエクセル長文の置き換え

エクセルで作ったデータベースで１つのセルの中の「ＡＢＣ」という文を「あいう」に変える方法を知りたいのです。
ただこのデータベースはちょっと特殊で
(1)一つのセルに20行以上の文字列がある→その為に「置換」機能では「数式が長すぎます。」と出る。
(2)その20行以上ある文はＨＴＭＬである。
(3)変更したい文も変更後の文も結構長い。(ＨＴＭＬタグ含む）
というような状態です。
データが７５０行以上あるので1個ずつしていたらいつ終わるか分かりません。
マクロなども全く分からず、途方に暮れています。
実用的な案を今すぐ頂ければ有難いです。
よろしくお願い致します。

No.6 ベストアンサー 回答者： KenKen_SP 回答日時： 2006/08/05 21:47

Excel の置換機能ではダメだったんですよね...？

1.　名前を付けて保存、CSV で書き出し
2.　テキストエディターでそのファイルを開き、置換

ならどうですか？

この回答へのお礼

ありがとうございました。
１日、悩んでいたことが簡単にできました。
本当に感謝です。

お礼日時：2006/08/06 18:48

No.7 回答者： Wendy02 回答日時： 2006/08/06 20:58

ふたつだけアドバイスですが、

>エクセルで作ったデータベースで１つのセルの中の「ＡＢＣ」という文を「あいう」に変える方法を知りたいのです。

データベースが何か別として、Excelで管理するのは、やっぱりテキストベースで、HTMLコードは入るけれども、テキスト・オンリーで貼り付けて入れるのが基本ではないでしょうか？
貼り付けるときに、右クリックで、[形式を選択して貼り付け]で、テキストを選べばよいわけです。

そうしたら、置換も利くと思います。

それと、もうひとつは、「セルに20行以上の文字列がある」っいてうことだけど、Excelのひとつのセルで見えるのは、1,024文字です。32,767文字まで入ることは入りますが、見えませんから、管理しにくいと思います。

この回答へのお礼

ありがとうございました。
管理の仕方も検討していきたいと思います。
参考になりました。
お礼が遅くなり、申し訳ございませんでした。

お礼日時：2006/08/09 19:23

No.5 回答者： ape5 回答日時： 2006/08/05 20:24

"color="

とはどこでしょう？私の書いたところにはないのですが？
"If"のところは、きちんとスペース開けるところを開けてますか？

この回答へのお礼

なんどもすみません。お手数をおかけいたしました。ありがとうございました。やはりマクロは私には難しかったようです。また何かありましたら、よろしくお願い致します。

お礼日時：2006/08/06 18:47

No.4 回答者： ape5 回答日時： 2006/08/05 19:44

どこの行でエラーでしょうか？

あと、エラーの内容も具体てきにかいてもらえるとうれしいです

この回答への補足

"color="の所が、「コンパイルエラー修正候補ThenまたはGo To」
Ifから次のa valueまでもコンパイルエラー：構文エラーになります。
何度もすみません。よろしくお願い致します。
修正したいところにも追加したいものにも、"があるからいけないのでしょうか？

補足日時：2006/08/05 19:50

No.3 回答者： ape5 回答日時： 2006/08/05 18:24

（シートやファイルをコピーしてから動かしてみてください）

一応、「ＡＢＣ」の全角・半角と大文字・小文字に対応しました。
それと、できなかったというのは何ができなかったのでしょうか？
説明があれば対応したいと思います。
---------------------------------
Dim a As Range
Dim iLen As Long
Dim i As Long

For Each a In Selection
　 iLen = Len(a.Value)
　 For i = 1 To iLen
　 If "ABC" = UCase(StrConv(Mid(a.Value, i, 3), vbNarrow)) Then
　 a.Value = Left(a.Value, i - 1) & "あいう" & Right(a.Value, iLen - i - 2)
　 End If
　 Next i
Next a
-----------------------------------------

この回答へのお礼

何度も済みません。
構文エラーになってしまいます・・・。

お礼日時：2006/08/05 19:21

No.2 回答者： ape5 回答日時： 2006/08/05 17:01

（試す前に、シートなり、ファイルなりコピーしてから行ってください。

）
処理は重いですけど、次のようなのでできるかと。
"ABC"は半角だとして、処理してます。
-------------------------------
Dim a As Range
Dim iLen As Long
Dim i As Long

For Each a In Selection
　 iLen = Len(a.Value)
　 For i = 1 To iLen
　 If "ABC" = Mid(a.Value, i, 3) Then
　 a.Value = Left(a.Value, i - 1) & "あいう" & Right(a.Value, iLen - i - 2)
　 End If
　 Next i
Next a
---------------------------------------
何かありましたらレスください。

この回答へのお礼

ありがとうございました。
しかし、私の力不足でできませんでした。すみません。
それから「ＡＢＣ」も「あいう」もHTMLが交じっているので、全角と半角が交じってます。
よろしくお願い致します。

お礼日時：2006/08/05 17:26

No.1 回答者： NCU 回答日時： 2006/08/05 16:44

SUBSTITUTE関数でもダメですか？

この回答へのお礼

早々のお返事、ありがとうございました。
今、早速やってみましたが、関数の作り方が分かりません。
補足をお願いできたら幸いです。

お礼日時：2006/08/05 17:00