|
Hoppy さん、おはようございます。
>金沢の県境に位置する藤田屋さんだけは新潟として集計したいため、新潟に県名を変更します。
> Cells(lngYLine, intXLine).Value = Replace(Cells(lngYLine, intXLine).Value, "金沢", "新潟")
金沢は県じゃないし、石川と新潟は隣接もしてないけどいいのかな。
Sub test()
'藤田屋を検索して隣が新潟だと金沢に変更
Dim r1 As Range, s1 As String
'対象は現在表示されているシート
With Application.ActiveSheet
With .Columns("A:A")
Set r1 = .Find("藤田屋", LookIn:=xlValues)
'あれば続行
If Not r1 Is Nothing Then
s1 = r1.Address
Do
With r1.Offset(0, 1) 'ひとつ右→B列
.Value = Replace(.Value, "金沢", "新潟")
End With
'
Set r1 = .FindNext(r1) '検索続行
'
If r1.Address = s1 Then Exit Do '最初に戻ったら抜ける
Loop
End If
End With
End With
'
Set r1 = Nothing
End Sub
Findでするならこんな感じです。
|
|