相手のアドレス、名前、用件が1行毎に書かれたエクセルファイルがあります。
差込印刷のように、定型文の要所要所にエクセルの各セルの値を埋め込んだメールを一括して送信したいのですが、やり方がわかりません。
たとえば、10行あれば、メールが10箇所に送信したいのです。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

>「具体的なVBA」が書けません(悲)。


>そのまま使えるソースやフリーソフトご存知ならお教えください。
 そうですねぇ。フリーソフトならあるかも知れませんが、大した VBA ではありませんので、ご自分で書かれてもよいかと存じます。

 先ず、お使いの OS(オペレーションシステム)に依存します。
※OS が Windows 2000 より前のバージョンでしたら、この方法は無効です!! ここで読み終えて、フリーソフトをお探しください。

 「そのまま使えるソース」とはお書きですが、使用条件によって当然ソース(コード)も変わってきますので、一つずつ検証をしながらコードを書いていくべきかと存じます。

 さて、本題に入りますが。。。

>相手のアドレス、名前、用件が1行毎に書かれたエクセルファイルがあります。
>差込印刷のように、定型文の要所要所にエクセルの各セルの値を
>埋め込んだメールを一括して送信したい
>10行あれば、メールが10箇所に送信したい

 例えば、1行目に「名前・相手のアドレス・用件(要所要所に埋め込む値)」という見出しがあって、「名前」がA列、「相手のアドレス」がB列、「要所要所に埋め込む値」が「用件1」C列・「用件2」D列・「用件3」E列に書かれているとするとします。
 このようなプログラムを書く時は、先ずテストを何回もしてみることが大切で、相手先にテストメールが届いては迷惑になりますので、ご自分のメールアドレスでテストします。
 そこで、2行目A列~E列に、それぞれ「あなたのお名前」・「あなたのメールアドレス」・「あああ」・「いいい」・「ううう」と入力してください。
 ここでは「あなたのお名前」は「田中太郎」、「あなたのメールアドレス」は「hoge@hoge.com」として説明いたします。
 実際にテストをされる時には本当の「あなたのお名前」・「あなたのメールアドレス」を書いてくださいね。

 ここで、送付先のメールアドレスは
Cells(2, 1).Value & "様<" & Cells(2, 2).Value & ">"
と記述することによって、「田中太郎様<hoge@hoge.com>」という値になります。
 「差込印刷のように」というのは「本文」のことかと存じますが、これは、
"定型文1" & Cells(2, 3).Value & "定型文2" & Cells(2, 4).Value & _
"定型文3" & Cells(2, 5).Value & "定型文4"
と記述することによって、「定型文1あああ定型文2いいい定型文3ううう定型文4」という値になります。

 本文の間に改行を入れたい場合は、「vbCrLf」を書いて
"定型文1" & Cells(2, 3).Value & "定型文2" & Cells(2, 4).Value & vbCrLf & _
"定型文3" & Cells(2, 5).Value & "定型文4"
と記述することによって、「
定型文1あああ定型文2いいい
定型文3ううう定型文4
」という値になります。

 さて、前振りはここまでにして、実際にメールを送信してみましょう。
 テストですので、新規ブックで試してみましょうね。
 また、本当の「あなたのお名前」・「あなたのメールアドレス」を書いてくださいね。

1)エクセルシートの1行目A列~E列に、それぞれ「名前」・「相手のアドレス」・「用件1」・「用件2」・「用件3」と入力し、2行目A列~E列に、それぞれ「あなたのお名前」・「あなたのメールアドレス」・「あああ」・「いいい」・「ううう」と入力します。
2)[Alt] + [F11] で VBE(Visual Basic Editor)を開きます。
3)[挿入(I)] - [標準モジュール(M)] で「標準モジュール」の コードウィンドウ を開きます。
4)現われたコードウィンドウに下記コードを貼り付けます。
 なお、Thunderbird のメニューの [ツール(T)] - [アカウント設定(C)] で 左側のリストの一番下にある [送信 (SMTP) サーバ] をクリックし、「あなたのメールアドレス」をクリックして、その下にある [サーバ名]、これを下記の「●●●」と差し替えてください。
 この文字列は、例えば Yahoo! メールでしたら「smtp.mail.yahoo.co.jp」のような文字列です。
 また、
