Sheet1の元のデータ 重複なしのデータ For~Nextで逐次チェックする方法 Topへ もっとも基本的な方法で重複しているか否かを逐次調べ重複がなかったらSheet2へ追加していきます。 ここで書いている方法の中では最も時間がかかります。 コード例 Sub ループ() Dim lastRow1 As Long, lastRow2 As Long Dim i As Long, j As Long, myCnt As Long With Worksheets("Sheet2") .Range("A:A").ClearContents .Range("A1") = Worksheets("Sheet1").Range("A1").Value lastRow1 = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row For i