なんで「全てを検索」ボタンはあるのに、ExcelVBAの標準機能として提供されとらんのだ。 Option Explicit Public Function 全件検索(ByVal シート名 As String, ByVal 検索範囲 As String, ByVal キーワード As String) As Integer 全件検索 = 検索(Workshee…

「ディレクトリ名,ブック名,シート名,コピー先シート名」 のリストを2行目以降に書いて、下記のマクロを実行すると、 新しいブックに全部集約してくれる。 Option Explicit Sub ワークシート集約() Dim bkInput As Workbook Set bkInput = ThisWorkbook Dim …