我的意思是现在搜索“AAA”后包含AAA的观测以及item1-item7都保留了，在这个基础上我想能不能只保留关键词包含AAA的那个item，而把其他item都去掉。观测方面保持现有状态就行。

至于转置是我自己反复弄程序后没想出合适的程序，想着如果转置了是不是好做一点。您可以忽略。回头我再研究一下。

这还是我刚才的问题，比如现在是这样，第一列是daima, 后面是item1 - item3，只保留AAA，那么得到的数据集应该是什么样？
1 AAA BBB CCC
1   1     2      3
2 DDD EEE AAA
2   2     3     4
3 DDD AAA FFF
3   3     4      5

刚才可能没想清楚也没说清楚，我的理想结果是这样的：

本来根据您的代码得到的结果是
daima item1   item2   item3
1       AAA    cde      FCD
1       134     23       345
2       EDF     ADE        AAA
2       567      23       1345
然后把带有办公费的item另外定义为一个特定变量，如bangong，这样就可以得到

daima item1   item2   item3     bangong
1       AAA    cde      FCD      AAA
1       134     23       345     134
2       EDF     ADE        AAA   AAA
2       567      23       1345   1345
不知道说清楚了没有。

try this:

data wanted;
set test;
length bangong $20;
retain n;
array item{*} item:;
if mod(_n_,2)=1 then do;
  n=.;
  do i=1 to dim(item);
   if index(item{i},'AAA') then do;
     bangong=item{i};
         n=i;
   end;
  end;
end;
if mod(_n_,2)=0 and n ne . then bangong=item{n};
drop i n;
run;

可以，没问题，多谢您了。