１．変数の文字を検索する関数【instr】です。 n = InStr(1, work_s1, work_s2) InStr ( 開始位置 , 変数 , 検索する文字) Do While n > 0 cnt = cnt + 1 n = InStr(n + 1, work_s1, work_s2) Loop ソースは以下です。 ------------------------------------…