' メイン処理' Sub 差分比較() Dim i, j, lr, lr2, m lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row lr2 = Sheets("Sheet2").Cells(Rows.Count, 1).End ...
日付の配列arrをつくり、最も早い日付を求めようと application.worksheetfunction.min(arr)と書いて何度やっても、0が返されてしまいます。配列の要素数は数百オーダー。 同じく最も遅い日付を求める application.worksheetfunction.max(arr) はちゃんとした答えが返ってきます。