|在本文中，您将学习如何将数据从一个工作簿复制到另一个工作簿，以及如何使用VBA代码转置数据。

[.underline]＃让我们看一个示例：＃我们有2个工作簿-Book1和Book2 Book2包含在Book1中输入的数据。请参考下面Book1的快照

img1

单击Book2中的“命令按钮（提交）”后，在转置数据后需要复制Book1中输入的数据。请参阅下面的Book2快照

img2

当我们在Book1中输入数据时；单击命令按钮，数据将被复制到Book2。

单击“开发人员”选项卡。从“代码”组中，选择“ Visual Basic”

img3

单击Command Button，这将打开Command Button1_Click对象。在CommandButton1对象中输入以下代码

私人子CommandButton1_Click（）

暗积为字符串

点心价格为单

Dim Book2作为工作簿

===

Worksheets（“ sheet1”）。选择||​​

||| ===产品=范围（“ B1”）

价格= Range（“ B2”）

===

设置Book2 = Workbooks.Open（“ F：\ USER Account \ Desktop \ Excel \ Book2.xlsx”）

Worksheets（“ sheet1”）。Range（“ A1”）。选择||​​

||| === RowCount = Worksheets（“ sheet1”）。Range（“ A1”）。CurrentRegion.Rows.Count

使用Worksheets（“ sheet1”）。Range（“ A1”）

.Offset（RowCount，0）=产品

.Offset（RowCount，1）=价格

以

结尾

Book2。保存

结束子

单击Book1上的Submit按钮后，数据将传输到Book2。

如果我们在Book1中输入其他产品信息，并单击“提交”按钮，则Book2将打开，数据将被复制并保存。

img4

Book1的快照

Book2中的结果

这样，我们可以轻松地将数据从一个Excel工作簿复制到另一个工作簿。

img5

img6