| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1713 人关注过本帖
标题: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
快速回复:VBA请教!一个文件夹里面有多个Excel,每个Excel根据第三列提取数据, ...
数据加载中...
 
   



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

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