今回は、その方法を説明します。 入れる データ にしています。 エクセル テーブル 使って ブイビーエー コード Excelに組み込まれているプロパティやメソッドを使えば、表へのデータの追加や上書きを簡単に行うことができます。 VBAコードと一緒にメソッドを理解するために、サンプルを見てみましょう。

練習用ワークブックをダウンロードする

この練習用ワークブックをダウンロードして、この記事を読みながらエクササイズしてください。

ExcelのVBAを使用してテーブルにデータを挿入する4つの例

仮に 発売表 注文日、商品名、数量、単価、合計金額などの詳細が記載されたショップの

エクセルで表を作成する方法

への 回す その データセット にしています。 エクセル表 は、以下を実行します。

• 選択 その 全データセット .
• 行く になります。 挿入タブ から エクセルリボン .
• クリック について テーブル オプションを使用します。

• 最後に OKボタン において テーブルの作成」画面。

• 私たちは、成功した やくしん その データセット にしています。 エクセル表 .

Excelの表にデータを挿入するために、いくつかの VBA関数 と 性質 私たちの中で コード .次のセクションで、その方法を説明します。 かいほうてき と ライトコード において ビジュアルベーシックエディタ。

Visual Basic Editorでコードを書く

をフォローしてください。 段階 まで かいほうてき その ビジュアルベーシックエディタ で、そこにコードを書きます。

• に行ってみてください。 デベロッパー のタブをクリックします。 エクセルリボン .
• クリック その Visual Basicのオプションです。

• での Visual Basic for Applications をクリックします。 ドロップダウンを挿入する まで 選ぶ その 新モジュール

が登場したことで 新モジュール でございます オープン をクリックし、そこに何かコードを書いて F5 まで を実行します。

1. ExcelのVBAを使用して表の最終行にデータを挿入する

この例では ブイビーエー に、コード化する。 つける a 新段 にて。 下 の テーブル そして 挿入データ この表では 4列 の データ を追加すること。 5位 , コピー と 貼り付ける をビジュアルベーシックエディタにコピーしてください。

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = "1/1/2022" .Range(2) = "Apple".レンジ(3) = 5 .レンジ(4) = 1.77 End With End Sub 

F5キーを押す まで 走る その のコードで表示されます。

私たちは てんぷ a 新段 の データ にて。 下 の 既存テーブル .

コードの説明です。

• 今回のコードでは ListObjectsオブジェクト エクセルVBAの つかむ その テーブル で、その 名前 .詳細はこちら 各々 の ListObject オブジェクトは テーブル について ワークシート .テーブル名を取得する。 クリック について テーブル >> クリック について テーブルデザイン」タブ において Excelのリボンです。

• そして、その後に 行の一覧 . メソッド追加 を追加することができます。 新段 において テーブル ...これは 方法 とりあつかい 二論 : ポジション と AlwaysInsert .

を入力することで 整数値 を指定することができます。 相対位置 の 新段 において テーブル この例では 白紙状態 その 位置引数 その結果 新段 されている 添加物 にて。 下 の テーブル .

• 最後に、データを 各々 の セル の、新しい 加列 この場合、データは .レンジ(1)="1/1/2022" かわりに OrderDate, .Range(2) = "アップル" かわりに 製品、.Range(3) = 5 かわりに 数量、.Range(4) = 1.77 かわりに 単価です。

続きを読む Excelのテーブル名：知っておくべきこと

2. Excelで表の特定の行にデータを挿入するVBAコードを実行する

この図解では 行を追加する において 表に対する特定の行 この場合、上記の例で使用したコードと同じものを使用する必要があります。 言い当てる その 位置づけ論 の ListRows.Addメソッド を作成するとします。 販売データを追加する にとって オレンジ で詳しく説明しています。 3行目相対 になります。 既存テーブル そのために コピー と 貼り付ける 以下 コード をビジュアルコードエディタに追加してください。

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "オレンジ" .Range(3) = 3 .Range(4) = 2.14 End With End Sub 

