ホームページ ソフトウェアチュートリアル オフィスソフトウェア 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衣類リムーバー

AI Hentai Generator

AI Hentai Generator

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

ホットツール

メモ帳++7.3.1

メモ帳++7.3.1

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

SublimeText3 中国語版

SublimeText3 中国語版

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

ゼンドスタジオ 13.0.1

ゼンドスタジオ 13.0.1

強力な PHP 統合開発環境

ドリームウィーバー CS6

ドリームウィーバー CS6

ビジュアル Web 開発ツール

SublimeText3 Mac版

SublimeText3 Mac版

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

電卓アプリは、Microsoft Excelに置き換えることができます 電卓アプリは、Microsoft Excelに置き換えることができます Mar 06, 2025 am 06:01 AM

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

言葉でテーブルを作成しないでください:代わりにExcelを使用します 言葉でテーブルを作成しないでください:代わりにExcelを使用します Mar 06, 2025 am 03:04 AM

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

Excelチャートのバーと列の間のギャップを減らす方法(およびなぜそうすべきなのか) Excelチャートのバーと列の間のギャップを減らす方法(およびなぜそうすべきなのか) Mar 08, 2025 am 03:01 AM

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

Excelで平均的な機能と平均的な関数を使用する方法 Excelで平均的な機能と平均的な関数を使用する方法 Mar 07, 2025 am 06:03 AM

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

今日のウェブのためにExcelでできる5つのことは、あなたが12か月前にできないことをできません 今日のウェブのためにExcelでできる5つのことは、あなたが12か月前にできないことをできません Mar 22, 2025 am 03:03 AM

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

Microsoft Excelキーボードショートカット:印刷可能なチートシート Microsoft Excelキーボードショートカット:印刷可能なチートシート Mar 14, 2025 am 12:06 AM

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

ExcelでLambdaを使用して独自の機能を作成する方法 ExcelでLambdaを使用して独自の機能を作成する方法 Mar 21, 2025 am 03:08 AM

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

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

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

See all articles