其实，我用index函数是可以完成我的要求的。
我重新把要求及我的code贴出来，看有无更好的code
数据集A
id v1$10. v2$ v3$ v4$;
1 张三   李四  王五    陈六
2 张二   王一  张三    陈一
3 陈六   王二  李四(1) 张二
4 张二   王一  张一    陈一
5 陈一   王一  张三(2) 李二
6 陈一   王一  张二    吴7
7 陈七、张三  吴六  李1  王二


数据集B
V5
张三
李四
吴7


要求：
从数据集A中所有变量中，凡是符合数据集B变量V5中数据值中的所有记录，抽取到数据集C

我使用index函数完成的code

我的code中是没有直接用数据集B，是利用数据集B的所有记录内容来筛选，这里有个问题，如果数据集B的记录不是3个，而是很多，我就需要很多行code，所有我想优化此过程，怎样做到？

PROC SQL seems more simple and straightforward.

data a;
input v1 $ v2 $ v3 $ v4 $;
cards;
张三    李四   王五        陈六
张二    王一   张三        陈一
陈六    王二  李四(1)   张二
张二    王一  张一       陈一
陈一    王一  张三(2)   李二
;
run;

data b;
input V5 $;
cards;
张三
李四
;
run;


data c;
        set a;
        array x v1-v4;
        do i=1 to all;
        set  b  nobs=all point=i;
        do j=1 to dim(x);
        if x{j}=v5 then output;
        end;
        end;
        drop i j v5;
run;

proc sort data=c out=d nodup;
by v1-v4;
run;

谢谢

但你这个还是不对，是v1-v4中包含有v5的值，但v1-v4的值不一定是=v5的，比如，v3=张三（2），这是包含有“张三”，这里不是v3=v5。

谢谢，这就是我想要的。

完整的Code

data a;
input id v1 $10.  v2 $  v3 $ v4 $;
cards;
1 张三        李四  王五     陈六
2 张二        王一   张三    陈一
3 陈六        王二   李四(1) 张二
4 张二        王一   张一    陈一
5 陈一        王一   张三(2) 李二
6 陈一        王一   张二    吴7
7 陈七、张三  吴六   李1     王二
run;

data b;
input V5 $;
cards;
张三
李四
吴7
;
run;

/*方法1*/
/*此方法最直观，但是，如果v5变量含多条记录，编程会变成很长。*/
data c;
set a;
if index(v1,"张三")>0 or index(v2,"张三")>0 or index(v3,"张三")>0 or index(v4,"张三")>0   then yes=1;
if index(v1,"李四")>0 or index(v2,"李四")>0 or index(v3,"李四")>0 or index(v4,"李四")>0   then yes=1;
if index(v1,"吴7")>0  or index(v2,"吴7")>0  or index(v3,"吴7")>0  or index(v4,"吴7")>0    then yes=1;
if yes=1;
run;


/*方法2*/
/*此方法把数据集a的v1-v4变量赋予数组x，再用index()函数找出符合条件的记录*/
data c;
set a;
array x v1-v4;
do i=1 to all;
set b  nobs=all point=i;
do j=1 to dim(x);
if index(x{j},compress(v5))>0 then  output;
end;
end;
drop i j v5;
run;

proc sort data=c out=d nodup;
by id;
run;
      

不知道论坛现在贴的code会变形，详细可以下载附件