以下のフォーマットのテキストファイルがあります。 抜き出すデータをカウントして、データを集計して まとまたものをCSVファイルを出力するマクロを作成してください。 ■抜き出す箇所 ・Date　：　年と月 ・なぜ依頼？　：　項目ごとに集計してください。 ・どこで知った？　：　項目ごとに集計してください。 ■動作フロー ・テキストファイルの先頭から始まり、最後まで集計。 　最後まで到達したら処理を完了。 ・「抜き出す箇所」以外はすべてスキップして次に進む。 ・CSVファイルの名前はDateでカウントした年月の古い年月を開始として最新の年月を付ける。 　以下の命名ルールで出力 　例：202401-202512.csv ・CSVファイルはデスクトップに保存 ■マクロの実行の流れ １．開始を押す ２．テキストファイルを選択 ３．処理完了のメッセージ 　　正常なら「ｘｘ件処理をしました。」 　　異常なら「エラーです」 ■出力されるCSVのサンプル 2023年2月 なぜ依頼？ 近かった 1 2023年2月 どこで知った？ スマホ検索 1 2023年4月 なぜ依頼？ 近かった 安そう 技術がありそう 安心できた 3 3 3 2 2023年4月 どこで知った？ PC検索 3 ■テキストファイルのフォーマットの例 ここから ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー X-Sweeper: safe Return-Path: Delivered-To: sample@ddd.com X-Virus-Status: clean(F-Secure/fsigk_smtp/521/virusgw4.xserver.jp) Received: by sv762.xserver.jp (Postfix, from userid 20165) id A839880F6B92E; Sun, 2 Apr 2023 12:35:51 +0900 (JST) Subject: =?ISO-2022-JP?B?GyRCTWhFOU09THMlVSUpITwlYCEhJSIlcyUxITwlSCFaPCtGMEpWPy4hWxsoQg==?= To: sample@ddd.com From: ddddd22@gmail.com Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="ISO-2022-JP" Message-Id: <20230402033551.A839880F6B92E@sv762.xserver.jp> Date: Sun, 2 Apr 2023 12:35:51 +0900 (JST) XSRV-Filter: sample@ddd.com X-Becky-Status: 010000,000000,3,6428f817,642900c8,1744d191,ffffffff アンケートへの回答がありました ■なぜ依頼？ 近かった / 安そう / 技術がありそう / 安心できた ■どこで知った？ PC検索 . X-Sweeper: safe Return-Path: Delivered-To: sample@ddd.com X-Virus-Status: clean(F-Secure/fsigk_smtp/521/virusgw4.xserver.jp) Received: by sv762.xserver.jp (Postfix, from userid 20165) id 9902A80F71B46; Sun, 2 Apr 2023 12:35:56 +0900 (JST) Subject: =?ISO-2022-JP?B?GyRCTWhFOU09THMlVSUpITwlYCEhJSIlcyUxITwlSCFaPCtGMEpWPy4hWxsoQg==?= To: sample@ddd.com From: ddddd22@gmail.com Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="ISO-2022-JP" Message-Id: <20230402033556.9902A80F71B46@sv762.xserver.jp> Date: Sun, 2 Apr 2023 12:35:56 +0900 (JST) XSRV-Filter: sample@ddd.com X-Becky-Status: 010001,000000,3,6428f81c,642900c9,1744d193,ffffffff アンケートへの回答がありました ■なぜ依頼？ 近かった / 安そう / 技術がありそう / 安心できた ■どこで知った？ PC検索 . X-Sweeper: safe Return-Path: Delivered-To: sample@ddd.com X-Virus-Status: clean(F-Secure/fsigk_smtp/521/virusgw4.xserver.jp) Received: by sv762.xserver.jp (Postfix, from userid 20165) id 7EC7B80F7943B; Sun, 2 Apr 2023 12:36:08 +0900 (JST) Subject: =?ISO-2022-JP?B?GyRCTWhFOU09THMlVSUpITwlYCEhJSIlcyUxITwlSCFaPCtGMEpWPy4hWxsoQg==?= To: sample@ddd.com From: ddddd22@gmail.com Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="ISO-2022-JP" Message-Id: <20230402033608.7EC7B80F7943B@sv762.xserver.jp> Date: Sun, 2 Apr 2023 12:36:08 +0900 (JST) XSRV-Filter: sample@ddd.com X-Becky-Status: 010000,000000,3,6428f828,642900c9,1744d195,ffffffff アンケートへの回答がありました ■なぜ依頼？ 近かった / 安そう / 技術がありそう ■どこで知った？ PC検索 . X-Sweeper: safe Return-Path: Delivered-To: sample@ddd.com X-Virus-Status: clean(F-Secure/fsigk_smtp/521/virusgw4.xserver.jp) Received: by sv762.xserver.jp (Postfix, from userid 20165) id 7EC7B80F7943B; Sun, 2 Apr 2023 12:36:08 +0900 (JST) Subject: =?ISO-2022-JP?B?GyRCTWhFOU09THMlVSUpITwlYCEhJSIlcyUxITwlSCFaPCtGMEpWPy4hWxsoQg==?= To: sample@ddd.com From: ddddd22@gmail.com Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="ISO-2022-JP" Message-Id: <20230402033608.7EC7B80F7943B@sv762.xserver.jp> Date: Sun, 2 Feb 2023 12:36:08 +0900 (JST) XSRV-Filter: sample@ddd.com X-Becky-Status: 010000,000000,3,6428f828,642900c9,1744d195,ffffffff アンケートへの回答がありました ■なぜ依頼？ 近かった ■どこで知った？ スマホ検索 . ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ここまで