Excel macro-replace content

Replace execution where the table data meets the conditions.

Tools-> macros-> VB compile macros, create modules, and write the followingCode. Set the macro security to a lower level and run the macro.

Sub macro 1 ()
'
'Macro 1 macro
'
Counter = 4
Do While counter <= 2187
N = 1
For n = 1 to 9
If sheets ("Vehicle Routing identification by model in December"). Range ("D" & Counter) = sheets ("toll station"). Range ("A" & N) then
Sheets ("Vehicle Routing identification by model in December"). Range ("e" & Counter) = sheets ("toll station"). Range ("B" & N)
End if

Next n
Counter = counter + 1
Loop

End sub

Different data types may cause macro problems. For example, if the above type is compared with the numeric type, the type must be modified to be consistent.