Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48101 / 76732

←次へ　｜　前へ→


	【33568】Re:行に。

kobasan - 06/1/15(日) 19:46 -


	引用なし

	パスワード

▼jayan さん、皆さん、今晩は。

>1と125の行にまったく同じ情報の行があったとします。
>同じなのでどちらかがいらないので、125の方を削除しようと思います。

ということは、行番号の大きい行を削除すると解釈しました。
これでどうでしょうか。

'A列について重複を調べて、行番号の大きい行を削除する
Sub test()
Dim r As Range, urng As Range, rngA As Range
　　For Each r In Range("A1", Range("A65536").End(xlUp))
　　　　If Application.CountIf(Range("A1", r), r.Value) > 1 Then
　　　　　　If urng Is Nothing Then
　　　　　　　　Set urng = r
　　　　　　Else
　　　　　　　　Set urng = Union(urng, r)
　　　　　　End If
　　　　End If
　　Next
　　urng.EntireRow.Delete
　　Set urng = Nothing
End Sub

1 hits

▼

【33564】行に。 jayan 06/1/15(日) 18:18