• 締切済み

VBA(Excel)でファイル内の文字を置換したいのですが

いつも拝見させていただいております。 初めて質問させていただきます。 現在VBAに興味を持ち始めて独学で学んでおり、 VBAでテキストファイルの文字を置換できないかと思っております。 事例としては以下のような例を考えています。 ・エクセルマクロ実行時に置換する/したい文字を入力 ・対象ファイルを指定 ・対象ファイル内(テキスト)にて文字を検索し、ヒットしたら置換 まだVBAを熟知していないので、出来るのかどうかもわかりませんが 可能であれば、教えて頂きたいと思います。宜しくお願いします

みんなの回答

  • Gin_F
  • ベストアンサー率63% (286/453)
回答No.2

テキストファイル中の文字を削除・置き換える(FSO) - AccessVBA モーグ即効テクニック集 http://www.moug.net/tech/acvba/0090005.htm こちらがピッタリの内容だと思います (^^ゞ

gogo2992
質問者

お礼

有難うございます。 エクセル置換だと対象言語を一つずつしかできないので マクロ化して複数の文字を一括して置換する処理が作りたかったのです 参考にしてみます。回答有難うございました

  • cmc32000
  • ベストアンサー率41% (103/251)
回答No.1

エクセルの編集メニューに、「置換」があります。これを使えばVBAを作る必要はないのでは。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • VBAでの文字列置換

    表題のとおりですが、過去の質問では良い回答が 見当たりませんでした。 ・やりたいこと ”A”->”001” ”B”->”002” ”C”->”003” ”D”->”004” のようにテキストの置換候補があり（置換、置換対象のテキストは全角、半角さまざまです）、 それをExcelのワークシートに適用したいです。 やり方はどういうやり方でも良いです。ただ置換リストは追加、変更する必要があります。 VBAのreplaceを利用した置換マクロを作成すればよいのでしょうか。 当方、Word用の簡単なVBAマクロの作成経験はありますが、 Excelでは利用したことがありません。 ある程度具体的に御教授いただけると助かります。 よろしくお願いします。

  • xmlファイル内の文字列置換

    エクセルマクロ（VBA）で、xmlファイルを自動生成するツールを作成しようとしています。 やりたいことは、「テンプレートとなるxmlファイルを用意しておき、そのxmlファイルに記述してある特定の文字列を、エクセルで記入したデータで置換する」です。 似たようなマクロを作成された経験のある方いらっしゃいましたら、置換するために行う手順、及び必要な関数等を教えていただけますでしょうか。 何卒よろしくお願いいたします。

  • 文字列一括置換ソフトを探してます

    文字列一括置換ソフトを探してます・・・って書くと、Vectorに行けばいっぱいあると言われそうですが、ちょっと条件が特殊です。 ・複数（多分５００～１０００個）のテキストファイルの指定文字列を一括置換したい（ここまでは普通） ・対象の文字列の置換パターンが３万件（苦笑） ワイルドカードなどではなく、３万の単語を別の３万の単語に置換したいのです。 （プログラムの変数を、ネーミングルールを変えたために総入れ替えする・・・と考えて頂ければ分かっていただけるでしょうか） １０件くらいのパターンを連続して置換するソフトは見つかったのですが、３万件となると・・・。 （そもそも３万件のリストをよく作ったもんだ） UNIXにsedというコマンドがあるというのは聞いたことがあるのですが、Windows(&DOS)しか触ったことがないので、どうすれば良いのか分かりません（私はプログラマじゃありません）。 なお、同じネタでエクセルのワークシートのセルを置換する必要があるのですが、こちらは自作マクロで対応しています。 もし適当なソフトが見つからなければ、エクセルマクロの作成を検討しています。 （マクロでテキストファイルの読み込みはやったことがあるのですが、書き出しは多分やったことがない） 置換リストはエクセルで作成しているので、リストはソフトに応じた形式で準備できると思います。 以上、よろしくお願いいたします。

  • Excel2019の文字置換による空白文字の削除

    テキストファイルの数字データをExcelにコピーして貼り付けたいです。その際、元のデータに含まれる数字中の空白文字を削除したいのですが、文字置換で空白文字を除去しようとしてもできません。 置換ボタンを押すと、「一致するデータが見つかりません」となり、すべて置換ボタンを押すと、「置換対象が見つかりません。検索方法については［オプション］をクリックしてください。置換しようとしているデータが保護されたシートにある可能性があります。保護されたシートのデータは置換できません。」と言われます。 ちなみに、全く同じ数字のデータをエクセルのセルに直接手入力すると置換されます。また、テキストファイル内の（Windowsのメモ帳）元データの下に、手入力で全く同じ数字を追加してからエクセルに一括で貼り付け＆置換とやっても、手入力のものだけが置換されるのです。試しに、元データ中の数字データ１個を、元データファイル内にコピー＆ペーストした後、さらにエクセルに貼り付けてみたところ、これは置換されませんでした。 全く同じデータのはずなのに、なぜ手入力のものしか置換されないのか分かりません。 ちなみに、データの内容は、「98 080.21」とか「73 532.98 」というような数字です。 テキストファイルのデータの方をどうにかしたらよいのでしょうか。何か方法があったら教えてください。

  • セルに入力した文字を別のシートで置換する方法

    複数置換を行いたいと思い、以下のマクロを作成しました。 If Range("B18") <> "" Then Cells.Replace what:=Range("B18"), replacement:=Range("D18") end if B18のセルが空欄ではない場合、 そのセルに入った文字を検索し、別の文字に変換するというものです。 １つや２つほどであれば、ショートカットキーを使って 置換をしていけば良いと思うのですが、 10項目以上、置換しなくてはならず同時処理を行いたいと思っています。 ただし、その10項目については対象ファイルごとにバラバラで、 統一性がないため、VBAの中に組み込むよりかは、 置換したい文字を各セルに入れていき、置換できればと思い、 マクロの作成を行いました。 ただ、上のマクロでは同じファイルではないと処理ができません。 ActiveSheetを使って処理を行うとは思うのですが、どのように記述してよいか分かりません。 お力添えを頂ければと思います。 上記内容で分かり辛いかもしれませんので、以下に箇条書きします。 １）複数置換を行いたい。 ２）Aセルに置換対象の文字を入れ、Bセルに置換したい文字を入れる。 ３）実行すると全シート上でA１セルに入力された文字を検索し、B１セルに入力してある文字に置き換わる。 ４）これらの処理は同一ファイルで行うのではなく、それぞれ別ファイルで管理をする。 ※対象ファイルと実行データが別々のもの 以上です。 説明が分かりにくく、申し訳ありません。 もしVBAで以上のような処理が可能な場合、ご教授頂けますと幸いです。 （使用しているバージョンは、2003です。）

  • フォルダー下のExcelファイル中文字一発置換

    教えて下さい。 あるフォルダー下にあるExcelファイルの全シート、全セルを 対象に特定の文字(漢字)の置換を行いたいのですが何か良い方法は ありませんでしょうか？ ファイル数が膨大で一つ一つファイルを開けて 置換をするのにも大変な労力が掛かってしまいますので フォルダー単位で実行したいと思っています。 宜しくお願い致します。

  • テキストファイルの中身を自動で置換したい

    VBA初心者なので説明不足な部分があると思いますがよろしくお願い致します 現在テキストファイルを開いてCtrl＋Hで検索する文字列を検索 置換後の文字列を入力し置換しているのですが ファイル数が多く1つ1つ開いて置換するのがとても面倒です Excelで開けば良いのでは？と前にご意見をいただいたのですが Excelで開いてそこからの操作がよくわからず…。 できればボタン一つで自動的に置き換えられるようにしたいのですが どのようにコードを書けば良いのかまったくわかりません。 ・指定フォルダー内にある（1つまたは複数の）テキストファイル内の文字列をすべてセルに書き出す ・セルから特定の文字（例→【 ,F1 】）を検索し、特定の文字（例→【 ,A2 】）に置換する ・上書きして保存 という感じにしたいのですができますでしょうか？ 無理そうでしたら大丈夫です 閲覧いただきありがとうございました

  • VBAでエクセルからのファイル名とテキスト化を自動で実行する方法

    マクロを実行して、エクセルのセルからファイル名とテキストファイルを自動で出力したいのですが、VBA初心者なのでプログラムの書き方がわかりません。 どうかVBAのプログラムの書き方を教えて下さい。 【マクロ実行前のエクセル状態】 1.エクセルのA列にファイル名1を入力 2.エクセルのB列にファイル名2を入力 3.エクセルのC列にテキスト出力させたい文字列を入力 【期待のマクロ動作】 ファイル名1＋ファイル名2のファイル名でC列の文字列をテキストファイルで出力。 《例》 A　B　C 1　2　あ　⇒マクロ実行⇒ファイル名『12』テキスト内容『あ』 3　4　い　⇒マクロ実行⇒ファイル名『34』テキスト内容『い』 5　6　う　⇒マクロ実行⇒ファイル名『56』テキスト内容『う』 7　8　え　⇒マクロ実行⇒ファイル名『78』テキスト内容『え』 ・ ・ ・ ・ 上記の様に、一回のマクロ実行で入力されている列のセル全て がファイル名付きのテキストファイルとして出力をさせたいです。 申し訳ありませんが、よろしくお願いいたします。

  • VBA 置換文字がみつからない時

    お世話になります。 VBAの文字列の置換で教えてください。 replaceを使用したときに、置換対象の文字がなかったら、 「元の値をそのまま返す」という形なのですが、 置換対象がなかったときは、その旨わかるようにしたいのですが、 方法あるでしょうか？ ※毎回replaceの前でfind関数であるかないか、調べないと いけないのでしょうか？ 何卒宜しくお願いします。

  • テキストエディタでの置換（正規表現チェック済）と同様のことを

    テキストエディタでの置換（正規表現チェック済）と同様のことを エクセルのマクロでもしたい。 画像を添付しましたが、秀丸で置換を選択し、 検索文字列と置換文字列を入れて、正規表現チェックのチェックボックスを 選択した状態で実行するのと同様のことをエクセルのマクロで行いたいです。 正規表現混みだととても難しいです。 やりたいことはマクロで、フォルダ内のテキストファイルを置換をかけていきたいです。（テキストファイルは複数ある状態）そのテキストファイルを更新できればいいです。（別テキストで出力されてもいいです。） どなたか詳しい方、教えていただけませんでしょうか？ よろしくお願いいたします。 --- 検索エディタ【秀丸】【置換】 検索【.*item1=(.*) item2=(.*) .*】 置換【\1\t\2】 正規表現チェック

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する