data test;
input city :$20.  Q1  Q2;
datalines;
Zhejiang . .        
HZ    10    11
NB    20    12
LS    12    13
.    42    36
Beijing . .        
HD    20    14
CW    30    15
CP    40    21
.   90    50
;
run;

data temp;
set test;
retain cityx;
if Q1=. then cityx=city;
run;
data want(drop=cityx);
set temp;
if q1=. then delete;
if city="" then city=cityx;
run;
优点是可以自动识别beijing等地名，地名下面数据部分的行数可以不固定
运行结果：

data test;
input city :$20.  Q1  Q2;
datalines;
Zhejiang . .        
HZ    10    11
NB    20    12
LS    12    13
.    42    36
Beijing . .        
HD    20    14
CW    30    15
CP    40    21
.   90    50
;
run;

data want(rename=(city_f=city)  drop=city);
  set test;
city_f=lag4(city);
if not  missing(city)  then city_f=city;
if  missing(q1) and missing(Q2) then delete;
run;

我想到的是数据集合并的方法
data.txt中原始数据：
ZheJiang . .        
HZ    10    11
NB    20    12
LS    12    13
    42    36
BeiJing . .        
HD    20    14
CW    30    15
CP    40    21
    90    50

SAS代码：
data subtotal;
        infile 'D:\data.txt' ;
        input #1 city $ #5 Q1 Q2;output;
        input #6 city $ #10 Q1 Q2; output;
run;

data test1;
        infile 'D:\data.txt' truncover;
        input city $  Q1  Q2;
        if _N_ not in (5,10);
run;

data test;
        set test1;
        m=1;
        if _N_=1 then set subtotal point=m;
        n=2;
        if _N_=5 then set subtotal point=n;
run;


运行结果：

ZheJiang	42	36
HZ	10	11
NB	20	12
LS	12	13
BeiJing	90	50
HD	20	14
CW	30	15
CP	40	21

嗯，LAＧ有些投机取巧了。

谢谢大家的答复！