标题:VBA请教!一个文件夹里面有多个Excel,每个Excel根据第三列提取数据,每当数 ...
只看楼主
第一宇
Rank: 1
来 自:河南南阳
等 级:新手上路
帖 子:1
专家分:0
注 册:2020-6-30
 问题点数:0 回复次数:1 
VBA请教!一个文件夹里面有多个Excel,每个Excel根据第三列提取数据,每当数据从负值变化为零的时候,就提取这个负值所在的一行,设置循环提取所有符合条件的
一个文件夹里面有多个Excel,每个Excel根据第三列提取数据,第三列的数据都是正值,零,负值,零。  每当数据从负值变化为零的时候,就提取这个负值所在的一行,设置循环提取所有符合条件的值
搜索更多相关主题的帖子: 负值 数据 提取 一行 Excel 
2020-06-30 14:07
chenguoqiang
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2020-12-24
得分:0 
例题描述
一个文件夹里面有多个 Excel,要求每个 Excel 根据第三列提取数据,每当数据从负值变化为零的时候,就提取这个负值所在的一行。

如,在“D:\HistoryDatas”下有两个 Excel 文件



数据格式为



按照数据筛选要求,我们就要把文件夹内所有 Excel 中,类似上图圈住的数据行提取出来。另外,把结果输出到新的 Excel 文件。

实现步骤
1、 运行集算器

可去润乾官网下载职场版,同时下载一个免费授权就够了,首次运行时会提示加载。

2、 编写脚本

A    B
1    >path=“D://HistoryDatas”    / 文件夹路径
2    =directory(path)    / 返回 D 盘 HistoryDatas 下的文件名列表
3    =A2.(file(path/“//”/~).xlsimport@t().select(#3<0 && #3[+1]==0)).conj()    / 直接查找各文件第三列值小于 0 且其下一行为零的数据行,最后合并
4    =file(path/“/ 提取结果.xls/”/).xlsexport@t(A3)    / 输出结果到 Excel
3、 运行脚本,并输出结果到 Excel 文件



查看结果 Excel 文件


2020-12-24 14:47



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-502342-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.251762 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved