vba left関数 繰り返し