エクセルで作ったデータベースで1つのセルの中の「ABC」という文を「あいう」に変える方法を知りたいのです。
ただこのデータベースはちょっと特殊で
(1)一つのセルに20行以上の文字列がある→その為に「置換」機能では「数式が長すぎます。」と出る。
(2)その20行以上ある文はHTMLである。
(3)変更したい文も変更後の文も結構長い。(HTMLタグ含む)
というような状態です。
データが750行以上あるので1個ずつしていたらいつ終わるか分かりません。
マクロなども全く分からず、途方に暮れています。
実用的な案を今すぐ頂ければ有難いです。
よろしくお願い致します。
No.7
- 回答日時:
ふたつだけアドバイスですが、
>エクセルで作ったデータベースで1つのセルの中の「ABC」という文を「あいう」に変える方法を知りたいのです。
データベースが何か別として、Excelで管理するのは、やっぱりテキストベースで、HTMLコードは入るけれども、テキスト・オンリーで貼り付けて入れるのが基本ではないでしょうか?
貼り付けるときに、右クリックで、[形式を選択して貼り付け]で、テキストを選べばよいわけです。
そうしたら、置換も利くと思います。
それと、もうひとつは、「セルに20行以上の文字列がある」っいてうことだけど、Excelのひとつのセルで見えるのは、1,024文字です。32,767文字まで入ることは入りますが、見えませんから、管理しにくいと思います。
ありがとうございました。
管理の仕方も検討していきたいと思います。
参考になりました。
お礼が遅くなり、申し訳ございませんでした。
No.4
- 回答日時:
どこの行でエラーでしょうか?
あと、エラーの内容も具体てきにかいてもらえるとうれしいです
この回答への補足
"color="の所が、「コンパイルエラー修正候補ThenまたはGo To」
Ifから次のa valueまでもコンパイルエラー:構文エラーになります。
何度もすみません。よろしくお願い致します。
修正したいところにも追加したいものにも、"があるからいけないのでしょうか?
No.3
- 回答日時:
(シートやファイルをコピーしてから動かしてみてください)
一応、「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" = 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
-----------------------------------------
No.2
- 回答日時:
(試す前に、シートなり、ファイルなりコピーしてから行ってください。
)処理は重いですけど、次のようなのでできるかと。
"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
---------------------------------------
何かありましたらレスください。
ありがとうございました。
しかし、私の力不足でできませんでした。すみません。
それから「ABC」も「あいう」もHTMLが交じっているので、全角と半角が交じってます。
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Visual Basic(VBA) Excel VBAでAA(BBB) → BBB.AA に置換したい 2 2022/10/30 13:59
- その他(Microsoft Office) Excelの条件付き書式についての質問です。 2 2022/09/08 01:25
- HTML・CSS HTMLタグのあるCSVファイルを利用する方法 4 2023/03/19 14:41
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) エクセルの数式について教えてください。 7 2023/06/18 10:16
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
Excelからテキストへのコ...
-
エクセルのセルの中の,よりも前...
-
Excelで、半角スペースをTABに...
-
Excelの入力済みセルに一括で、...
-
エクセルの関数で、記号などを...
-
Excelのmatch関数エラー原因が...
-
置換機能を使わずに先頭に「'」...
-
小数点を消す方法
-
【エクセル】ピボットテーブル...
-
一括でダブルクリックした状態...
-
excelで可視セルのみ置換
-
Excelのシートにある1行...
-
Excelで特定の文字の前だけに空...
-
エクセルの表ををメモ帳などに...
-
エクセルで「4」「9」抜けの...
-
エクセルでセル内の一部分だけ...
-
エクセルの数字だけを削除したい
-
EXCELで"Tab"を"@"に置換したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
Excelからテキストへのコ...
-
excelで可視セルのみ置換
-
Excelで、半角スペースをTABに...
-
エクセルのセルの中の,よりも前...
-
Excelの入力済みセルに一括で、...
-
Excelのmatch関数エラー原因が...
-
Excelの空文字セルの削除方法を...
-
【エクセル】ピボットテーブル...
-
企業名簿で(株)や(有)を無視し...
-
置換機能を使わずに先頭に「'」...
-
エクセルでセル内の一部分だけ...
-
小数点を消す方法
-
別シートのリストから置換する方法
-
エクセルでセル内の一部を一括...
-
Excelのアポストロフィーの削除
-
エクセルの表ををメモ帳などに...
-
エクセルでスペースの記号を表...
-
Excelで特定の文字の前だけに空...
おすすめ情報