【エクセルマクロ】特定文字を含むファイル数をカウント：自動化で時短術

エクセルマクロで、特定文字を含むファイル数を取得するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

特定文字を含むファイル数をカウント

以下のExcelVBAを実行すると、特定の文字列を含むファイルのみカウントします。

Sub 複数文字を含むファイルを数える()

Dim path, fso, file, files
Dim i As Long

    '対象フォルダ
    path = "C:\テスト"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set files = fso.GetFolder(path).files
    
    i = 0

    'フォルダ内の全ファイルをループ
    For Each file In files

        '検索する文字を指定
        If InStr(file.Name, "議事録") >= 1 Then

            '該当ファイルをカウント
            i = i + 1

        End If
    Next file

    If i = 0 Then
        MsgBox "該当ファイルはありません"
    Else
        MsgBox i & "個あります"
    End If

End Sub

対象フォルダ

フォルダ内に複数のファイルが存在しています。

マクロ実行後

フォルダ内にあるファイルから、

指定文字を含むファイル数を取得して、メッセージボックスに表示します。

該当するファイルが存在しない場合は、

「該当ファイルはありません」とメッセージボックスに表示します。

 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】シートの追加・削除を自動化：超便利12選

エクセルマクロで、ワークシートの追加・削除を自動化するVBAコードをご紹介します。どのマクロコードも、コピペで使用できます。ぜひお試しください！

kirinote.com

2023.09.03