Excel VBA質問箱 IV

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

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


20743 / 76732 ←次へ | 前へ→

【61402】Re:Do While条件式(not equal)
発言  ゆみこん  - 09/5/5(火) 23:46 -

引用なし
パスワード
   A列の藤田屋さんを抽出して置換と言う事で、

Sub try()
 Dim r As Range
 Dim rr As Range
 Application.ScreenUpdating = False

 With Worksheets("data")
    .Range("A1").AutoFilter 1, "藤田屋"
    Set r = .Range(.Range("A2"), .Cells(Rows.Count, 1) _
        .End(xlUp)).SpecialCells(xlCellTypeVisible)
    If r.Row > 1 Then
     For Each rr In r.Offset(, 1)
       rr.Value = Replace(rr.Value, "金沢", "新潟")
     Next
    End If

    .Range("A1").AutoFilter
 End With
 Application.ScreenUpdating = True
 Set r = Nothing
End Sub

ご参考程度まで。
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 お礼

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