VBA 数据统计问题求助

nemenis

对附件中的数据，名称如下图所示，要求:
1. 前两个_ _的数据（文件名中数字060224之前的数据）定义为lot，每个lot对应多个csv文件，只筛选出结尾包含SCA_HS的文件，如果同lot包含多个结尾有SCA_HS的文件，则取中间060224104128这串中间数字较大的那个csv文件
2. 选定对应lot 的csv文件后，将lot信息存储到工作表VBA_SUM中sheet“sum”第一列中。
3. 将选定对应lot的csv文件打开分列，取第一列第一个大于1.2的行对应的第二列数字填入sheet“sum”对应lot的第二列中；取第四列最大值填入sheet“sum”对应lot的第三列中



自己尝试编写了一个VBA，思路时先筛选结尾包含SCA_HS的文件，然后筛选属于同一lot的文件，最后再根据中间那串数字大小选定数字较大的csv文件，将lot信息放在放在附件excel：VBA_SUM中第一列，打开此csv文件并分列，取第一列第一个大于1.2的行对应的第二列数字填入sheet“sum”对应lot的第二列中；取第四列最大值填入sheet“sum”对应lot的第三列中。结果在筛选记录lot信息的时候就出现编译错误无法继续进行，请大神帮忙看下错误原因？谢谢。

另外，取第一列第一个大于1.2的行对应的第二列数字填入sheet“sum”对应lot的第二列中；取第四列最大值填入sheet“sum”对应lot的第三列中这个操作也请教一下有什么什么简便一些的方法？谢谢

LIUZHU

060224104128这串中间数字较大的那个csv文件，应该就是lot相同的最后那个文件，对吧？

nemenis

LIUZHU 发表于 2024-4-11 18:30
060224104128这串中间数字较大的那个csv文件，应该就是lot相同的最后那个文件，对吧？

是的，您理解的没错，但按照不同规格重新排列一下可能会变

nemenis

我一直卡在这个报错没搞清楚这个报错时什么原因

LIUZHU

好像是这个效果，重新写的

LIUZHU

JSA代码，不是VBA

1. function 提取数据(){
   
2.         let fname=Dir(`${ThisWorkbook.Path}\\*HS.CSV`);
   
3.         let obj={},res=[["LOT","Vge","Icsc"]];
   
4.         while(fname!=""){
   
5.                 let key=fname.split("_").slice(0,2).join("_");
   
6.                 obj[key]=`${ThisWorkbook.Path}\\${fname}`;
   
7.                 fname=Dir();
   
8.         }
   
9.         for (let key in obj){
   
10.                 let fnum=FreeFile();
    
11.                 Open(obj[key],fnum,jsInput);
    
12.                 let k=0,m,n;
    
13.                 while(!EOF(fnum)){
    
14.                         let [a,b,c,d]=LineInput(fnum).split(/\t/g);
    
15.                         if (++k<=7) continue;
    
16.                         if (a>1.2 && m==null) m=b;
    
17.                         n=n==null?d:(n<d?d:n);
    
18.                 }
    
19.                 res.push([key,m,n]);
    
20.                 Close(fnum);
    
21.         }
    
22.         Sheets.Item("sum").Activate();
    
23.         Cells.ClearContents();
    
24.         Range("a1").Resize(res.length,res[0].length).Value2=res;
    
25.        
    
26. }

复制代码

LIUZHU

WPS打开测试下，Excel不行

LIUZHU

nemenis 发表于 2024-4-11 18:49
是的，您理解的没错，但按照不同规格重新排列一下可能会变

从系统导出来的数据，名称一般还是比较有规律的

nemenis

辛苦大佬帮忙，代码很简洁，不过公司电脑只有microsoft office，还是运行不了，还是谢谢您

半百

不知猜的对不对