| 
    
     |  | ▼γ さん: 数字で試してみたところきちんと動作しました。
 修正ありがとうございました。またいろいろ教えて
 いただきありがとうございました。
 
 
 >すべて数値のケースは考慮していませんでした。
 >下記の修正を行って、
 >書込先のシートの書式を「文字列」にしておけばよいと思います。
 >
 >Sub main()の
 >  '書き込み先のシートをクリアー
 >  ws2.UsedRange.Clear
 >の下に一行を挿入してください。
 >  ws2.Columns("A:B").NumberFormatLocal = "@"
 >
 >■なお、相違箇所というものは、ユニークに決まるものではないことに注意が必要です。
 >
 >どこを共通した箇所と考えるかには、もともと任意性があります。
 >例えば、
 >ABCBDAB と BDCABA といった比較を考えると、
 >(1)
 >BCBAが共通部分と考えて、
 >ABCBDAB と BDCABA
 >~  ~ ~   ~ ~
 >が相違点と考えることもできますし、
 >(2)
 >BDABが共通部分と考えて
 >ABCBDAB と BDCABA
 >~~~      ~ ~
 >が相違点と考えることもできます。
 >これらを網羅的に考えるのは別の話になると思います。
 >
 >■
 >現状のもので不都合があれば、ご自分で改善されるか、
 >フリーなツールを探されてはいかがでしょうか。
 
 
 |  |