关于Excel中有多个工作表,想将每个工作表中特定的几列弄出来,放到另外一张工作表中,怎么弄?的问题
首先,EXCEL一共有16384列,所以你要提取的列数太多,工作表是放不下的。
如果列数较少,以下列情况为例
提取同一工作簿中除“汇总”工作表以外的所有工作表的A:C列至“汇总”工作表,从A裂开时依次粘贴。
VBA代码如下:
Sub 提取列()
Dim c As Integer
c = 1 ‘自“汇总”工作表第1列开始粘贴
For i = 1 To Sheets。
Count ‘从第一个工作表到最后一个工作表
? ?If Sheets(i)。Name “汇总” Then ‘如果工作表名不是“汇总”
? ? ? ?Sheets(i)。Columns(“A:C”)。
Copy Sheets(“汇总”)。
Columns(c) ‘复制工作表的A:C列,粘贴至“汇总”工作表的第c列
? ? ? ?c = c 3
? ?End If
Next
End Sub。