|
以下のようなコードで重複コードを別シートに書き出したのですが
2度同じコードを書きださないようにしたい
作成したマクロでは全て書き出されてしまい
何か良い方法がありましたらご教示お願いします
商品コード
A001
A002
A004
A002
A005
A001
A007
A003
A003
A001
Sub 重複()
Dim Rng As Range
Dim i As Long
Dim cnt As Long
Dim jyufukulng As Long
Dim Gyou As Integer
Dim LastRow As Long
Worksheets("重複Data").Activate
Set Rng = Range("C4", Range("C65536").End(xlUp))
Gyou = 4
LastRow = Cells(65536, 3).End(xlUp).Row
For i = Cells(65536, 3).End(xlUp).Row To 4 Step -1
Worksheets("重複Data").Activate
With Worksheets("重複Data").Range("C4")
.AutoFilter Field:=1, Criteria1:=Cells(i, 3).Value
jyufukulng = WorksheetFunction.CountIf(Rng, Cells(i, 3).Value)
If jyufukulng > 1 Then
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Worksheets("重複一覧").Range("C" & CStr(Gyou))
cnt = Worksheets("重複Data").UsedRange.Rows.Count
.AutoFilter
End If
End With
Worksheets("重複一覧").Activate
Gyou = Cells(65536, 3).End(xlUp).Row + 2
Next i
For i = 1 To 4
Worksheets("重複一覧").Columns(i).ColumnWidth = Worksheets("重複Data").Columns(i).ColumnWidth
Next i
Worksheets("重複一覧").Activate
End Sub
|
|