如楼上所言，如果是例子这种较明确的替换，那么tranwrd更直接，如果是pattern模式，就需要prxchange了。
例子中可以做如下操作：
if index(things,'小明')>0 then thingsa = tranwrd(things,'小明','小红');

多谢

谢谢楼上两位的讨论和代码。从你们的讨论中得到了学习！

共同提高^_^

写了一小段宏,学习中不断提高啦啦啦~
%macro replace(str =  ,find = , replace = );
data _null_;
        string = "&str";
        if find(string,"&find") then do;
                str1 = substr(string,1,index(string,"&find")-1);
                str2 = substr(string,length(str1)+length("&find")+1);
                out = strip(str1)||strip("&replace")||strip(str2);
        end;
        else do;
                out = "Not find '&find'";
        end;
        put out;
run;
%mend replace;

%replace(str = %str(SayHellotoWorld), find = %str(Hello), replace = %str(Yes));
%replace(str = %str(Say Hello to World), find = %str(Hi), replace = %str(Yes));
希望大神们还能提些建议让宏的适用性更广泛,谢谢~