请教一下怎么提取所有表页的第二列到Sheet1

62642105

大家好，我是新手，请教一下怎么提取所有表页的第二列到Sheet1，方便我排序筛选啊什么的，谢谢！

cydia12

可以录一个宏, 稍微加一下循环就行
我这个是把sheet2以后的所有B列复制到sheet1里的宏，你可以看着改。

1. Sub 宏1()
   
2. 
   
3. For j = 2 To Sheets.Count
   
4.     Sheets(j).Select
   
5.     Range("B:B").Select
   
6.     Selection.Copy
   
7.     Sheets("Sheet1").Select
   
8.     Cells(1, j - 1).Select
   
9.     ActiveSheet.Paste
   
10.    Next
    
11. End Sub

复制代码

62642105

cydia12 发表于 2017-11-17 10:11
可以录一个宏, 稍微加一下循环就行
我这个是把sheet2以后的所有B列复制到sheet1里的宏，你可以看着改。

有简单点的吗，宏我不会编写代码。。。

titi012

不会VBA,就用公式吧.
工作表名要用宏表函数,所以必须启用宏的工作薄.

62642105

万分感谢！