[[20200714072348]]　『共通ではない数字の抜き出し』（ゴン太）　ページの最後に飛ぶ

『共通ではない数字の抜き出し』（ゴン太）

はじめまして。お世話になります。
以下のような数列から共通ではない数字を抜き出してください。
１．「1234」「2431」「3675」「1245」
２．「1235」「1234」「2556」「1245」

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

共通でない、の定義が明示されてませんが、
2431、3675、1235、2556だと思います。
（通りすがり） 2020/07/14(火) 07:48

 Sub test()
    Dim i As Long
    Dim cw As String

    With CreateObject("System.Collections.ArrayList")
        For i = 0 To 3
            .Add Array("1234", "2431", "3675", "1245")(i)
        Next i
        For i = 0 To 3
            cw = Array("1235", "1234", "2556", "1245")(i)
            If .Contains(cw) = True Then
                .Remove cw
            Else
                .Add cw
            End If
        Next i
        MsgBox Join(.toarray, vbLf), vbInformation
    End With
 End Sub
（???） 2020/07/14(火) 09:30

早速の回答ありがとうございました。
次いでと言っては失礼なのですが、かれんと言う人が質問している問題について
も回答をお願い出来ないでしょうか？
（ゴン太） 2020/07/14(火) 12:06

 ゴン太さんが回答してはいかがでしょう？
 勉強の成果を発揮するときです。
（通りすがり） 2020/07/14(火) 16:15

（通りすがり）さん丁寧な対応感謝します。有難うございました。
（為五郎） 2020/07/14(火) 19:24

トピックが乱立されててよくわからないので適当に整理してみた。

 済？
[[20200714072348]]　『共通ではない数字の抜き出し』（ゴン太）
[[20200714081508]]　『共通で無い数列の抜き出し』（かれん）
[[20200714123210]]　『連続した4桁の数字のペアの違い』（為五郎）
[[20200714160300]]　『4桁の抽出』（為五郎）

 現行トピック？
[[20200714163259]]　『固定した4桁の数字では意味がありません。』（為五郎）

（偽五郎） 2020/07/14(火) 22:36

コメント返信：

[ 一覧(最新更新順) ]

[[20200714072348]] 『共通ではない数字の抜き出し』（ゴン太） ページの最後に飛ぶ

[[20200714072348]]　『共通ではない数字の抜き出し』（ゴン太）　ページの最後に飛ぶ