1，使用sql语句可以完成
2，使用sas，可以搞定

数据能不能以附件发上来

不好乙稀！答复晚了。数据文件包见附件

求围观

data ex;
input
date:yymmdd10. file:$100. num ;
format date yymmdds10.;
cards;
;
run;

filename folder pipe 'dir E:\MyFold\*.csv /b';

%macro import(name=);
data temp(drop=i);
infile  "E:\MyFold\&name." dlm=',';
length file $ 100;
input date:yymmdd10. @;
file=scan("&name",1,'(');
do i=1 to 6;
input num@@;
if i=4 then output;
end;
proc append base=ex data=temp;
run;
%mend;

data _null_;
infile folder;
input char:$100.;
call execute(compress('%import('||'name='||char||')'));
run;

proc sort data=ex out=ex1;
by date;

proc transpose data=ex1 out=mynewdata(drop=_name_);
by date;
id file;
var num;
run;

proc corr data=mynewdata(drop=date) nomiss;
var _all_;
run;