39本目 数値リストの統合（マージ）

VBA100本ノック 39本目を動画で解説しています。Excelの神髄さんの模範解答はコチラ

---

問題

#VBA100本ノック 39本目
A列とB列の数値を統合（マージ）しユニーク化してC列に出力します。
・A列、B列ともに行数は不定
・列内では数値は昇順になっています。
・列内では重複していないが、A列とB列では重複します。
・C列へは重複しない数値として昇順に出力してください。
※画像を参考に。

解答

Sub A列とB列をC列にコピー()

    Dim A, B
    A = Cells(Rows.Count, 1).End(xlUp).Row
    B = Cells(Rows.Count, 2).End(xlUp).Row

    Range("A1:A" & A).Copy Range("C1")
    Range("B1:B" & B).Copy Range("C" & A + 1)
    
    Range("C1:C" & A + B).Sort Range("C1"), xlAscending, Header:=xlNo
    Range("C1:C" & A + B).RemoveDuplicates 1, Header:=xlNo
    
End Sub

Sub 並び替え()

    Range("C1:C14").Sort Range("C1"), xlAscending, Header:=xlNo

End Sub

Sub 重複の削除()

    Range("C1:C14").RemoveDuplicates 1, Header:=xlNo

End Sub