Excelのコマンドボタンで空白の新しい行を自動的に挿入するにはどうすればよいですか？

多くの場合、ワークシートの指定された位置に空白の新しい行を挿入する必要があります。 この記事では、Excelのコマンドボタンをクリックして、空白の新しい行を自動的に挿入する方法を説明します。

コマンドボタンで空白の新しい行を自動的に挿入します

コマンドボタンで空白の新しい行を自動的に挿入します

次のVBAコードを実行して、コマンドボタンをクリックして空白の新しい行を挿入できます。 次のようにしてください。

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

2.次に、新しい行を追加する必要があるワークシートにコマンドボタンを描画し、コマンドボタンを右クリックして、 プロパティ 右クリックメニューから。

3。 の中に プロパティ ダイアログボックスで、表示されたコマンドボタンのテキストを キャプション 下のボックス 分類された タブをクリックし、ダイアログボックスを閉じます。

以下のスクリーンショットのように、コマンドボタンの表示テキストが変更されていることがわかります。

4.コマンドボタンをもう一度右クリックして、[ コードを表示 右クリックメニューから。

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

VBAコード：コマンドボタンで空白の新しい行を自動的に挿入します

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

Note：コードでは、CommanButton1は作成したコマンドボタンの名前です。

6。 押す 他の + Q キーを同時に閉じて アプリケーション向け Microsoft Visual Basic 窓。 そして、をオフにします デザインモード 下 Developer タブには何も表示されないことに注意してください。

7.挿入されたコマンドボタンをクリックし、 Kutools for Excel ダイアログボックスが表示されます。 空白の新しい行を追加する特定の行番号を入力して、[ OK ボタン。 スクリーンショットを参照してください：

次に、以下のスクリーンショットに示すように、空白の新しい行がワークシートの指定された位置に挿入されます。 そして、それは上記のセルのセルフォーマットを維持します。

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

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

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

関連記事:

• コマンドボタンを使用してアクティブなワークシートをExcelでPDFファイルとして保存するにはどうすればよいですか？
• Excelで3Dボタンのように見えるようにセルをフォーマットするにはどうすればよいですか？
• Excelで指定されたセル値に基づいてコマンドボタンを非表示または再表示するにはどうすればよいですか？