[已解决]汇总读取其他工作簿单元格信息

qh8600 · 发表于 2014-12-16 20:52

Excel学徒123 发表于 2014-12-16 20:49
手速好快

用copy没有用数组快的，特别是工作簿很多的时候，国宝可以测下速度

Excel学徒123 · 发表于 2014-12-16 20:58

qh8600 发表于 2014-12-16 20:52
用copy没有用数组快的，特别是工作簿很多的时候，国宝可以测下速度

嗯可以

peng3726 · 发表于 2014-12-16 21:00

Excel学徒123 发表于 2014-12-16 20:49
手速好快

Workbooks(MyDir).Sheets(1).UsedRange.Copy Workbooks(Nm).Sheets(1).Cells(Rows.Count, 1).End(3).Offset(1, 0)
这个关键句是什么意思，看不懂~~~例子和实际不太一样~~~麻烦解释一下

qh8600 · 发表于 2014-12-16 21:01

Excel学徒123 发表于 2014-12-16 20:58
嗯可以

数组写入是1次，copy有多少个工作簿就要写入多少次{:112:}

Excel学徒123 · 发表于 2014-12-16 21:03

qh8600 发表于 2014-12-16 21:01
数组写入是1次，copy有多少个工作簿就要写入多少次

嗯，回头试试

qh8600 · 发表于 2014-12-16 21:04

peng3726 发表于 2014-12-16 21:00
Workbooks(MyDir).Sheets(1).UsedRange.Copy Workbooks(Nm).Sheets(1).Cells(Rows.Count, 1).End(3).Off ...

offset（1,0），向下偏移一格，相当于最后一个非空单元格下面的那个单元格

Excel学徒123 · 发表于 2014-12-16 21:05

peng3726 发表于 2014-12-16 21:00
Workbooks(MyDir).Sheets(1).UsedRange.Copy Workbooks(Nm).Sheets(1).Cells(Rows.Count, 1).End(3).Off ...

就是分表的信息复制到总表的最后一个非空单元格的下一行！

peng3726 · 发表于 2014-12-16 21:32

qh8600 发表于 2014-12-16 21:04
offset（1,0），向下偏移一格，相当于最后一个非空单元格下面的那个单元格

大神，实在不好意思，但是你的代码对我来说有点复杂~~~您帮我重新看下我的分表和总表，我就的目的是读取分表红色单元格中的内容，将该内容读取到总表对应的区域~~~向雷锋致敬~~

qh8600 · 发表于 2014-12-16 21:52

peng3726 发表于 2014-12-16 21:32
大神，实在不好意思，但是你的代码对我来说有点复杂~~~您帮我重新看下我的分表和总表，我就的目的是读取分 ...

新建文件夹.rar (24.81 KB, 下载次数: 8)

peng3726 · 发表于 2014-12-16 21:57

qh8600 发表于 2014-12-16 21:52
你试试

你真是神仙~~~太棒了

		自动登录	找回密码
密码			注册