Excelでデータをコピーして貼り付けるコマンドボタンを作成するにはどうすればよいですか？

データを変更した後、ある範囲のセルを他の場所に頻繁にコピーする必要があるとすると、手動でコピーして貼り付ける方法は面倒で時間がかかります。 このコピーアンドペーストを自動的に実行するにはどうすればよいですか？ この記事では、コマンドボタンを使用して、ワンクリックでデータをコピーして貼り付ける方法を説明します。

コマンドボタンを作成して、VBAコードを使用してデータをコピーして貼り付けます

コマンドボタンを作成して、VBAコードを使用してデータをコピーして貼り付けます

コマンドボタンをクリックしたときにデータを自動的にコピーして貼り付けるには、次のようにしてください。

1.をクリックしてコマンドボタンを挿入します Developer > インセット > コマンドボタン（ActiveXコントロール）。 スクリーンショットを参照してください：

2.ワークシートにコマンドボタンを描画して右クリックします。 選択する コードを表示 コンテキストメニューから選択します。

3.ポップアップで アプリケーション向け Microsoft Visual Basic ウィンドウの場合、コードウィンドウの元のコードを以下のVBAコードに置き換えてください。

VBAコード：コマンドボタンを使用して、Excelでデータをコピーして貼り付けます

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Note：コードでは、CommandButton1は挿入されたコマンドボタンの名前です。 A1：C17はコピーする必要のある範囲であり、J1：L17はデータを貼り付けるための宛先範囲です。 必要に応じて変更してください。

4。 押す 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。 そして、[開発者]タブでデザインモードをオフにします。

5.コマンドボタンをクリックすると、範囲A1：C17のすべてのデータがコピーされ、セル形式なしで範囲J1：L17に貼り付けられます。

Kutools AI で Excel の魔法を解き放つ

• スマートな実行: セル操作の実行、データの分析、グラフの作成など、すべて簡単なコマンドで実行できます。
• カスタム式: カスタマイズされた数式を生成してワークフローを効率化します。
• VBAコーディング: VBA コードを簡単に記述して実装します。
• 式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語の壁を打ち破ります。

AI を活用したツールで Excel の機能を強化します。 今すぐダウンロード これまでにない効率性を体験してください!

関連記事:

• Excelのコマンドボタンでプロンプトを表示せずにアクティブなブックを保存して閉じるにはどうすればよいですか？
• Excelのワークシートにコマンドボタンを常に表示するにはどうすればよいですか？
• Excelのコマンドボタンで（現在の）日付と時刻を更新または挿入するにはどうすればよいですか？
• コマンドボタンを使用してExcelで指定したセル値を変更するにはどうすればよいですか？
• コマンドボタンを使用してアクティブなワークシートをExcelでPDFファイルとして保存するにはどうすればよいですか？
• Excelのコマンドボタンで空白の新しい行を自動的に挿入するにはどうすればよいですか？