【求助大神】如何复制excel工作簿中所有表的某一列到另一个工作簿中

ma598512127

写论文整理数据的时候想把每个子表的第AE列分别复制到新工作簿的1到n列，不知道为什么一直提示错误...求助求助TAT
我用的代码是Option Explicit

Sub xxxx()
    Dim c As Worksheet, j As Long
    j = 1
    For Each c In Workbooks("原始数据").Sheets
        c.Rows("AE").Copy Workbooks("整合数据").Sheets(Sheet1).Rows(j)
        j = j + 1
    Next
End Sub
错误提示是“类型不匹配”，错误的是这一行“ c.Rows("AE").Copy Workbooks("整合数据").Sheets(Sheet1).Rows(j)”
另外我有点不确定这个vba是要在原始数据表里面运行还是应该在整合数据表里面运行呀，谢谢大家！！！

2489586288

rows是行，columns是列，搞错了

abc123281

1. Sub test()
   
2. Dim mypath$, myname$
   
3. Dim ws As Worksheet
   
4. Dim rng As Range
   
5. Application.ScreenUpdating = False
   
6. mypath = ThisWorkbook.Path & ""
   
7. myname = Dir(mypath & "原始数据.xlsx")
   
8. Set wb = GetObject(mypath & myname)
   
9. With wb
   
10.    For Each ws In .Worksheets
    
11.       n = n + 1
    
12.       With ws
    
13.         Set rng = .Range("ae1:ae10000")
    
14.       End With
    
15.       With ThisWorkbook.Worksheets("sheet1")
    
16.         .Cells(1, n) = ws.Name
    
17.          rng.Copy .Cells(2, n)
    
18.       End With
    
19.    Next
    
20.   .Close False
    
21. End With
    
22. Application.ScreenUpdating = True
    
23. MsgBox "OK!"
    
24. End Sub

复制代码

abc123281

2222abc123.rar (113.49 KB, 下载次数: 6)

2018-4-16 23:50 上传

点击文件名下载附件

ma598512127

2489586288 发表于 2018-4-16 22:32
rows是行，columns是列，搞错了

哇！感谢感谢！！

ma598512127

abc123281 发表于 2018-4-16 23:49

太谢谢您了！！！谢谢~