查看: 525|回复: 20
提取多EXCEL文件中的某一列，合并到一个表格中，求大神指教
阅读权限20
在线时间 小时
各位老师，各位大神：小弟在工作中进行数据汇总处理的时候，都是对数据进行选取，复制加转置粘贴，文件太多，挺麻烦的，而且效率太低，请各位大神帮忙出个简单快捷的方法，小弟万分感谢……
具体如附件示例所示，各数据表中的A列(A4开始)需除1000000后转置在新表中作为第一行，然后提取B(B4开始)列中的数据，转置在新表中的数据行……小弟先感谢各位老师，各位大神了
09:19 上传
点击文件名下载附件
155.12 KB, 下载次数: 13
阅读权限100
在线时间 小时
每个工作簿在新表中生成一个单独的工作表吗？
阅读权限20
在线时间 小时
每个工作簿在新表中生成一个单独的工作表吗？
A1-A5，B1-B5各生成一个单独的工作表，其实我想寻求方法，恳请大神指点
阅读权限100
在线时间 小时
A1-A5，B1-B5各生成一个单独的工作表，其实我想寻求方法，恳请大神指点
可以使用VBA进行处理。
那么多工作薄，只处理A1-A5,B1-B5，其它的比如C1之类的是不处理的？
另外，示例结果中的 “Freq(MHz)”之类的值是固定的吗？还是每个表固定最多Part #M5
阅读权限20
在线时间 小时
可以使用VBA进行处理。
那么多工作薄，只处理A1-A5,B1-B5，其它的比如C1之类的是不处理的？
另外，示例 ...
嗯，是所有的工作簿都要处理的，A1-F5都需要处理，可以的话，请大神帮忙找个简单有效的办法吧，先谢谢了！
结果中的Freq(MHz)行的值也不是固定的，示例中的只是一个样板，可能会变化；每个表不止Part #M5，我只是列举了5个，多的时候有几十个……一般情况下都是Part #M30……
阅读权限100
在线时间 小时
嗯，是所有的工作簿都要处理的，A1-F5都需要处理，可以的话，请大神帮忙找个简单有效的办法吧，先谢谢了 ...
Freq(MHz)行的值也不是固定的，示例中的只是一个样板，可能会变化
说明里并没有说明变化的规则，还是先不处理这个地方？统一按Freq(MHz)处理？
阅读权限100
在线时间 小时
Sub 按钮1_Click()
& & Dim d As Object, arr, brr, i&, j&, k&, p$, f$
& & Dim sht As Worksheet, d2 As Object
& & Application.DisplayAlerts = False
& & Application.ScreenUpdating = False
& & Set d = CreateObject(&scripting.dictionary&)
& & Set d2 = CreateObject(&scripting.dictionary&)
& & p = ThisWorkbook.Path & &&
& & f = Dir(p & &*.csv&)
& & For Each sht In Worksheets
& && &&&If sht.Name && ActiveSheet.Name Then sht.Delete
& & Next
& & Do While f && &&
& && &&&n = Left(f, 1)
& && &&&If Not d2.exists(n) Then
& && && && &d2(n) = f
& && &&&Else
& && && && &d2(n) = d2(n) & &,& & f
& && &&&End If
& && &&&f = Dir
& & Loop
& & For Each ky In d2.keys
& && &&&Worksheets.Add , Sheets(Sheets.Count)
& && &&&ActiveSheet.Name = ky
& && &&&r = Split(d2(ky), &,&)
& && &&&j = 2
& && &&&ReDim brr(1 To 10000, 1 To 1000)
& && &&&brr(1, 2) = &Freq(MHz)&
& && &&&For l = 0 To UBound(r)
& && && && &f = r(l)
& && && && &With GetObject(p & f)
& && && && && & arr = .Sheets(1).[a1].CurrentRegion
& && && && && & .Close False
& && && && &End With
& && && && &For i = 4 To UBound(arr)
& && && && && & temp = arr(i, 1) / 1000000
& && && && && & book = temp & ky
& && && && && & If Not d.exists(book) Then
& && && && && && &&&j = j + 1
& && && && && && &&&d(book) = j '标记列
& && && && && && &&&d(book & &row&) = 2 '标记行
& && && && && && &&&brr(1, j) = temp
& && && && && && &&&brr(2, j) = arr(i, 2)
& && && && && && &&&brr(2, 2) = &Part #M1&
& && && && && & Else
& && && && && && & d(book & &row&) = d(book & &row&) + 1
& && && && && && & temprow = d(book & &row&)
& && && && && && & brr(temprow, 2) = &Part #M& & temprow - 1
& && && && && && & brr(temprow, d(book)) = arr(i, 2)
& && && && && & End If
& && && && &Next
& && &&&Next
& && &&&[a1].Resize(UBound(brr), j) = brr
& && &&&Erase brr
& && &&&d.RemoveAll
& & Next
& & Set d = Nothing
& & Set d2 = Nothing
& & Application.ScreenUpdating = True
& & Application.DisplayAlerts = True
& & Sheets(1).Select
& & MsgBox &ok&
End Sub
复制代码
阅读权限100
在线时间 小时
(170.25 KB, 下载次数: 14)
09:36 上传
点击文件名下载附件
阅读权限20
在线时间 小时
真的解决问题了，辛苦大神了……万分感谢！
阅读权限20
在线时间 小时
& & & & & & & &
再请教大神一下，就是比如我的第一行列数有增加或减少，会不会有影响？是否需要修改VBA代码内容呢？
最新热点 /1
ExcelHome图书当当网5折来袭，抢、抢、抢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 4471|回复: 9
麻烦高手帮忙做一个房租表格。万分感谢！！！
阅读权限10
在线时间 小时
.jpg (176.46 KB, 下载次数: 12)
20:46 上传
.jpg (169.83 KB, 下载次数: 1)
20:46 上传
.jpg (266.9 KB, 下载次数: 0)
20:46 上传
.jpg (283.32 KB, 下载次数: 0)
20:46 上传
由于误删软件。现在只能自己做表格打印房租单。麻烦好心人按图片帮忙一张A4纸做4个收费单，房号、入住人数、抄表日期等等不影响金额的可以不要，水费一立方6块钱，电一块钱一度。电视费15、卫生费10元，其它费用不要。先谢谢了！！！！
阅读权限10
在线时间 小时
有180间房间。做成45页最好。{:soso_e109:}
阅读权限95
在线时间 小时
上传几张图片，估计没有人可以帮到你。把你的租客所产生的费用做成excel，才好下手!!!
阅读权限50
在线时间 小时
哈哈，你太懒了，你总得做个样子，什么地方过不了关再问，你这样几个图别人很难理解啊
阅读权限10
在线时间 小时
袁勇 发表于
上传几张图片，估计没有人可以帮到你。把你的租客所产生的费用做成excel，才好下手!!!
关键我是菜鸟。完全不懂呀
阅读权限20
在线时间 小时
做个表格不难吧，楼主可以自己操作的
阅读权限70
在线时间 小时
楼主太省事了，发个附件上来好吧。我也懒的做表
阅读权限20
在线时间 小时
& & & & & & & &
我可以帮你重新做一个小软件，请加QQ：
阅读权限20
在线时间 小时
楼主,我想通过EXCEL统计整理每月数据,再用邮件合并的方式,汇到WORD里打印出来,不过你说你完全不懂,EXCEL基础表都不会做,那你让论坛里的人如何帮你?
阅读权限50
在线时间 小时
做个表格不难吧，楼主可以自己操作的
最新热点 /1
ExcelHome图书当当网5折来袭，抢、抢、抢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 11594|回复: 9
如何将EXCEL的内容粘贴到另一个格式不一样的EXCEL
阅读权限20
在线时间 小时
如何将EXCEL的内容粘贴到另一个格式不一样的EXCEL?我这是两个工作表,想把工作表中的内容粘贴到另一个工作表里. 但是其中有个EXCEL 是合并单元格的格式.请问,有解决的办法吗?小女子才疏学浅...还请高手指教,& 万分感谢~~[em04]&& &document.body.clientWidth*0.5) {this.resized=this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />document.body.clientWidth*0.5) {this.resized=this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />
(29.59 KB, 下载次数: 35)
08:14 上传
如何将EXCEL的内容粘贴到另一个格式不一样的EXCEL
(32.79 KB, 下载次数: 45)
08:15 上传
如何将EXCEL的内容粘贴到另一个格式不一样的EXCEL
阅读权限20
在线时间 小时
就是把图1的内容粘贴到图2中.这是两个单独的EXCEL.
阅读权限100
在线时间 小时
选择性粘贴-数值
阅读权限20
在线时间 小时
哪里有数值?? 选择性粘贴里没有那项啊..document.body.clientWidth*0.5) {this.resized=this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />
(32.79 KB, 下载次数: 35)
08:23 上传
如何将EXCEL的内容粘贴到另一个格式不一样的EXCEL
(35.06 KB, 下载次数: 33)
08:23 上传
如何将EXCEL的内容粘贴到另一个格式不一样的EXCEL
阅读权限100
在线时间 小时
你的表可以有点特别，最好将附件发上来看看
阅读权限20
在线时间 小时
我的表太大了... 发到你信箱了,谢谢你帮一下忙哦..
阅读权限20
在线时间 小时
我晕.传不过去,我重新起下机器.
阅读权限20
在线时间 小时
已经传过去勒,帮我看下哦...[em01]
阅读权限20
在线时间 小时
到底能不能行啊?你说个话呗` 我等着那.
阅读权限20
在线时间 小时
这个问题，应该用vb编程解决吧。选择性黏贴解决不了。
最新热点 /1
ExcelHome图书当当网5折来袭，抢、抢、抢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 356|回复: 13
求大神帮忙：如何能将多个不同表格的内容，自动填充到另一个总表中。
阅读权限10
在线时间 小时
我的问题是：目前同一个文件夹里，有N个文档（文档数可能有几十个或上百个，文件名，以客户电话号码命名），如附件“”，“”，“总表”，这3个表，我设想是：能否在总表中，将文件夹里的N个文档（以文件名）里的内容，按顺序自动填写到总表里面？如果不能，退一步，能否我在“总表”中，录入“客户电话栏”，后面的数据自动填充？
如果还是不能，请大神指教一下，有什么好的方法，谢谢
请各位大神、各位老师，看能不能操作…………万分感谢。
00:44 上传
点击文件名下载附件
20.69 KB, 下载次数: 17
阅读权限10
在线时间 小时
请问有大神能帮忙吗。。。。。
阅读权限95
在线时间 小时
& & & & & & & &
搜索汇总工作薄，有很多.........................................................................................
阅读权限10
在线时间 小时
搜索汇总工作薄，有很多.............................................................................. ...
你好，大虾，我知道是比较难，
如果说，文件名，都是以某一数字开始，如654695......，以2字开头的，8位数字命名呢？能完成吗？
阅读权限95
在线时间 小时
你好，大虾，我知道是比较难，
如果说，文件名，都是以某一数字开始，如654695......，以2 ...
与文件名没有关系，任何文件名都可以做到......................................................................
阅读权限10
在线时间 小时
与文件名没有关系，任何文件名都可以做到............................................................ ...
大神，请指示
阅读权限10
在线时间 小时
与文件名没有关系，任何文件名都可以做到............................................................ ...
因为刚刚接触VB，什么也不太懂，希望老师能指点一下，谢谢
阅读权限50
在线时间 小时
因为刚刚接触VB，什么也不太懂，希望老师能指点一下，谢谢
电话号码命名的工作簿中，是一个工作表还是所有工作表都有信息，现的工作簿比喻：中只有一个Sheet1有信息，而Sheet2和Sheet3没有信息。
阅读权限20
在线时间 小时
详见附件中总表，可试一下行否。
18:59 上传
点击文件名下载附件
32.9 KB, 下载次数: 24
阅读权限50
在线时间 小时
Sub 汇总本夹内多簿多表数据() '
& & Dim Mypath$, Myname$
& & Dim sh As Worksheet, rng As Range
& & Dim arr, brr(), i&, j%, n&, r&
& & Mypath = ThisWorkbook.Path & &&& & '本文件夹名
& & Myname = Dir(Mypath & &*.xlsx&)& &&&'本文件夹下的工作簿
& & Application.ScreenUpdating = False
& & ReDim brr(1 To 5000, 1 To 12)& && & '定义动态数组大小
& & Do While Myname && &&& && && && && &'遍历工作簿查找
& && &&&If Myname && ThisWorkbook.Name Then& &'如果工作簿不是本工作簿
& && && && &With GetObject(Mypath & Myname)& &'后台打开该工作簿
& && && && && & For Each sh In .Sheets& && &&&'打开的工作簿再遍历工作表查找
& && && && && && &&&Set rng = sh.Cells(3, 1)&&'工作表的A3单元格
& && && && && && &&&If Not rng Is Nothing Then& && && && & '如果A3单元格不为空
& && && && && && && && &r = sh.Cells(65536, 1).End(3).Row&&'返回该工作表的最下标定义为r
& && && && && && && && &arr = sh.Range(&a3:l& & r).Value& &'把数据区域赋值给数组arr
& && && && && && && && &For i = 1 To UBound(arr)& && && &&&'arr起始循环
& && && && && && && && && & If arr(i, 1) && && Then& && &&&'如果有值
& && && && && && && && && && &&&n = n + 1& && && && && && &'逐行递增
& && && && && && && && && && &&&For j = 1 To 12& && && && &'第一列到12列循环
& && && && && && && && && && && &&&brr(n, j) = arr(i, j)& &'把arr数组区的值赋给数组brr
& && && && && && && && && && &&&Next
& && && && && && && && && & End If
& && && && && && && && &Next
& && && && && && &&&End If
& && && && && & Next
& && && && && & .Close False
& && && && &End With
& && &&&End If
& && &&&Myname = Dir
& & Loop
& & With Sheets(&汇总表&)
& && &&&Range(&a3:l& & Rows.Count).Clear& && && &&&'先清除a3以下所有数据及格式
& && &&&Range(&a3&).Resize(n, 12) = brr& && && && &'再把brr数组赋值到A3开始以下区域
& && &&&Cells(n + 3, 1) = &合&&计&
& && &&&For j = 3 To 12
& && && && &Cells(n + 3, j).Value = Application.WorksheetFunction.Sum(Range(Cells(3, j), Cells(n + 2, j)))
& && &&&Next
& && &&&With Range(&a3&).Resize(n + 1, 12)
& && && &&&.Resize(n + 1, 12).Borders.LineStyle = 1& && && && && && &&&'添加边框线
& && && &&&.Font.Size = 10& && && && && && && && && && && && && && && &'字体为10号
& && &&&End With
& && & [a1].Resize(n + 3, 12).BorderAround xlContinuous, xlMedium& && &'外边框加粗
& && & [a3].Resize(n + 1, 1).HorizontalAlignment = xlCenter ' xlLeft '向左对齐& &xlCenter '居中对齐&&xlRight '向右对齐
& & End With
& & Application.ScreenUpdating = True
End Sub
复制代码
最新热点 /1
ExcelHome图书当当网5折来袭，抢、抢、抢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师求一份农业银行个人流水单，excel表格的，万分感谢了_百度宝宝知道