|
▼gaku さん:
>>まず、重複した番号を洗い出すマクロを作るのが先決だと思います。
>重複した番号は、COUNTIFで洗い出せばよいのでしょうか?
その通りです。COUNTIFで重複番号を洗い出せます。
案としては、
1.
作業列を作って、作業列に.Formulaで数式を埋め込む。
2.
ループを作って、WorksheetFunction.CountIfで判定する。
新規SheetにSampleでテストデータを作って試してみてください。
Sub Sample()
Dim i As Long
Dim j As Long
For i = 1 To 20
Randomize
j = Int(Rnd * 20)
Cells(i, 1).Value = j
Next
End Sub
Sub test1()
With Range("A1:A20").Offset(, 1)
.Formula = _
"=IF(COUNTIF($A$1:$A$20,A1)>1,""×"","""")"
.Value = .Value
End With
End Sub
Sub test2()
Dim Rng As Range
For Each Rng In Range("A1:A20").Cells
If WorksheetFunction. _
CountIf(Range("A1:A20"), Rng) > 1 Then
Rng.Offset(, 2).Value = "××"
End If
Next
End Sub
|
|