5
hatenaさんのコード、シンプルで素敵ですね
RemoveDuplicatesX 関数の内側ループ、終了の数値を 1 だけ足せば更に完璧かもです
- For j = 1 To lA - i
+ For j = 1 To lA - i + 1
A: あいうえおかきく
のとき、
B: かきくさしすせそ
B: あいうえおかきく
などの文字は、置換対象となる文字の位置・範囲がずれ、
本来除去される先端・末端の文字が B に残ります
通報 ...