[[20200714072348]] 『共通ではない数字の抜き出し』(ゴン太) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

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

はじめまして。お世話になります。
以下のような数列から共通ではない数字を抜き出してください。
1.「1234」「2431」「3675」「1245」
2.「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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.