この記事では、あるワークブックから別のワークブックにデータをコピーし、VBAコードを使用してデータを転置する方法を学習します。

[.underline]＃例を挙げて理解しましょう：＃2つのワークブックがあります-Book1とBook2 Book2には、Book1に入力されたデータが含まれています。以下のBook1のスナップショットを参照してください

img1

Book1に入力されたデータは、Book2のコマンドボタン（送信）をクリックしてデータを転置した後にコピーする必要があります。以下のBook2のスナップショットを参照してください

img2

Book1にデータを入力すると、コマンドボタンを1回クリックするだけで、データがBook2にコピーされます。

[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

img3

コマンドボタンをクリックすると、コマンドボタン1_クリックオブジェクトが開きます。コマンドボタン1オブジェクトに次のコードを入力します

プライベートサブCommandButton1_Click（）

文字列としての薄暗い製品

シングルとしての薄暗い価格

Dim Book2 As Workbook

===

Worksheets（ “sheet1″）。Select

製品= Range（ “B1″）

価格=範囲（ “B2″）

===

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

Worksheets（ “sheet1″）。Range（ “A1″）。Select

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

Worksheets（ “sheet1″）。Range（ “A1″）を使用

.Offset（RowCount、0）=製品

.Offset（RowCount、1）=価格

終了

Book2.Save

サブの終了

img4

Book1の[送信]ボタンをクリックすると、データがBook2に転送されます。

Book1に他の製品情報を入力し、[送信]ボタンをクリックすると、Book2が開き、データがコピーされて保存されます。

Book1のスナップショット

img5

Book2の結果

img6

このようにして、あるExcelブックから別のブックにデータを簡単にコピーできます。