将不同工作簿中的列移动到不同工作表中的单个工作簿中

Question

我真的很擅长excel。这里有30个不同的excel工作簿，每个工作表都有一个工作表。

每个工作表包含30-50列和130行数据。我想要做的是我想复制并将每个工作表的A列数据移动到新Excel工作簿的工作表1和每个工作表的B列到每个工作表的第2页和第C页到表3等等。我需要做些什么来实现这一目标？我需要创建一个Marco还是什么？如果我需要使用Marco，那么代码是什么？感谢!!!

Answer 1

这会将列“A”从一个工作簿和工作表移到另一个的“A”列：

Workbooks("Excel.xls").Sheets("Sheet1").Range("A1:A30")=Workbook("Excel1.xls").Sheets("Sheet1").Range("A1:A30")

这会将列“A”从一个工作簿和工作表移到另一个的“A”列：

Workbooks("Excel.xls").Sheets("Sheet2").Range("A1:A30")=Workbook("Excel1.xls").Sheets("Sheet1").Range("B1:B30")

这会将列“C”从一个工作簿和工作表移到另一个的“A”列：

Workbooks("Excel.xls").Sheets("Sheet3").Range("A1:A30")=Workbook("Excel1.xls").Sheets("Sheet1").Range("C1:C30")

*仅当两个工作簿都显示在同一个Excel Application中时才会生效！* 确保所有工作簿和表格都是复数形式！