こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 今回は、Indexで配列を一行ずつ切り取って振り分ける方式を採用。 Sub VBA_100Knock_38() ' 祝日の辞書作成。 Dim HolidayDict As Scripting.Dictionary Set HolidayDict = New Scripting.Dictionary Dim i As Long With Sheets("祝日") For i = 1 To .Cells(Rows.Count,…