oMsg.From = "あなたのお名前<あなたのメールアドレス>"
の行は、「差出人」の欄になりますので「様」を付けずに、
oMsg.From = "田中太郎<hoge@hoge.com>"
のような書式になるように、本当のお名前(会社名?)とメールアドレスで書いてください。
5)[F5] キーを押下してください。マクロが実行されます。
6)Thunderbird で [F5] キーを押下してください。
 「件名」という件名のメールがあなたから届いていたらテスト成功です。

'-------------------------------------------------------------------
Sub CDOでメール送信()
 Dim oMsg
 Set oMsg = CreateObject("CDO.Message")
 oMsg.From = "あなたのお名前<あなたのメールアドレス>"
 oMsg.To = Cells(2, 1).Value & "様<" & Cells(2, 2).Value & ">"
 oMsg.Subject = "件名"
 oMsg.TextBody = "定型文1" & Cells(2, 3).Value & "定型文2" & _
  Cells(2, 4).Value & vbCrLf & "定型文3" & Cells(2, 5).Value & "定型文4"
 oMsg.Configuration.Fields.Item("ht" & _
  "tp://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' oMsg.Configuration.Fields.Item("ht" & _
  "tp://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 oMsg.Configuration.Fields.Item("ht" & _
  "tp://schemas.microsoft.com/cdo/configuration/smtpserver") = "●●●"
 oMsg.Configuration.Fields.Item("ht" & _
  "tp://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 oMsg.Configuration.Fields.Item("ht" & _
  "tp://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = False
 oMsg.Configuration.Fields.Update
 oMsg.Send
End Sub
'-------------------------------------------------------------------

 先ず、上記の実験をしていただいて、成功したか否かをお知らせください。
 成功した場合は、更に詳しいコードの記述法をお知らせいたします。

 なお、前回答で「Excel でお仕事!」から参照ページを呈示しましたが、私は、そこにも書いてある「実行時バインディングの方法」で行なっております。
 これにつきましては、プログラム言語が異なります(VBA ではありません)が、流用ができますので、下記をご覧ください。
●Windows標準機能とWSHを使ってメールを送信する
http://www.atmarkit.co.jp/fwin2k/win2ktips/428ws …
「Thunderbirdで一括送信」の回答画像2
    • good
    • 0
この回答へのお礼

詳しい回答ありがとうございました。
お礼遅くなりました。
お示し頂いたプログラムで、自分宛のメール1件の送信は成功しました。
でも今、時間がとれずその先に進めませんが、別の機会にチャレンジしたいと思います。
ありがとうございました。

お礼日時:2009/06/14 09:21

>お示し頂いたプログラムで、自分宛のメール1件の送信は成功しました。


 では、次のステップに進みましょう。
 これもテストですから、送信先の「メールアドレス」だけはすべてあなたの メールアドレス にしてください。
 「名前」の方は「麻生太郎」でも「バラク・オバマ」でも何でも構いません(あたなのメールアドレスで「麻生太郎様」や「バラク・オバマ様」というメールが届くだけのことです)。

【準備】
・1行目は前回答と同様です。
・3行目以降にも2行目と同じような内容を書きます(ただし、B列はすべて「あなたのメールアドレス」)。
 何行目まででも構いません。
・A列の「名前」、C・D・E列の「用件1・2・3」の欄にはそれぞれ超テキト~な内容を書いておきます。

【VBA】
>相手のアドレス、名前、用件が1行毎に書かれた
>差込印刷のように、定型文の要所要所にエクセルの各セルの値を埋め込んだ
 応用が利く様に [回答番号:No.2] の コード を元に変更箇所のみ書いてみます。

・「Dim i As Integer」の行を追加し「oMsg.to」~「oMsg.Send」までの行を
For i = 2 To Range("A1").End(xlDown).Row
Next
で挟む。

 つまり、
For i = 2 To Range("A1").End(xlDown).Row
 oMsg.to = ~~~
 ・・・・・・・・
 oMsg.Send
Next

・「Cells(2, 」をすべて「Cells(i, 」に変更する。

 以上で、2行目からA列に値の入力されている最後の行まで、「1行毎に書かれた」「相手のアドレス、名前、用件」に基づいて、「差込印刷のように」「要所要所にエクセルの各セルの値を埋め込んだメールを一括して送信」します。


 なお、
oMsg.Subject = "件名"
のところは、
oMsg.Subject = Cells(i, ~).Value  '「~」は列番号
のような記述をすれば、セルの値から個々に「件名」を設定することもできます。

 また、
oMsg.TextBody = ~~~
のところは、メール本文全体が1つのセルに格納されているような場合でしたら、例のようなまどろっこしい書き方をしなくても、
oMsg.TextBody = Cells(i, ~).Value  '「~」は列番号
で十分です。

 「oMsg.Configuration.Fields」の各行は、おまじないですので、そのまま書いておいてください。


 なおなお、「添付ファイル」がある場合には、
oMsg.AddAttachment "D:\hoge\hoge\hoge.xls"
oMsg.AddAttachment "D:\hoge\hoge.txt"
のように指定すれば、幾つでも添付ファイルを添付することができます。
 この場合も「"D:\hoge\~~"」の部分は、セルの値から引っ張ってくることもできますし、変数に格納して添付ファイル名を指定することもできます。

例1)セルの値から引っ張ってくる場合
oMsg.AddAttachment Cells(i, ~).Value

例2)変数に格納して添付ファイル名を指定する場合
Dim MyMonth As String
MyMonth = IIf(Day(Date) > 15, Format(DateAdd("m", 1, Date), "yy-mm"), Format(Date, "yy-mm"))
oMsg.AddAttachment "D:\hoge\hoge" & MyMonth & ".txt"

 この場合、今月15日までは、「D:\hoge\hoge09-06.txt」というファイルを、15日を過ぎると「D:\hoge\hoge09-07.txt」というファイルを添付します。


#お分かりにならないことがありましたら、補足質問なさってください。
    • good
    • 0

 下記をご参考に。

。。

●CDOでメール送信
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
    • good
    • 0
この回答へのお礼

応答ありがとうございます。
紹介くださったページ読んで、試してみました。
が、「VBAを自分で書けば、目的の操作が可能(?)なこと」はわかったつもりですが、「具体的なVBA」が書けません(悲)。
そのまま使えるソースやフリーソフトご存知ならお教えください。

お礼日時:2009/05/31 00:24

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QThunderbirdで、ジーメールのメールをかってにダウンロード

Thunderbirdを使っているのですが。ジーメールに来たメールを、ジーメールのサーバーに置かないで、コピーをとらないで、ダウンロードしてしまいます。ジーメールのサーバーにメールをコピーして置いておき、Thunderbirdでメールを見る。メールは二つできるのですが。こういった設定はできないのでしょうか?

Aベストアンサー

#6です。

現状でうまくサーバーにコピーが戻らない場合の対応を、再補足しておきます。

Gmailの設定で、POP, IMAPの有功設定を確認してから、予めどこかに適当な名前のフォルダを作成しておいてから、

次の拡張機能のImport Export Tools(旧名:Mbox Import:日本語対応)をインストールしたら※、有功になりますから、
http://nic-nac-project.de/~kaosmos/mboximport-en.html

Gmailアカウントの各トレイの上で右クリック→インポート・エクスポート→フォルダ内のすべてのメッセージをエクスポートする→eml形式で、先に作成したフォルダを選択して、eml形式にコピーをエクスポートしてバックアップしてください。

これらが正常にエクスポートされたことを確認したら、今のIMAPのGmailアカウントを削除します。
その上で、再度、IMAPアカウントを設定して送受信を確認してください。

そして、バックアップしたemlファイルを各トレイにドラッグ&ドロップしてみてください。
それで普通は、Thunderbirdのトレイに対応するサーバーのトレイにもコピーが置けるはずなんですが。

私の両方の方式を設定したアカウントでは、IMAPアカウントの受信トレイにドロップしたものは、しばらくすると、サーバーにコピーを残すように設定したPOPのアカウントの受信トレイに新着します。

※インストール方法は、サイトのページの「Download ImportExportTools (MboxImport enhanced) - 2.3.2 version」のリンクから、右クリックからの保存でダウンロードした「ImportExportTools-2.3.2.xpi」ファイルを、ツール→アドオンで開いた拡張機能の画面の上にドラッグ&ドロップしたら、インストールの手順になりますから、そのまま進んで、Thunderbirdを再起動したらよいです。

#6です。

現状でうまくサーバーにコピーが戻らない場合の対応を、再補足しておきます。

Gmailの設定で、POP, IMAPの有功設定を確認してから、予めどこかに適当な名前のフォルダを作成しておいてから、

次の拡張機能のImport Export Tools(旧名:Mbox Import:日本語対応)をインストールしたら※、有功になりますから、
http://nic-nac-project.de/~kaosmos/mboximport-en.html

Gmailアカウントの各トレイの上で右クリック→インポート・エクスポート→フォルダ内のすべてのメッセージをエクスポートす...続きを読む

Qエクセルで各セルの自然数を10桁から6桁に一括で変換する方法は有りますか?

エクセルで、A1からA100まで全てに、10桁の自然数が入ってます。

この各セルの数字を、左側4ケタを消して、右側6ケタだけを残すようにしたいのですが、
書式設定や、関数など使って一括で一気にそのように変換する方法は有りませんでしょうか?


1234567890→567890
にするということです。

Aベストアンサー

お疲れさまです。

 その様な場合はMid関数を使用いただければと思います。
  MID(<文字列> , <開始位置> , <文字数>)

 例えばA1に1234567890と入っていた場合
 
 B1に=MID(A1,5,2)&"-"&MID(A1,7,4)を入力すると
 56-7890がB1に表示されます。これを下にコピーいただければと思います。

 初めのMIdでA1の値を5文字目から2文字取り出します(56)
 次のMidでA1の値を7文字目から4文字取り出します(7890)
 この2つの数字をーで繋げていただければと思います。

QThunderbirdで「自動的に新着メッセージをダウンロードする」項目が見つかりません

今までPCでのメール送受信はブラウザからGmailを使っていたのですが、いちいちログインするのが面倒と感じていました。
最近、ThunderbirdからGmailアカウントを使用できるという情報を知り、早速試してみることにしました。

まず、Thunderbirdをダウンロードしました。バージョンは、2.0.0.16です。Thunderbirdを使うのは初めてです。

Googleヘルプセンターに、ThunderbirdをIMAPで使用する設定方法が載っており、それを見ながら設定しました。
http://mail.google.com/support/bin/answer.py?answer=77662
途中まではヘルプセンターを見ながら順調に設定できたのですが、
「[自動的に新着メッセージをダウンロードする] をオンにします。」という記述の部分でつまずきました。
そのような設定項目が、Thunderbird内に見つからないのです。

この設定をしないと、何か不具合が起こる可能性はあるのでしょうか?(メールが消えてしまうとか)

メール、ネットワークに関して初心者でして、初歩的な質問になってしまっているかもしれず、申し訳ありません。
よろしくお願いいたします。

今までPCでのメール送受信はブラウザからGmailを使っていたのですが、いちいちログインするのが面倒と感じていました。
最近、ThunderbirdからGmailアカウントを使用できるという情報を知り、早速試してみることにしました。

まず、Thunderbirdをダウンロードしました。バージョンは、2.0.0.16です。Thunderbirdを使うのは初めてです。

Googleヘルプセンターに、ThunderbirdをIMAPで使用する設定方法が載っており、それを見ながら設定しました。
http://mail.google.com/support/bin/answer.py?answer=776...続きを読む

Aベストアンサー

#2です。

Ver2.0.0.16が最新です。
このバージョンで、GmailをIMAPにしていますが、問題ないですよ。

POPも設定しましたが、今は、IMAPです。両方は無理なので、今のままで使用してみて、余裕が出来たら、POPも試してみてください。

なお、GmailはPOPもSSL対応です。また、メールのバックアップは、POPでもIMAPでも拡張機能のImport Export Toolsを利用してください。
バッチリ、バックアップと復元ができます。
https://nic-nac-project.de/~kaosmos/mboximport-en.html

Qエクセルからエクセルへの差込印刷

エクセルの差込印刷について質問です。

エクセルのデータをエクセルに差し込み、印刷する事は可能でしょうか?

ワードで手紙を作った際、あて先と名前だけ差込印刷で、
文章は全て同じのダイレクトメールを印刷する事ってありますよね。
そんなイメージです。エクセル2003を使用しております。

エクセルで作成したアンケートの氏名欄に、全社員の名前を入れて印刷したいのです。
アンケートの質問内容や名前は印刷して配り、印刷されたものに手書きで記入して
もらい、回収します。100枚程のアンケートを、対象者宛に配るのですが、対象者名を
差し込み印刷的な方法で印刷する事は可能かと思いまして…。

A列・1行に『氏名』 (氏名 ○○太郎 ←これの『氏名』です)

BCDEF列・1行をセルで結合し、そこへ名前を入れていきたいと思っております。

上記をシート1に、そして全社員名をシート2のA列に入力しています。

似たような質問を検索してみたのですが、エクセル素人な上に時間が無いもので、
こちらに質問させて頂きました。

どなたかご回答、宜しくお願い致します。

エクセルの差込印刷について質問です。

エクセルのデータをエクセルに差し込み、印刷する事は可能でしょうか?

ワードで手紙を作った際、あて先と名前だけ差込印刷で、
文章は全て同じのダイレクトメールを印刷する事ってありますよね。
そんなイメージです。エクセル2003を使用しております。

エクセルで作成したアンケートの氏名欄に、全社員の名前を入れて印刷したいのです。
アンケートの質問内容や名前は印刷して配り、印刷されたものに手書きで記入して
もらい、回収します。100枚程のアンケー...続きを読む

Aベストアンサー

EXCELだけでは差込印刷はできなかったと思います。
VBAを使うと出来るんですが、ちょっと難しいと思います。

VLOOKUP関数をご存知ですか?
それを駆使するとうまく出来るかもしれません。

VLOOKUPは覚えておくとすごくベンリですよ。
がんばってください。

http://www11.plala.or.jp/koma_Excel/contents3/mame3023/mame302301.html

参考URL:http://www11.plala.or.jp/koma_Excel/contents3/mame3023/mame302301.html

QThunderbird 1.5を今日初めてダウンロードしました。

Thunderbird 1.5を今日初めてダウンロードしたのですが、
メールを受信しようとしても上手く行きません。

上の受信ボタンを押すとパスワードを入力する欄が出るので、
入力すると「パスワードを送信できません・・・」と
エラーメッセージのようなものが表示されてしまいます。

どうしたらよいでしょうか?

Aベストアンサー

エラーメッセージからすれば、G-MailをThunderbirddで送受信ですか?。

私は、G-mailは使用していませんが、次を参考にしてやってみてください。
G-mail側のPOP設定が出来ていないのかも知れませんね。

http://google-mania.net/archives/138

Qエクセルのリストから同エクセル内の別シートに差込印刷をしたいです

添付しております画像の差込リストシート(全部で150件位あります)から報告書シートの該当のセルへ差し込み印刷をしたいのですが、色々検索してみますがいまいちつかめません。
印刷枚数ですが提出用と控えがあるため同じ物を必ず2枚ずつ印刷します
2枚印刷して次のリスト→2枚印刷して次のリスト・・・というふうに自動印刷をかけたいです。

エクセルでそれぞれでシートを作成しても150以上のシートをずっと印刷するのは非効率と思い一度に印刷できるVBAを教えて頂けませんでしょうかm(_ _)m

現在は毎月手書きにてやっておりますのでかなり時間を要している状態にあります。

Aベストアンサー

続けてお邪魔します。

>用紙が正副と続きになっておりまして・・・
そういう理由があったのですね。
それではもう一度コードを載せてみます。
Sheet2とSheet3のレイアウトは同じ配置だとします。
今回も標準モジュールです。

Sub Sample2()
Dim i As Long, wS2 As Worksheet, wS3 As Worksheet
Set wS2 = Worksheets("Sheet2")
Set wS3 = Worksheets("Sheet3")
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
'▼Sheet2の処理//
wS2.Range("B1") = .Cells(i, "A")
wS2.Range("C4") = .Cells(i, "B")
wS2.Range("I4") = .Cells(i, "C")
'▼Sheet3の処理//
wS3.Range("B1") = .Cells(i, "A")
wS3.Range("C4") = .Cells(i, "B")
wS3.Range("I4") = .Cells(i, "C")
'▼両Sheetを印刷//
wS2.PrintOut
wS3.PrintOut
Next i
End With
End Sub

※ 粛々と順番にやっているだけです。m(_ _)m

続けてお邪魔します。

>用紙が正副と続きになっておりまして・・・
そういう理由があったのですね。
それではもう一度コードを載せてみます。
Sheet2とSheet3のレイアウトは同じ配置だとします。
今回も標準モジュールです。

Sub Sample2()
Dim i As Long, wS2 As Worksheet, wS3 As Worksheet
Set wS2 = Worksheets("Sheet2")
Set wS3 = Worksheets("Sheet3")
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
'▼Sheet2の処理//
...続きを読む

QThunderbirdでメッセージサイズ超過メールを後ほど一括ダウンロード

アカウント設定→ディスク領域にて「次のメッセージをダウンロードしない:メッセージのサイズがXXXKB以上」を設定して、一旦取り込まなかったメールをあとから一括でダウンロードする方法はありませんか ?

もしくは、フィルタなどでサイズ超過したため途中までしか取り込まなかったメールの一覧を表示する方法でもかまいません。

環境:WindowsXP,Thunderbird1.5.0.5

よろしくお願いします。

Aベストアンサー

Thunderbirdは使った事がないので判りませんが・・・。

一般的に考えるとサーバーからダウンロードしなければ
メールはサーバーに残っているのでは?!

OE、OLといったメーラーで考えると
もう一つ同じアカウント設定を行い、「メッセージのサイズがXXXKB以上」
のサイズをサーバーの容量を考慮したサイズまで大きくすれば
これまでの設定で受信されなかったメールが受信出来ると思いますが。

一方(現在)には一定のサイズまでのメール。
もう一方(新規)には上記サイズメールと
それを超える容量のメールが受信されると思うのですが。

何分、使用した事がありませんので見当違いの回答になっているかもしれません。
その節はご容赦を。(^_^;)

Q範囲指定した箇所の数値を一括で四捨五入したい

EXCELのマクロで
範囲指定をしたセルの数値(数式ではなく、数字です)を一括で四捨五入(小数点第3位を四捨五入(小数点第2まで表示))した数値を置き換えるマクロを知りたいのですが、調べられずに困っています。
(roundで四捨五入して、それを値だけ貼り付ければ・・と言うことではなく、あくまでもマクロでの方法を教えてください)
よろしくお願いいたします。

バージョンEXCEL2000

Aベストアンサー

標準モジュールに
'========================================================
Sub main()
  On Error Resume Next
  Dim rng As Range
  Set rng = Selection
  If Err.Number = 0 Then
   With rng
     .Value = Evaluate("if(isnumber(" & .Address & _
            "),round(" & .Address & ",2),"""")")
     End With
   End If
End Sub
その四捨五入したいセル範囲を選択した状態で
上記のmainを実行してみてください。
>roundで四捨五入して、それを値だけ貼り付ければ・・と言うことではなく、あくまでもマクロでの方法を教えてください
↑これをそのままVBAコードにしただけです。

QWin7 64bitでAdobeフラッシュプレーヤー10がダウンロードできません

よろしくお願いします。
Win7 64bitでAdobeフラッシュプレーヤー10がダウンロードできません。
Adobeフラッシュプレーヤー10は64bitに対応していないのでしょうか?
なんとか、Adobeフラッシュプレーヤー10を使えるようにする方法を、教えてください。

Aベストアンサー

Adobeフラッシュプレーヤー10には64bitはありません。
IE8の32Bitモードがインストールされていませんか?
必要に応じて使い分けされたらいかがでしょうか。

QCSVファイルにて列内の特定箇所の文字を一括で書き換える方法

CSVファイルにて列内の特定箇所の文字を一括で書き換える方法
分かりづらいタイトルで申し訳ありません、早速なのですが、現在ソフトに出力する為のCSVファイルをExcelにて作成しております。

A列には説明文を入力するのですが、

例えばA列内の説明文には多少の違いがあれど

A列内のどのセル内にも「赤青黄白黒」という文字列が入っていたとします、この「赤青黄白黒」という文字列は新しい色を入荷する度に付け加えなくてはなりません、一つや二つならまだしも、数十、数百という説明文に付け加えるとなると大仕事です。

そこでこの共通する文字列を抽出して一括して書き換える方法は何かないものかと思い投稿させていただきました、何か方法がありましたらご教授下さい。

Aベストアンサー

windows に付属してる ”ノートパッド ” で 文字列の 置き換え機能が使えませんか・・?

但し、A列 だけでは無くて ファイル全体で 「赤青黄白黒」を 「赤青黄白黒緑」と言う風に 書き換えて
呉れます。

Exell でも この置き換えは出来ます。適用範囲を 選択した状態で 行いますので こちらの方が
ご希望に 沿うのでは 無いでしょうか?

置き換えは 文字列を探して 順次実行も 全てを置き換えることも可能です。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング