ホームページ ソフトウェアチュートリアル オフィスソフトウェア 200個程度の複数のExcelファイルから指定した列のデータを抽出して新しいファイルにまとめる方法

200個程度の複数のExcelファイルから指定した列のデータを抽出して新しいファイルにまとめる方法

Jan 23, 2024 pm 10:57 PM

200個程度の複数のExcelファイルから指定した列のデータを抽出して新しいファイルにまとめる方法

約 200 個の Excel ファイルから特定の列を抽出し、新しいファイルに要約する方法

Excel を実行した後、alt キーを押しながら f11、i、m を押します

次のコードを貼り付けて必要な変更を加え、f5 キーを押して現在のワークシートに概要結果を取得します。

サブテスト()

c = 配列(1, 3, 5, 7, 8)

p = "d:\概要ファイルのあるディレクトリ\" '実際の状況に基づいて修正します。最後の部分を見逃さないように注意してください\

f = Dir(p & "*.xlsx")

ns = ActiveSheetを設定します

f = """まで実行

Set wb = Workbooks.Open(p & f)

i = 0 ~ 4

の場合

n = n 1

ns.Cells(2, n).Resize(144).Value = wb.Sheets("Room 1").Cells(2, c).Resize(144).Value

###次###

wb.Falseを閉じる

f = ディレクトリ

###ループ###

エンドサブ

複数の Excel テーブルから同じ形式でデータを抽出します

郵便局長、あなたのやっていることは実行可能だと思います。僧侶はあえて嘘をつきません。たとえ僧侶にならなくても、私は嘘をつきません。

この機会を諦めたくないのであれば、ぜひ試してみたいと思います。こんにちは、メッセージを残してください。

回答者: lxlzmh2002 - 大魔術師レベル 8 2009-8-19 04:40

============================================== = ==========================

元の投稿者さん、今日は複数のテーブルを結合する VBA プログラムを誰かが書くのを手伝いました。似たような投稿を見たことを突然思い出したので、あなたの投稿を見つけたので、もう一度回答します:

VBA コードは次のとおりです:

ワークシートとしてのディムショット

Dim rs と同じ長さ、js と同じ長さ、ds と同じ長さ

Dim i を整数として使用する

エラー時は次へ再開

Set sht = Sheets("サマリー")

If Err.Number = 0 then

Sheets("概要").Select

ActiveSheet.Range("A1").CurrentRegion.ClearContents

###それ以外###

Sheets.Add before:=Sheets(1)

ActiveSheet.Name = "概要"

終了の場合

Sheets(2).Range("1:1").シートのコピー("概要").Range("A1")

For i = 2 To Sheets.Count

ds = シート("概要").Range("A65536").End(xlUp).Row 1

rs = Sheets(i).Range("A65536").End(xlUp).Row

js = Sheets(i).Range("A1").End(xlToRight).Column

シート付き(i)

###。選択する###

.Range(Cells(2, 1), Cells(rs, js)).Copy Sheets("サマリー").Cells(ds, 1)

で終わる

###次###

Sheets("概要").Select

上記のコードは次のように使用されます:

マクロの記録: メニュー「ツール」->マクロ->マクロの記録)-->「マクロ名」フィールドでマクロに名前を付けます->ショートカットキーを設定し、「ショートカットキー」に文字を入力します-->確認マクロの記録を開始します。

マクロの編集: 記録を開始した後、ストップ キーを直接押してマクロを編集できます ([ツール] -> [マクロ] -> [マクロ (M)] -> 作成したマクロを選択 -> [編集] ボタンをクリックします)右側 --> マクロ編集インターフェイスに入る --> Sub XXX と End Sub の間のコンテンツをすべて削除 --> 上記のプログラム コードを貼り付け --> ツールバーの「保存」ボタンを押す --> 「ファイル」メニュー--> 閉じて MicorSoft Excel に戻ります

マクロの実行: 設定したショートカット キー (文字 Ctrl) を押すか、ウィンドウ上のメニュー [ツール] --> マクロ --> マクロ (M) --> からマクロ名を選択し、 を押します。 「実行」ボタン マクロを実行します。

============================================== = ====================

この VBA コードの関数の説明:

1. VBA コードを実行すると、プログラムは「概要」という名前のワークシートを追加します。

2.sheet1 の最初の行 (sheet1 という名前かどうかは関係ありません。プログラムはそれ自体で名前を認識します) を「概要」テーブルの最初の行として使用します。

3. 次に、「概要」テーブルを除くワークシートの 2 行目以降のすべての行と列を「概要」テーブルに追加する方法で追加します (通常、最初の行はタイトルとみなされます)

####4.追加処理はコピー&ペーストに相当しますが、手動でコピー&ペーストするよりもはるかに速く、一瞬で完了すると言えます。また、ショートカットキーを使用して一度実行すると、すべてのワークシートが一度に集計されます。

それがうまくいくかどうかは、一度試してみればわかります。このコードの使用についてご質問がある場合は、こんにちは~~~~~

までお問い合わせください。

以上が200個程度の複数のExcelファイルから指定した列のデータを抽出して新しいファイルにまとめる方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。

このウェブサイトの声明
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。

ホットAIツール

Undresser.AI Undress

Undresser.AI Undress

リアルなヌード写真を作成する AI 搭載アプリ

AI Clothes Remover

AI Clothes Remover

写真から衣服を削除するオンライン AI ツール。

Undress AI Tool

Undress AI Tool

脱衣画像を無料で

Clothoff.io

Clothoff.io

AI衣類リムーバー

Video Face Swap

Video Face Swap

完全無料の AI 顔交換ツールを使用して、あらゆるビデオの顔を簡単に交換できます。

ホットツール

メモ帳++7.3.1

メモ帳++7.3.1

使いやすく無料のコードエディター

SublimeText3 中国語版

SublimeText3 中国語版

中国語版、とても使いやすい

ゼンドスタジオ 13.0.1

ゼンドスタジオ 13.0.1

強力な PHP 統合開発環境

ドリームウィーバー CS6

ドリームウィーバー CS6

ビジュアル Web 開発ツール

SublimeText3 Mac版

SublimeText3 Mac版

神レベルのコード編集ソフト(SublimeText3)

Excelでタイムラインフィルターを作成する方法 Excelでタイムラインフィルターを作成する方法 Apr 03, 2025 am 03:51 AM

Excelでは、タイムラインフィルターを使用すると、期間ごとにデータをより効率的に表示できます。これは、フィルターボタンを使用するよりも便利です。タイムラインは、単一の日付、月、四半期、または年のデータをすばやく表示できる動的フィルタリングオプションです。 ステップ1:データをピボットテーブルに変換します まず、元のExcelデータをピボットテーブルに変換します。データテーブルのセル(フォーマットされているかどうか)を選択し、リボンの挿入タブで[ピボット可能]をクリックします。 関連:Microsoft Excelでピボットテーブルを作成する方法 ピボットテーブルに怖がらないでください!数分で習得できる基本的なスキルを教えます。 関連記事 ダイアログボックスで、データ範囲全体が選択されていることを確認してください(

Excel'の隠されたカメラツールを使用しない場合は、トリックを逃しています Excel'の隠されたカメラツールを使用しない場合は、トリックを逃しています Mar 25, 2025 am 02:48 AM

クイックリンクカメラツールを使用する理由

ハッシュサインがExcel式で何をするかを知る必要があります ハッシュサインがExcel式で何をするかを知る必要があります Apr 08, 2025 am 12:55 AM

Excel Overflow Range Operator(#)により、オーバーフロー範囲のサイズの変化に対応するために、式を自動的に調整できます。この機能は、WindowsまたはMac用のMicrosoft 365 Excelでのみ使用できます。 一意、countif、sortbyなどの一般的な関数をオーバーフロー範囲演算子と組み合わせて使用​​して、動的なソート可能なリストを生成できます。 Excelフォーミュラのポンドサイン(#)は、オーバーフロー範囲演算子とも呼ばれます。これは、あらゆる結果をオーバーフロー範囲で検討するようプログラムに指示します。したがって、オーバーフロー範囲が増加または減少したとしても、#を含む式はこの変更を自動的に反映します。 MicrosoftExcelの一意の値をリストしてソートする方法

関数のパーセントを使用して、Excelのパーセンテージ計算を簡素化する 関数のパーセントを使用して、Excelのパーセンテージ計算を簡素化する Mar 27, 2025 am 03:03 AM

Excelの関数の割合:データサブセットの割合を簡単に計算する Excelの関数の割合は、データセット全体のデータサブセットの割合を迅速に計算し、複雑な式の作成の手間を回避できます。 機能構文のパーセント 関数のパーセントには2つのパラメーターがあります。 =パーセント(a、b) で: A(必須)は、データセット全体の一部を形成するデータのサブセットです。 B(必須)はデータセット全体です。 言い換えれば、関数のパーセントは、サブセットaの割合を総データセットbに計算します。 パーセントを使用して個々の値の割合を計算します 関数のパーセントを使用する最も簡単な方法は、シングルを計算することです

Excelでテーブルの名前を変更しない場合は、今日の開始日です Excelでテーブルの名前を変更しない場合は、今日の開始日です Apr 15, 2025 am 12:58 AM

クイックリンク なぜテーブルはExcelで名前を付けなければならないのですか Excelでテーブルに名前を付ける方法 Excelテーブルの命名ルールとテクニック デフォルトでは、ExcelのテーブルはTable1、Table2、Table3などと呼ばれます。ただし、これらのタグに固執する必要はありません。実際、そうしなければ、それはより良いでしょう!このクイックガイドでは、Excelで常にテーブルの名前を変更する必要がある理由を説明し、これを行う方法を示します。 なぜテーブルはExcelで名前を付けなければならないのですか Excelでテーブルを命名する習慣を開発するのに時間がかかるかもしれませんが(通常はこれをしない場合)、次の理由は今日説明しています

Excelでこぼれた配列をフォーマットする方法 Excelでこぼれた配列をフォーマットする方法 Apr 10, 2025 pm 12:01 PM

フォーミュラ条件付きフォーマットを使用して、Excelのオーバーフローアレイを処理する Excelでのオーバーフローアレイの直接フォーマットは、特にデータの形状やサイズが変化する場合に問題を引き起こす可能性があります。フォーミュラベースの条件付き書式設定ルールにより、データパラメーターが変更されたときに自動フォーマットが可能になります。列参照の前にドル記号($)を追加すると、データ内のすべての行にルールを適用できます。 Excelでは、セルの値または背景に直接フォーマットを適用して、スプレッドシートを読みやすくすることができます。ただし、Excel式が値のセット(Overflow Arraysと呼ばれる)を返すと、直接フォーマットを適用すると、データのサイズまたは形状が変更された場合に問題が発生します。 ピボトビーフォーミュラのオーバーフロー結果を備えたこのスプレッドシートがあるとします。

ExcelでPivotby関数を使用する方法 ExcelでPivotby関数を使用する方法 Apr 11, 2025 am 12:56 AM

Pivotby構文をクイックリンクします

Excel'の集計関数を使用して計算を改善する方法 Excel'の集計関数を使用して計算を改善する方法 Apr 12, 2025 am 12:54 AM

Quickリンク集約構文をリンクします

See all articles