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...全部
首先,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。收起