この記事では、ワークシート機能を使用して、あるシートから別のシートにデータをコピーする方法を学習します。

例を挙げて理解しましょう：

2つのワークシートがあります。つまり、データと毎日のアクティビティデータシートに入力された情報が含まれます。以下のスナップショットを参照してください

img1

データをDailyActivityシートにコピーするコードが必要です。ただし、データを貼り付ける際には、ID番号の列で検索してから、ID番号でデータを貼り付ける必要があります。

次のようにデータをデイリーアクティビティシートにコピーする送信ボタンがあります

img2

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

img3

CommandButtonをクリックします。これにより、CommandButton1_Clickオブジェクトが開きます。CommandButton1オブジェクトに次のコードを入力します

プライベートサブCommandButton1_Click（）

LR = Sheet2.Cells（Rows.Count、 “A”）。End（xlUp）.Row

i = Application.WorksheetFunction.Match（Sheet1.Range（ “B1″）、Sheet2.Range（ “A2：A”＆LR）、0）+ 1

Sheet1.Range（ “B2″）。コピー

Sheet2.Range（ “B”＆i）.PasteSpecialxlValues

Sheet1.Range（ “B3″）。コピー

Sheet2.Range（ “C”＆i）.PasteSpecialxlValues

Application.CutCopyMode = False

サブの終了

img4

データシートの[送信]ボタンをクリックすると、データが毎日のアクティビティシートにコピーされます。

データシートに販売情報を入力し、[送信]ボタンをクリックすると、データが[毎日のアクティビティ]タブに転送されます。

[データ]タブのスナップショット

img5

デイリーアクティビティの結果を確認するには、以下のスナップショットを参照してください

img6

このようにして、あるシートから別のシートにデータをコピーできます。