• 締切済み

EXCELデータ上で複数のキーワードを一括置換したい

coco1の回答

  • coco1
  • ベストアンサー率25% (323/1260)
回答No.1

マクロを作成した方が早いと思います。

tentama
質問者

お礼

回答ありがとうございます。 マクロを作ってみたところ、以下のようなものができました。 Cells.Replace What:="目次", Replacement:="CONTENTS", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False あとは、これをたくさんコピーして「目次」「CONTENTS」の部分にそれぞれの単語を入れていけばいい訳ですが、その作業はエディタか何かでできないものでしょうか? 現在、別のエクセルファイルで日英対照単語集を持っています。これを一括加工してマクロの式が書ければと思っています。

関連するQ&A

  • ワードで複数の文字を一括・連続置換するマクロ

    ワード(Word)で複数の文字を一括・連続置換するマクロを作りたいのです。 次の回答を参考にしてマクロを作ってみました。 http://oshiete1.goo.ne.jp/kotaeru.php3?q=994495 ところが、置換したい単語が100くらいになってきて扱いづらいので、 ワード(又はテキストやエクセルでも可)の置換文字のリストのファイルを参照して、同じように連続置換させたいのですが、どのような方法があるでしょうか? シェアウェアでも同様の機能をもつものがありますが、自由にカスタマイズできないので使えません。 (置換後の文字列に蛍光ペンをかけたいので)

  • Excel2007 データの置換について

    excel2007について。 各データの頭に文字として意味をなさない記号がついているとします(例☆リンゴ、☆すいか等)。 このままでは五十音ソートができませんので、上記例を用いるならば「☆リンゴ」→「リンゴ☆」と置き換えたいのですが、 一括して置換する方法はありませんでしょうか。 データの数が膨大であり、手作業で置換することは困難を極めております。 よろしくお願いします。

  • 複数のワードファイルの一括置換について

    フォルダ内にあるワードファイルにある文字列を一括置換したいと考えております。 ワードファイルは10個以上はあり、まったく同じ言葉が含まれております。 使用環境はWindowsXP、Word2003を使用しております。 シェアウェアのソフトは見つけたのですが、フリーソフトは見つけることができませんでした。 置換したい文字列は、ごく一般的な日本語です。 詳しい方どなたかよろしくお願いいたします。

  • 複数のエクセル・ファイルの一括検索

    複数のエクセル・ファイル(用語集)を一括で検索できるソフトがあったらおしえてもらいだいのですが。また、エクセル・ファイルをテキスト・ファイルに変換するソフトがあったら教えてください。 アドバイス宜しくお願いします。

  • UTFのHTMLファイルを複数キーワードで連続置換

    書かれている内容は日本語なんですが、難しい漢字を表示させる都合でUTF-8で作成されているhtmlファイル(1ファイル)があります。 書かれている内容を、下記のようなカンマ区切りのテキストファイル(UTF-8?)を用意して、複数のペア(1,000組程)を連続して置換したいのですが、シェアウェアなどで手軽に行う方法はありますか? 宜しくお願い致します。 (個数) (旧) (新)  1  01html,a_html  2  02html,b_html  3  03html,c_html  ・   ・   ・   ・   ・   ・  1,000   ・   ・ 

    • ベストアンサー
    • HTML
  • 複数のテキストファイルを一定の文字数で改行したい。

    複数のテキストファイルを一定の文字数で改行できるフリーウェア(シェアウェアも可)ソフトないでしょうか? 膨大な数なので一個ずつではなく、一括してできるものをお願いいたします。

  • excel検索置換について

    http://hp.vector.co.jp/authors/VA035395/ この中にある「excel検索置換」というソフトが非常に使い勝手がいいのですが、フリーウェアと記載されているところでDLしたのに、 (http://pcgenki.com/soft2/msexcel.shtml) HPでみるとカンパウェアとかいてあり、しかも利用期限が1ヶ月ほどしかありません。 これと同等の機能のあるフリーソフトはないでしょうか? あと、カンパウェアとかいてありますが、試用期間のあるシェアウェアと同じでは?と、都合の良い呼び名に騙された感じがしました…

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

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

  • パワーポイントの一括置換:複数の単語をエクセルリストから読み込む

    はじめまして、トフィーです。 色々と皆様の置換方法や、パワーポイントの操作、エクセルの操作を参考にしてパワーポイントの一括置換プログラムを作成しようとしていますが、 下記のコードですと、一括置換が出来ますが10単語を一括置換するだけで約10分掛かります。 何か、もっと早く置換が出来るプログラミングは出来ないのでしょうか? (エクセルのマクロから書きました。) 宜しくお願い致します。 Private Sub run_click() translate '下記のコードから置換 End Sub Private Sub translate() c = 0 myFLD = loc.Text ' 複数のパワーポイントを同じフォルダーで探し、一つずつ開きます Set myApp = CreateObject("PowerPoint.Application") myApp.Visible = True With myApp.FileSearch .LookIn = myFLD .FileName = "*.ppt" If .Execute > 0 Then For Each myF In .FoundFiles With myApp.Presentations.Open(myF) 'エクセルから単語読み込み 列1の単語を列2の単語で置換 On Error Resume Next For c = 0 To 10 myWD1 = Range("B" & c + 3) myWD2 = Range("C" & c + 3) '置換開始 For Each myS In myApp.ActivePresentation.Slides For Each mySP In myS.Shapes mySP.TextFrame.TextRange _ = Replace(mySP.TextFrame.TextRange, myWD1, myWD2) Next Next Next c .Save .Close 'パワーポイントを閉じる End With Next End If End With myApp.Quit Set myApp = Nothing MsgBox "END" End Sub

  • Excel : テキストボックス中のテキストの検索・置換

    Excelの図として貼り付けたテキストボックスにテキストが入力されていて、そのテキストボックスが数十個、シートに貼り付けられています。またそれが30シートくらいあります。 このたくさんのテキストボックスに入力されたテキストを複数のシートに渡って一括置換する方法はありませんでしょうか。