Excel総合相談所 90at BSOFTExcel総合相談所 90 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト164:名無しさん＠そうだ選挙にいこう 10/02/20 15:39:38 >>163 再インストールなんてサルでも（ｒｙ 165:名無しさん＠そうだ選挙にいこう 10/02/20 18:26:23 【1 OSの種類 .】 Windows Vista 【2 Excelのバージョン 】 Excel2003 【3 VBAが使えるか .】 はい 【4 VBAでの回答の可否】 可 質問おねがいします。 文章を打ち込み、その文章を登録しておいた単語に置換し新たな文章を作成する方法をおたずねしたいです。 例 「元」 「変換」 です。 でござる。 私 拙者 でしょ？ でござろう？ ・ ・ ・ などと登録して、 私は元気です。 ↓ 拙者は元気でござる。 などとするにはどうしたらいいでしょうか？ お力を貸してください。 166:名無しさん＠そうだ選挙にいこう 10/02/20 18:38:53 >>165 a列に変換元、b列に変換後、D1に文章があるとして Sub test() Dim r As Range For Each r In Range("a1", Cells(Rows.Count, 1).End(xlUp)) Range("d1").Value = Replace(Range("d1"), r.Value, r.Offset(0, 1).Value) Next End Sub 関数は思いつかない 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch