Infomentのブログ ～Excel VBA奮闘記～

様々なサイトなどで紹介されているとおり、配列を使った処理はとても高速です。サンプルとして、10000行に入力された数値を日付に変換する時間を計ってみました。 ↓ セル毎に、一つずつ上書きする場合 Sub Sample1() Dim r As Range ' セル毎に上書き。 For Each r In Range("A1:A10000") r = DateSerial(Left(r, 4), Mid(…