|
初歩的な質問で恐縮です。
A列に店名、B列に県名、C列に仕入れ商品名、D列に発注日付が入っており、デイリーで更新しています。
金沢の県境に位置する藤田屋さんだけは新潟として集計したいため、新潟に県名を変更します。
以下のソースは、藤田屋を検索し、Hitする間県名を変更するというつもりですが、恐らく条件式の"Obj Is Not Nothing"が不適切です。色々調べ、試しましたが
しっくり着ません。
よろしければ御教示願えませんでしょうか。
Sub Chng_KNZtoNGT()
Dim lngYLine As Long
Dim intXLine As Integer
Dim Obj As Object
Set Obj = Worksheets("data").Cells.Find("藤田屋")
Do While Obj Is Not Nothing
lngYLine = Worksheets("data").Cells.Find("藤田屋").Row
intXLine = Worksheets("data").Cells.Find("藤田屋").Column
intXLine = intXLine + 1 '県名のセルに移動
Cells(lngYLine, intXLine).Value = Replace(Cells(lngYLine, intXLine).Value, "金沢", "新潟")
Set Obj = Worksheets("data").Cells.Find("藤田屋")
Loop
End Sub
|
|