nazuna_0124 https://blog.hatena.ne.jp/nazuna_0124/ なずブログ https://shokuren.hateblo.jp/ さーて同じようなお話３回目です。 ちょっとこの例でやるには不適当かもですが、 こういう使い方があるので一緒に覚えましょうのコーナー。 Sub オブジェクトを入れておく() Dim tmp Set tmp = Range("B2").CurrentRegion Dim dic As Scripting.dictionary Set dic = New dictionary Dim r As Range For Each r In tmp Dim col As Collection Set col = New Collection If dic.Exists(r.Text) = False The… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fshokuren.hateblo.jp%2Fentry%2F2018%2F02%2F23%2F185041" title="重複データを見つける～VBA講座：オブジェクトをdictionaryでためておく～ - なずブログ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/n/nazuna_0124/20170403/20170403224602.png Hatena Blog https://hatena.blog 2018-02-23 18:50:41 rich https://shokuren.hateblo.jp/entry/2018/02/23/185041 1.0 100%