Excel VBA質問箱 IV

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

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


20735 / 76732 ←次へ | 前へ→

【61410】Re:Do While条件式(not equal)
発言  arajin  - 09/5/6(水) 9:29 -

引用なし
パスワード
   ▼Hoppy さん:
>ゆみこんさん、おはようございます。
>オートフィルターを使用するんですね。
>全く気がつきませんでした。
>発送の転換、大変参考になりました。
>なかなか柔軟な考えができないんですよね〜。
>これからもよろしくお願いします。
>ありがとうございました。

もう蛇足になってしまいますが、気づいたのでコメントさせて下さい。

「現在の発想は、頭から目的のセルを探して、その横のセルの文字を置換する。
これをデータのある最終行までループで行う。」
ということだと思いますが、ちょっと別な発想をしてみませんか?

もし、マクロでなく一般操作でご希望の処理を実現しようとしたら、
あなたなら、どんな手順になりますかね。
私なら、AutoFilterでデータを絞り込んでから、特定列に対して置換(Ctrl+H)という手順が浮かびます。
あとは、この操作のマクロ記録を取ればいいと思います。
出来上がるコードは、Replace関数ではなく、RangeクラスのReplaceメソッドによる置換コードになります。

少し、大雑把ではありますが、ループしない別法です。

With Worksheets("data").Range("A1").CurrentRegion
  .Worksheet.AutoFilterMode = False
  .AutoFilter 1, "藤田屋"
  .AutoFilter 2, "石川県*"    'B列で絞る必要がなければ不要です。
  .Columns("B").Replace "金沢", "新潟", xlPart  
  .Worksheet.AutoFilterMode = False
End With
0 hits

【61399】Do While条件式(not equal) Hoppy 09/5/5(火) 23:25 質問
【61400】Re:Do While条件式(not equal) Abyss 09/5/5(火) 23:28 発言
【61406】Re:Do While条件式(not equal) Hoppy 09/5/6(水) 7:34 お礼
【61402】Re:Do While条件式(not equal) ゆみこん 09/5/5(火) 23:46 発言
【61407】Re:Do While条件式(not equal) Hoppy 09/5/6(水) 7:40 回答
【61410】Re:Do While条件式(not equal) arajin 09/5/6(水) 9:29 発言
【61414】Re:Do While条件式(not equal) Hoppy 09/5/7(木) 9:25 お礼
【61416】Re:Do While条件式(not equal) arajin 09/5/7(木) 10:25 発言
【61404】Re:Do While条件式(not equal) りん 09/5/6(水) 7:00 回答
【61409】Re:Do While条件式(not equal) Hoppy 09/5/6(水) 7:49 お礼

20735 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free