vba - 将不同工作簿中的列移动到不同工作表中的一个工作簿中

Question

我真的很陌生。在这里，我有 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 应用程序中时才有效！* 确保所有工作簿和工作表都是复数！