[[20140723102154]]　『オートフィルタ後replace』（apple）　ページの最後に飛ぶ

『オートフィルタ後replace』（apple）

VBA初心者です。
オートフィルタでデータを抽出しました。
その後、C列の特定の文字を何かに変更する場合、
どのようにしたらいいでしょうか。

C列の可視セルを選択するところまでしか
わかりません。
↓
Range(Cells(3, 4), Cells(i, 4)).SpecialCells(xlCellTypeVisible).Select

もっといい方法があると思うのですが・・。
よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 いろいろなやり方はあると思いますが、こんな程度で良いのではないでしょうか。
    Dim r As Range
    For Each r In Range(Cells(3, "D"), Cells(i, "D")).SpecialCells(xlCellTypeVisible)
        r.Value = Replace(r.Value, "〇", "×")
    Next

（Mook） 2014/07/23(水) 10:47

Mook様

ありがとうございました。完璧にできました(^o^)

cells(3,"D")って初めてみました。
すごいですっ。
（apple） 2014/07/23(水) 12:55

 あっ、すみません。
 4だとまだいいですが、大きい数字だとどの列かわからないので "D" と勝手に変えました。

 そこは処理には影響ないです。
（Mook） 2014/07/23(水) 13:05

コメント返信：

[ 一覧(最新更新順) ]

[[20140723102154]] 『オートフィルタ後replace』（apple） ページの最後に飛ぶ

[[20140723102154]]　『オートフィルタ後replace』（apple）　ページの最後に飛ぶ