| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 879 人关注过本帖
标题:如何实现从多个文件里把相同的某一个字段中的一些值对应的某些字段,挑出来 ...
只看楼主 收藏
zyxk_wang
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2018-4-25
结帖率:0
  已结贴   问题点数:20  回复次数:12   
如何实现从多个文件里把相同的某一个字段中的一些值对应的某些字段,挑出来另存到....
如题:有几十文件,每个文件里都有ItemID这个字段,如何把所有文件里ItemID字段的值为261,263,513,515...等等(很多值,其它值不要)对应的Item字段和Value字段另存到一个文件里,另外在最前面新增一个字段username字段,其值取515的值。麻烦请问下老师,能实现这个功能吗?在此感谢!~~~要实现的效果见附件(实现的效果是横着排列)谢谢老师,不知道我说清楚没?
附件: 您没有浏览附件的权限,请 登录注册
2018-04-25 17:35
童生
Rank: 6Rank: 6
等 级:侠之大者
威 望:8
帖 子:205
专家分:455
注 册:2018-3-7
  得分:10 
https://jingyan.baidu.com/article/6525d4b1777c53ac7d2e94ee.html  才几十个文件吗,按这个方法,复制粘帖最后一整理不就行了?
2018-04-25 20:08
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:141
专家分:910
注 册:2017-7-8
  得分:10 
这个简单,你的实际数据文件呢?
2018-04-26 06:20
zyxk_wang
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2018-4-25
  得分:0 
回复 3楼 xyxcc177
原文件比较大,只截取了一部分。谢谢老师。
附件: 您没有浏览附件的权限,请 登录注册
2018-04-26 08:54
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:141
专家分:910
注 册:2017-7-8
  得分:0 

看看是不是这样?
附件: 您没有浏览附件的权限,请 登录注册
2018-04-26 17:24
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:141
专家分:910
注 册:2017-7-8
  得分:0 
程序代码:

Sub test1()
Dim lColor As Long
Dim w As Long
Dim i, r, j As Integer
Dim ar(2, 100)
Dim sht As Worksheet
w = 16777215

Set sht = Sheets("20160404")
r = sht.Cells(Rows.Count, 1).End(xlUp).Row
  j = 1
ar(0, 0) = "UserName"
ar(1, 0) = Mid(ActiveWorkbook.Name, 1, InStr(ActiveWorkbook.Name, ".") - 1)

For i = 1 To r
lColor = sht.Range("a" & i).Interior.Color
  If lColor <> w Then
  ar(0, j) = sht.Range("b" & i).Value
  ar(1, j) = sht.Range("c" & i).Value
  j = j + 1
  End If
Next
Sheets("结果").Range("a1:zz2").ClearContents
Sheets("结果").Range("a1").Resize(2, 100).Value = ar
Sheets("结果").Activate

End Sub

2018-04-26 17:25
zyxk_wang
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2018-4-25
  得分:0 
回复 6楼 xyxcc177
谢谢老师,结果是对的。但有二个问题老师,1.我有一个目录下有200多个这样的文件,里面的内容都是实例中的内容,如何让它自动读取每一个文件,然后生成到另一个文件里。
2.USERNAME那栏不用新增了,因为后面已经有个username字段,不好意思。麻烦辛苦老师了。如何感激下老师,留个邮件吧zyxk_wang@163.com

[此贴子已经被作者于2018-4-27 13:17编辑过]

2018-04-27 13:00
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:141
专家分:910
注 册:2017-7-8
  得分:0 
可以加qq解决,501214014
2018-04-28 08:57
zyxk_wang
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2018-4-25
  得分:0 
回复 8楼 xyxcc177
附件: 您没有浏览附件的权限,请 登录注册
2018-05-02 15:58
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:141
专家分:910
注 册:2017-7-8
  得分:0 
运行它就可以了
附件: 您没有浏览附件的权限,请 登录注册
2018-05-02 18:03







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

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