作者atelierz21 (HOXTON)
看板Visual_Basic
标题[VBA ] 跨活页簿抓资料
时间Thu Jul 19 17:11:50 2018
各位大神安安，小弟手边有两个excel档案。A档的每个工作表的固定某列要从和B档同一
表的不同列抓资料。
例如A档表1的A1到C1等於B档表1的A1到C1，A档表2的A1到C1等於B档表1的A2到C2，以此类
推
版本是office2010
感谢指教
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.137.82.163
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1531991512.A.FF0.html
※ 编辑: atelierz21 (223.137.82.163), 07/19/2018 17:12:31
※ 编辑: atelierz21 (223.137.82.163), 07/19/2018 17:13:03
1F：推 shen001: 简单写一下，07/19 20:16
2F：→ shen001: For i=1 to n07/19 20:16
3F：→ shen001: Workbook("B").sheets(1).Range(Workbook("B").sheets(i)07/19 20:16
4F：→ shen001: .cells(i,"A"),Workbook("B").sheets(i).cells(i,"C"))=W07/19 20:16
5F：→ shen001: orkbook("A").sheets(i).Range("A:C1")07/19 20:16
6F：→ shen001: Next i07/19 20:16
在跑的时候出现没有定义sub或function 请问是workbook要再额外定义吗？
※ 编辑: atelierz21 (223.137.82.163), 07/19/2018 21:05:24
7F：→ MOONRAKER: 整包用sub abc...end sub包起来吧07/19 21:09
有包起来 是workbook被反白起来
※ 编辑: atelierz21 (223.137.82.163), 07/19/2018 21:26:18
问题已解决 非常感谢各路大大
※ 编辑: atelierz21 (223.137.58.14), 07/20/2018 17:22:14