data test;
input id   tree $ source_account $ target_account $;
cards;
1 A0000001 A0000001 A0000002
2 A0000001 A0000002 A0000003
3 A0000001 A0000003 A0000004
4 A0000001 A0000004 A0000005
5 B0000001 B0000001 B0000002
6 B0000001 B0000002 B0000003
7 B0000001 B0000003 B0000004
8 B0000001 B0000004 B0000005
;
run;

不知道为什么代码到这里就变坏了

data test;
input id   tree $ source_account $ target_account $;
cards;
1 A0000001 A0000001 A0000002
2 A0000001 A0000002 A0000003
3 A0000001 A0000003 A0000004
4 A0000001 A0000004 A0000005
5 B0000001 B0000001 B0000002
6 B0000001 B0000002 B0000003
7 B0000001 B0000003 B0000004
8 B0000001 B0000004 B0000005
;
run;

其他都对，就是input后面 是 input id   tree $ source_account $ target_account $;

bu mingbai

%macro tree(_inds=);
proc sql noprint;
select distinct tree into :varlist separated by ' '
from &_inds;
quit;

%let i=1;
%let var=%scan(&varlist,&i,%str( ));
%do %while(&var ne );
data tmp pool;
  set &_inds;
        where tree="&var";
        by tree;
        n+1;
        if last.tree then call symput("n",strip(put(n,best.)));
        rename source_account=_1 target_account=_2;
        if _n_=1 then output tmp;
        else output pool;
        drop n id;
run;

%do j=1 %to %eval(&n-1);
data tmp;
  merge tmp(in=a)        pool(rename=(_2=_%eval(&j+2) _1=_%eval(&j+1)));
        by tree _%eval(&j+1);
        if a;
run;
%end;

data &var;
  set tmp;
run;

%let i=%eval(&i+1);
%let var=%scan(&varlist,&i,%str( ));
%end;

%mend;

%tree(_inds=test);

我大概想到的方法，不知道是否是你想要的。
若你还要修改，只有你自己再改改了，希望对你有启发。

谢谢你的回复，花了很多心思吧，可是我要的是把结果画出来，感谢。

今天加班没来得及回你，你做的还不错，虽然没有实现，但是花心思了，多谢了哈。