日次のデータから処理年月(yyyy/mm/dd)を取り出す準備。

月次の入出庫データの中にある日付データの最大値を取ろうとしたもの。
当初、MAXでやっていたがうまくいかずSubtotalを使った。
この後、フォーマット関数を使って、(yyyy/mm)に変換

hiduke=Application.WorksheetFunction. _
Subtotal(4, Range("B2:B18"))

もっといい方法がないかな。
最大値や最小値だと、間違って前月の最終日や、次月の最初の日のデータが
混じっていると当月ではない数字を返してくるんだよね。。。
平均値でやってみようか。。