https://jinjineer.net/2023/11/05/vba-range-find-fisrstchr/
範囲の中で一番最初に出てくる文字を取得するユーザ定義関数