Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20743 / 76732

←次へ　｜　前へ→


	【61402】Re:Do While条件式（not equal）

ゆみこん - 09/5/5(火) 23:46 -


	引用なし

	パスワード

Ａ列の藤田屋さんを抽出して置換と言う事で、

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