將列從不同的工作簿移動到不同工作表中的一個工作簿中

Question

我真的是新手。 在這里，我有30種不同的excel工作簿，每本都有一個工作表。

每個工作表包含30-50列和130行數據。 我想要做的是將每個工作表的A列數據復制並移動到新的excel工作簿的工作表1中，並將每個工作表的B列移至工作表2，將每個工作表的C列移至工作表3，依此類推。 。 我需要怎么做才能做到這一點？ 我需要創建Marco或其他東西嗎？ 如果需要使用Marco，代碼是什么？ 謝謝！！！

Answer 1

這會將列“ A”從一個工作簿和工作表移至另一個工作簿和工作表：

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

這會將列“ A”從一個工作簿和工作表移至另一個工作簿和工作表：

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

這會將列“ C”從一個工作簿和工作表移至另一個工作簿和“工作表”：

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

*僅當兩個工作簿都顯示在同一Excel應用程序中時，此方法才有效！* 確保所有工作簿和工作表均為復數！