Excel 从一个表中复制内容到另一个工作薄的多个表的方法

从一个表中复制内容到另一个工作薄的多个表的方法

1259 movev LV1

2015-6-17 17:05

本帖最后由 movev 于 2015-6-17 17:29 编辑

从表1中复制20项分别到表2中的20个表格中，即表1的第一项复制到表二的Sheet1对应的项目中，表1的第二项复制到表2的Sheet2中对应的项目中，一直到第二十项，表2中的黄色区域对应表1中的项目，急用，求大神指点！多谢

分享到新浪微博

Desktop.zip (2015-6-17 17:02 上传)

22.2 KB, 下载次数: 16

有用

回复

只看楼主 | 正序浏览

有 7 条回复

8楼 movev 楼主

2015-6-17 18:33

引用: 看见星光 发表于 2015-6-17 18:03
将代码放到表一运行：

谢谢，帮了我大忙了，刚刚学习VBA，多谢帮忙

回复

7楼 看见星光 LV18

2015-6-17 18:03

引用: movev 发表于 2015-6-17 17:58
非常感谢您的回答，问题完美解决。
不过我还有个问题，能不能把代码放在表1中，求解答

将代码放到表一运行：

1. Sub tt()
   
2. Dim ws As Workbook, sht As Worksheet, arr, i&, path$
   
3. Application.ScreenUpdating = False
   
4. arr = [a2:d21]
   
5. path = ThisWorkbook.path & '\'
   
6. Set ws = Workbooks.Open(path & '表2.xlsx')
   
7. On Error Resume Next
   
8.     For i = 1 To ws.Worksheets.Count
   
9.         With ws.Sheets(i)
   
10.             .[c2] = arr(i, 1)
    
11.             .[c3] = arr(i, 2)
    
12.             .[c4] = arr(i, 3)
    
13.             .[d7] = arr(i, 4)
    
14.         End With
    
15.     Next
    
16. ws.Close True
    
17. Application.ScreenUpdating = True
    
18. End Sub

13.zip (2015-6-17 18:03 上传)

35.9 KB, 下载次数: 31

回复

6楼 movev 楼主

2015-6-17 17:58

引用: 看见星光 发表于 2015-6-17 17:49
打开表2运行代码：

非常感谢您的回答，问题完美解决。
不过我还有个问题，能不能把代码放在表1中，求解答

回复

5楼 看见星光 LV18

2015-6-17 17:49

打开表2运行代码：

12.zip (2015-6-17 17:49 上传)

35.15 KB, 下载次数: 28

回复

4楼 看见星光 LV18

2015-6-17 17:48

引用: movev 发表于 2015-6-17 17:31
表一的第一项对应表二的sheet1,表一的第二项对应表2的sheet2,……，怎么解决？

1. Sub tt()
   
2. Dim ws As Workbook, sht As Worksheet, arr, i&, path$
   
3. Application.ScreenUpdating = False
   
4. path = ThisWorkbook.path & '\'
   
5. Set ws = Workbooks.Open(path & '表1.xlsx')
   
6. arr = ws.Sheets(1).[a2:d21]
   
7. ws.Close False
   
8.     For i = 1 To Worksheets.Count
   
9.         With Sheets(i)
   
10.             .[c2] = arr(i, 1)
    
11.             .[c3] = arr(i, 2)
    
12.             .[c4] = arr(i, 3)
    
13.             .[d7] = arr(i, 4)
    
14.         End With
    
15.     Next
    
16. Application.ScreenUpdating = True
    
17. End Sub
    

回复

3楼 movev 楼主

2015-6-17 17:31

引用: 看见星光 发表于 2015-6-17 17:24
打开表一复制。
打开表二，全选工作表，选择黏贴范围，黏贴~

表一的第一项对应表二的sheet1,表一的第二项对应表2的sheet2,……，怎么解决？

回复

2楼 看见星光 LV18

2015-6-17 17:24

打开表一复制。
打开表二，全选工作表，选择黏贴范围，黏贴~

回复