{"url":"https://hiko-blog.hatenadiary.com/entry/2024/02/03/140211","blog_url":"https://hiko-blog.hatenadiary.com/","categories":["VBA"],"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhiko-blog.hatenadiary.com%2Fentry%2F2024%2F02%2F03%2F140211\" title=\"A\u5217\u9805\u76ee\u306e\u7a2e\u985e\u5225\u306b\u3001B\u5217\u9805\u76ee\u3092\u53d6\u308a\u307e\u3068\u3081\u308b - Hiko.Blog  Excel VBA\u6d3b\u7528\u8853\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","image_url":null,"title":"A\u5217\u9805\u76ee\u306e\u7a2e\u985e\u5225\u306b\u3001B\u5217\u9805\u76ee\u3092\u53d6\u308a\u307e\u3068\u3081\u308b","blog_title":"Hiko.Blog  Excel VBA\u6d3b\u7528\u8853","description":"Sub A\u5217\u9805\u76ee\u306e\u7a2e\u985e\u5225\u306b\u3001B\u5217\u9805\u76ee\u3092\u53d6\u308a\u307e\u3068\u3081\u308b() Dim wsSource As Worksheet Dim wsDestination As Worksheet Dim lastRow As Long Dim uniqueValues As Collection Dim cell As Range Dim key As Variant Dim result As String ' \u30bd\u30fc\u30b9\u30b7\u30fc\u30c8\u3068\u5b9b\u5148\u30b7\u30fc\u30c8\u3092\u6307\u5b9a Set wsSource = ThisWorkbook.Sheets(\"Sheet1\") ' \u30bd\u30fc\u30b9\u30b7\u30fc\u30c8\u306e\u540d\u524d\u3092\u9069\u5207\u306b\u5909\u66f4 Set wsDestination = ThisW\u2026","provider_url":"https://hatena.blog","author_name":"hiko-blog","author_url":"https://blog.hatena.ne.jp/hiko-blog/","provider_name":"Hatena Blog","type":"rich","height":"190","published":"2024-02-03 14:02:11","version":"1.0"}