[[20180906130635]]　『【マクロ】データの重複の削除を行う』（トイレの女神）　ページの最後に飛ぶ

『【マクロ】データの重複の削除を行う』（トイレの女神）

こんにちは(・∀・)

マクロでデータの重複削除を使いたいのですが
うまく行かず、悪戦苦闘してます(相変わらず^^;)

表がA列からAZ列まであるのですが
今後、列が増えていく可能性を考え
表を全選択できるように組もうと考えました。

その結果、下記3点のコードを組んでみたのですが
いずれも
エラーオブジェクトが必要です
とのことで動作せず、、、
どなたかご助力いただけないでしょうか。

やりたいこと
・重複の削除を使って3列目で重複を削除する
　1行目は見出し。

エラーになったコード
・ActiveSheet.Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select.RemoveDuplicates Columns:=(3), Header:=xlYes
・ActiveSheet.Range("A1").CurrentRegion.Select.RemoveDuplicates Columns:=(3), Header:=xlYes
・ActiveSheet.UsedRange.Select.RemoveDuplicates Columns:=(3), Header:=xlYes

出てきたエラー
・オブジェクトが必要です。

参考にしたサイト
・http://officetanaka.net/excel/vba/cell/cell10.htm
・https://tonari-it.com/excel-remove-duplicate-vba/

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 詳しくはみていないがまずはSelectを消してみてくれ。
 Range.SelectはRangeを選択しろ、というメソッドで返値は選択が成功したか失敗したかでTrue・Falseとなるようだ。
（ねむねむ） 2018/09/06(木) 13:18

ねむねむさん

こんにちは＼(^o^)／
回答ありがとうございます！
なるほど、RangeとSelectでコードの意味が重複しているため
エラーになっていたんですね、、、
助かりました！

今回は

ActiveSheet.UsedRange.RemoveDuplicates Columns:=(3), Header:=xlYes

で想定通りの動きができました！
（トイレの女神） 2018/09/06(木) 13:40

コメント返信：

[ 一覧(最新更新順) ]

[[20180906130635]] 『【マクロ】データの重複の削除を行う』（トイレの女神） ページの最後に飛ぶ

[[20180906130635]]　『【マクロ】データの重複の削除を行う』（トイレの女神）　ページの最後に飛ぶ