多谢兄弟，试一下效果。

data test;
infile cards missover;
input City $ Code $;
cards;
A         1
B    2
C         3
D         4
E         5
A          
E         5
D         
B         
C         
;

proc sql;
create table codefmt as
select distinct city as start, code as label, '$ctcode'as fmtname
from test
where code ne '';
quit;

proc format cntlin=codefmt;
run;

data wanted;
set test;
code=put(city,$ctcode.);
run;

用format来赋值，非常有启发性，谢谢。会比merge更加简单，也会更加快吧？

应该是的，而且可以省去sort的过程