标题:如何实现从多个文件里把相同的某一个字段中的一些值对应的某些字段,挑出来 ...
只看楼主
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
等 级:版主
威 望:26
帖 子:197
专家分:1249
注 册:2017-7-8
得分:10 
这个简单,你的实际数据文件呢?
2018-04-26 06:20
zyxk_wang
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2018-4-25
得分:0 
回复 3楼 xyxcc177
Andy's PC_List.rar (14.6 KB)
原文件比较大,只截取了一部分。谢谢老师。
2018-04-26 08:54
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:197
专家分:1249
注 册:2017-7-8
得分:0 
Andy's PC_List.rar (29.54 KB)

看看是不是这样?
2018-04-26 17:24
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:197
专家分:1249
注 册: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@

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

2018-04-27 13:00
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:197
专家分:1249
注 册:2017-7-8
得分:0 
可以加qq解决,501214014
2018-04-28 08:57
zyxk_wang
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2018-4-25
得分:0 
回复 8楼 xyxcc177
例子.zip (6.17 KB)
2018-05-02 15:58
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:197
专家分:1249
注 册:2017-7-8
得分:0 
提取数据.rar (22.56 KB)
运行它就可以了
2018-05-02 18:03



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




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

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