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 サイトの他の関連記事を参照してください。

ホットAIツール

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

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

Undress AI Tool
脱衣画像を無料で

Clothoff.io
AI衣類リムーバー

AI Hentai Generator
AIヘンタイを無料で生成します。

人気の記事

ホットツール

メモ帳++7.3.1
使いやすく無料のコードエディター

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

ゼンドスタジオ 13.0.1
強力な PHP 統合開発環境

ドリームウィーバー CS6
ビジュアル Web 開発ツール

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

ホットトピック











計算機を捨てる:すべての計算にExcelを使用する理由と方法 私は年齢で計算機に触れていません。 なぜ? Microsoft Excelは私のすべての計算を簡単に処理し、あなたのために同じことをすることができるからです。 Excelが計算機に勝る理由 その間

言葉でテーブルを作成することは改善されていますが、まだ面倒であり、時にはより多くの問題をもたらします。これが、Microsoft Excelで常にテーブルを作成する必要がある理由です。 Excelでテーブルを作成する方が良いのはなぜですか? 要するに、Wordはワードプロセッサであり、Excelはデータプロセッサです。したがって、最高のテーブル作成のための言葉は構築されていませんが、同様の製品であるExcelです。 Excelでテーブルを作成することがMicrosoft Wordを使用するよりも優れている理由のほんの一部を次に示します。 Microsoft Wordテーブルで多くのExcelのような機能を使用できることは驚くべきことですが、Excel Youで

Excelチャートの強化:バーと列間のギャップの削減 チャートで視覚的にデータを表示すると、スプレッドシートの読みやすさが大幅に向上します。 Excelはチャート作成に優れていますが、その広範なメニューはシンプルでありながら強力な機能を曖昧にする可能性があります。

ExcelのAverageIFおよびAverageIFS機能のクイックビュー ExcelのAverageIFおよびAverageFS関数を使用して、データセットの平均値を計算できます。ただし、より単純な平均関数とは異なり、計算に特定の値を含めるか除外することができます。 ExcelでAverageIF関数を使用する方法 ExcelのAverageIF関数を使用すると、単一の条件セットに基づいてフィルター処理されたデータセットの平均値を計算できます。 平均機能構文 平均的な関数には、3つのパラメーターが含まれています。 =平均(x、y、z)

Excel Webバージョンは、効率を向上させるための機能強化を備えています! Excelデスクトップバージョンはより強力ですが、Webバージョンも過去1年間で大幅に改善されています。この記事では、5つの重要な改善に焦点を当てます。 行や列を簡単に挿入:Excel Webで、行または列ヘッダーの上にホバリングし、新しい行または列を挿入するように見える「」サインをクリックします。紛らわしい右クリックメニュー「挿入」機能を使用する必要はありません。この方法はより速く、新しく挿入された行または列は、隣接するセルの形式を継承します。 CSVファイルとしてのエクスポート:Excelは、簡単なデータ転送と他のソフトウェアとの互換性のために、CSVファイルとしてワークシートのエクスポートをサポートするようになりました。 「ファイル」>「エクスポート」をクリックします

マスターマイクロソフトは、これらの重要なキーボードショートカットで優れています! このチートシートは、最も頻繁に使用されるコマンドへの迅速なアクセスを提供し、貴重な時間と労力を節約できます。 重要なキーの組み合わせをカバーし、特別な機能を貼り付け、WorkBooをカバーします

ExcelのLambda機能:カスタム関数を作成するための簡単なガイド ExcelがLambda関数を導入する前に、カスタム関数を作成するにはVBAまたはマクロが必要です。これで、Lambdaを使用すると、おなじみのExcel構文を使用して簡単に実装できます。このガイドでは、ラムダ関数の使用方法を段階的にガイドします。 このガイドの部分を順番に読み、最初に文法と簡単な例を理解し、次に実用的なアプリケーションを学ぶことをお勧めします。 Lambda関数は、Microsoft 365(Windows and Mac)、Excel 2024(Windows and Mac)、およびWebでExcelで利用できます。 e
