例えばある列に、８桁の整数が入力されているとする。 これらは年月を表しており、年４桁＋月２桁＋日２桁となっている（yyyymmdd）。これをDate型に切り替えるために、以下のようなマクロを作成した。 Sub test() Dim myRng As Range Set myRng = ActiveShe…