次のVBAは、フォルダー内のすべての.xlsxファイルをカウントするなど、特定のフォルダー内の特定の種類のファイルを簡単にカウントするのに役立ちます。 次のようにしてください。

1。 プレス 他の + F11 キーを同時に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2。 クリック インセット > モジュール、次に、以下のVBAコードを開いているモジュールウィンドウに貼り付けます。

VBA：特定のフォルダー内の特定のファイルをカウントします

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

Note：上記のVBAコードは 。XLSX 特定のフォルダ内のファイル。 他の種類のファイルを数えるために、調べてください xPath = xFolder＆ "\ *。xlsx"、そして 。XLSX 必要に応じて他のファイル拡張子に。

3。 プレス F5 キーを押すか、 ラン このVBAコードを実行するためのボタン。

4. [参照]ダイアログボックスを開いて、特定の種類のファイルをカウントする特定のフォルダーを選択し、[ OK

5.ダイアログボックスが表示され、特定のフォルダに存在する特定の種類のファイルの数が表示されます。 ダイアログボックスを閉じるだけです。

複数のワークシート/ワークブック/ CSVファイルをXNUMXつのワークシート/ワークブックに簡単に組み合わせる

異なるワークブックの数十枚のシートをXNUMX枚のシートにまとめるのは面倒かもしれません。 しかし、Kutools forExcelの 組み合わせる（ワークシートとワークブック） ユーティリティ、あなたはそれを数回クリックするだけで成し遂げることができます！

フォルダを開いた場合、通常、このフォルダの下部にすべてのファイルの数が表示されます。 このメソッドは、Excel用のKutoolsを導入します オープン含むフォルダ 現在のブックが含まれているフォルダを開き、このフォルダ内のファイル数を取得するユーティリティ。

1。 クリック クツールズプラス > ワークブック > オープン含むフォルダ。 スクリーンショットを参照してください：

2.現在のワークブックを含むフォルダーが開いています。

開いているフォルダ内のファイルの選択を解除すると、次のスクリーンショットに示すように、このフォルダの下部にすべてのファイルの数が表示されます。

Note： オープン含むフォルダ 現在のワークブックをこれまでに保存したことがない場合、ユーティリティは無効になります。

フォルダーとそのサブフォルダー内のいくつかの種類のファイルを数えたい場合があります。 実際、Kutools forExcelは別のものを提供します ファイル名リスト 簡単に解決するユーティリティ。

1。 クリック クツールズプラス > インポート・エクスポート > ファイル名リスト [ファイル名リスト]ダイアログボックスを開きます。

2. [ファイル名リスト]ダイアログボックスを開いて、次のようにします。

3。 クリック Ok [ファイル名リスト]ダイアログボックスのボタン。

4.これで、特定のタイプのすべてのファイルが新しいワークシートにリストされます。 列ヘッダーのない最初の列を選択するだけで、以下のスクリーンショットに示すように、ステータスバーにファイルの数が表示されます。