結果 : excel vba replace multiple spaces with one