| |
▼のり さん：
こんばんは。
ちょっと前に似たような処理の投稿をしましたが・・・・。
>どなたかマクロを教えてください。
> セルB1〜ｊ100までにデータがあります。
> 列B（セルB1〜B100）には番号が入力されていますが
> 同一番号が何回も出てきます。
>
> そこで、同じ番号が出てきた場合行番号の上位行だけ
> 残し他の業は削除したいのですが。
>
> たとえばセルB1に32番
> セルB8に32番
> セルB65に32番
> がある場合
> 上位行の行1だけを残し行8と65は削除する。
>
> お願いします。
'==========================================================
Sub test()
Dim rd As Range
Dim ans As Range
Set rd = Range("b1:b100")
With rd.Offset(0, 10)
.Formula = "=IF(COUNTIF($b$1:b1,b1)>1,b1,"""")"
.Value = .Value
On Error Resume Next
Set ans = Nothing
Set ans = .SpecialCells(xlCellTypeConstants)
.Value = ""
If Not ans Is Nothing Then
ans.EntireRow.Delete
End If
End With
End Sub
尚、Ｌ列を作業列として使っています。
確認してください
|
|
ichinose
- 04/9/6(月) 20:49 -
