|
▼竹田 さん:
おはようございます。
>R列のR1からR100までに、文字列が入力されています。
>この文字列の幾つかが重複しているのですが、重複しているセルの一つ以外は背景色が付いております。(文字列が重複している場合は必ず一つだけ背景色のないせるがあるということになります。)
>このようにR列に重複文字列がある場合に、重複文字列の背景色があるセルのみを削除して一覧表示させる方法をご教授頂きたいのです。
>関数で頑張りましたがダメでした。
作業列として、IV列をプログラムが使用しています。
当該シートをアクティブにした状態で試してみてください。
標準モジュールに
'=======================================================================
Sub main()
On Error Resume Next
Cells(1, "r").Select
Names("iro").Delete
Names.Add Name:="iro", RefersToR1C1:="=GET.CELL(63,RC18)"
Err.Clear
With Range("iv1:iv100")
.Formula = "=if((iro<>0)*(countif($r$1:$r$100,r1)>1),1,"""")"
.SpecialCells(xlCellTypeFormulas, xlNumbers).Offset(0, 18 - 256).Delete xlUp
.ClearContents
End With
Names("iro").Delete
On Error GoTo 0
End Sub
|
|