Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3836 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59913】Replaceを繰り返し行う hiro 09/1/18(日) 17:18 質問[未読]
【59914】Re:Replaceを繰り返し行う マクロマン 09/1/18(日) 17:43 発言[未読]
【59916】Re:Replaceを繰り返し行う hiro 09/1/18(日) 18:06 発言[未読]
【59918】Re:Replaceを繰り返し行う マクロマン 09/1/18(日) 18:09 発言[未読]
【59915】Re:Replaceを繰り返し行う ぱくぱく名無しさん 09/1/18(日) 18:03 発言[未読]
【59917】Re:Replaceを繰り返し行う hiro 09/1/18(日) 18:07 発言[未読]
【59919】Re:Replaceを繰り返し行う マクロマン 09/1/18(日) 18:11 発言[未読]
【59922】Re:Replaceを繰り返し行う hiro 09/1/18(日) 19:12 お礼[未読]
【59913】Replaceを繰り返し行う
質問  hiro  - 09/1/18(日) 17:18 -
引用なし
パスワード
   置換したいのはSheet1のL列です。
置換したい文字列が100通り近くあります。
調べところ
Sub Replace()
myRow = Sheets("sheet1").Range("L65536").End(xlUp).Row
Range("L1:L" & myRow).Select
With Selection
　 .Replace What:="A1", Replacement:="A100", LookAt:=xlWhole
　 .Replace What:="B1", Replacement:="B100"
　 .Replace What:="A2", Replacement:="H100"
　 .Replace What:="B2", Replacement:="T100"
End With
このようにその回数分書けば良いみたいですが
Sheet2のA列に変更前の文字列、B列に変更後の文字列を
入れておいてWhatとReplacementにそれぞれ代入していく方法は
無いでしょうか？
【59914】Re:Replaceを繰り返し行う
発言  マクロマン  - 09/1/18(日) 17:43 -
引用なし
パスワード
   参考になると思います。

ｈｔtp://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_for_next.html
【59915】Re:Replaceを繰り返し行う
発言  ぱくぱく名無しさん  - 09/1/18(日) 18:03 -
引用なし
パスワード
   hiro さん：

>Sheet2のA列に変更前の文字列、B列に変更後の文字列を

ここの過去ログにもありますね。
htt p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=19098;id=excel
【59916】Re:Replaceを繰り返し行う
発言  hiro  - 09/1/18(日) 18:06 -
引用なし
パスワード
   For〜Nextでいろいろ考えてみましたが
変数でうまく代入できずに質問しました。
よろしくお願いいたします。
【59917】Re:Replaceを繰り返し行う
発言  hiro  - 09/1/18(日) 18:07 -
引用なし
パスワード
   リンクエラーになってしまいます。
【59918】Re:Replaceを繰り返し行う
発言  マクロマン  - 09/1/18(日) 18:09 -
引用なし
パスワード
   参考になると思います。

VBAセル制御
ｈｔtp://www2s.biglobe.ne.jp/~iryo/vba/VBA05.html
【59919】Re:Replaceを繰り返し行う
発言  マクロマン  - 09/1/18(日) 18:11 -
引用なし
パスワード
   >リンクエラーになってしまいます。

ここはurlを直接貼り付けることが出来ないので
一部を全角にしたりスペースを入れたりしています。
urlを修正してからブラウザのアドレスに貼り付けてください。
【59922】Re:Replaceを繰り返し行う
お礼  hiro  - 09/1/18(日) 19:12 -
引用なし
パスワード
   Do Until〜Loop
の方法で置換できました。

配列に格納する方法では
型宣言文字と宣言されたデータ型が一致しません。と
なってしまいます。
Replace$のところです。

Sheet2を参照するように代えてみます。

アドバイスありがとう御座いました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3836 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free