{"url":"https://shokuren.hateblo.jp/entry/2018/02/23/185041","description":"\u3055\u30fc\u3066\u540c\u3058\u3088\u3046\u306a\u304a\u8a71\uff13\u56de\u76ee\u3067\u3059\u3002 \u3061\u3087\u3063\u3068\u3053\u306e\u4f8b\u3067\u3084\u308b\u306b\u306f\u4e0d\u9069\u5f53\u304b\u3082\u3067\u3059\u304c\u3001 \u3053\u3046\u3044\u3046\u4f7f\u3044\u65b9\u304c\u3042\u308b\u306e\u3067\u4e00\u7dd2\u306b\u899a\u3048\u307e\u3057\u3087\u3046\u306e\u30b3\u30fc\u30ca\u30fc\u3002 Sub \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u5165\u308c\u3066\u304a\u304f() 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\u2026","title":"\u91cd\u8907\u30c7\u30fc\u30bf\u3092\u898b\u3064\u3051\u308b\uff5eVBA\u8b1b\u5ea7\uff1a\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092dictionary\u3067\u305f\u3081\u3066\u304a\u304f\uff5e","author_name":"nazuna_0124","provider_name":"Hatena Blog","height":"190","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fshokuren.hateblo.jp%2Fentry%2F2018%2F02%2F23%2F185041\" title=\"\u91cd\u8907\u30c7\u30fc\u30bf\u3092\u898b\u3064\u3051\u308b\uff5eVBA\u8b1b\u5ea7\uff1a\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092dictionary\u3067\u305f\u3081\u3066\u304a\u304f\uff5e - \u306a\u305a\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://shokuren.hateblo.jp/","categories":[],"type":"rich","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/n/nazuna_0124/20170403/20170403224602.png","blog_title":"\u306a\u305a\u30d6\u30ed\u30b0","author_url":"https://blog.hatena.ne.jp/nazuna_0124/","published":"2018-02-23 18:50:41","width":"100%","provider_url":"https://hatena.blog"}