によるコードを実行する。 F5キーで挿入 その 売却データ のオレンジのために テーブルを基準にした3行目 .

続きを読む 表の各行に対するExcel VBAコード（追加、上書き、削除など）

類似の読み物

• ピボットテーブルで計算されたフィールドの合計をカウントで割る
• Excelで相対度数分布の図解をする方法
• [修正] ピボットテーブルで日付のグループ化ができない：4つの解決方法
• エクセルで度数分布のパーセントを計算する方法（2つの方法）
• ピボットテーブルが更新されない (5 Issues & Solutions)

3. ExcelのVBAを使用してテーブルにデータを挿入し、上書きする

ここでは、その方法を説明します。 オーバーライト その 既存データ における 代わりのテーブル の 投入 a 新段 の データ これを行うには、以下のように ListObject.ListRowsプロパティ エクセルの その代わり の ListRows.Add プロパティ 使用しました 前 . ListObject.ListRowsプロパティ も取る 行番号 ( 整数 価値 を含む)をその 議論 例えば、次のような場合です。 かわりめ その 単価 の オレンジ 2.14から2.35へ 当方 てんぷ において 前例 . コピー と 貼り付ける をビジュアルベーシックエディタで編集します。

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "オレンジ" .Range(3) = 3 .Range(4) = 2.35 End With End Sub 

私たちのコードでは 私たち セット その 議論 に対して ListObject.ListRowsプロパティ かわりに 3 ここで データ にとって オレンジ 属す . ラン その コード を押して F5 をご覧ください。 差 .

このコードには 改め のみである。 単価 の データ で 3行目相対 になります。 テーブル .

続きを読む Excelの表から行や列を挿入・削除する方法

4. ユーザー入力に基づきExcelの表にデータを挿入するVBAコードを実行する

この例では 入れる その テーブル名 と 発売内容 の 製品 かわりに ユーザ入力 よりも ハードコード にあります。 毎回のVBAコード 以下の手順に従ってください。

• コピー と 貼り付ける をビジュアルコードエディタにコピーしてください。

 Sub InsertDataIntoTable() Dim tableName As ListObject Dim A, B, C, D, tName As String tName = Application.InputBox(Prompt:="Name of Table: ", Type:=2) A = Application.InputBox(Prompt:="Order Date: ", Type:=2) B = Application.InputBox(Prompt:="Product Name: ", Type:=2) C = Application.InputBox(Prompt:="Quantity: ", Type:=2) D = Application.InputBox(Prompt:="Unit Price: ".Version: 2", Type: 3') A = Application.Output Box (Prompt:="", Type: 2) A = Application.Output Box)、B = Application(プロンプト: "Order Name") B = Application.Table)。Type:=2) Set tableName = ActiveSheet.ListObjects(tName) Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = A .Range(2) = B .Range(3) = C .Range(4) = D End With End Sub 

• プレス F5 まで 走る を表示します。
• 置く その 名前 の テーブル において 入力ボックス ( 表1 この例では、) を押して OKです。

• の値を入れてください。 発注日、製品名、数量。 と 単価 において インプットボックス その 続出 この例では、次の値を使用しました。 2022年1月1日、オレンジ、3． と 35.

• その結果 新段 とのことです。 挿入データ にて。 下 の テーブル .

続きを読む Excel表の書式設定のコツ - 表の見た目を変える

備考

私たちのとき 添加物 a 新段 をもって データ をVBAコードで使用すると 形式 そして 式 得る キャリード になります。 自動的に新しい行 この例では 合計金額 列 生産高 その 製品 列のうち 数量 そして 単価 私たちはただ 禁帯出 その 数量 と 単価の値 を、 新段 ワズ てんぷ とのことです。 製品 このうち 二値 において 合計金額欄。

結論

さて、VBAのコードを使用してExcelの表にデータを挿入する方法を知っています。 うまくいけば、これらの方法をより自信を持って使用するのに役立ちます。 質問や提案があれば、下のコメントボックスに入れることを忘れないでください。