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 行目以降のすべての行と列を「概要」テーブルに追加する方法で追加します (通常、最初の行はタイトルとみなされます)

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

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

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

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