$ 0 0 個人メモ Sub test() Dim i As Long Dim v_in As Variant, v_out As Variant v_in = Range("A1:A5") v_out = R…