{"id":89503,"date":"2024-03-21T11:13:43","date_gmt":"2024-03-21T02:13:43","guid":{"rendered":"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/"},"modified":"2024-04-05T09:47:35","modified_gmt":"2024-04-05T00:47:35","slug":"vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95","status":"publish","type":"post","link":"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/","title":{"rendered":"VBA\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5"},"content":{"rendered":"<p>VBA\u3067\u8f9e\u66f8(Dictionary)\u3092\u5229\u7528\u3057\u3066\u3001\u540c\u3058\u5185\u5bb9\u306e\u500b\u6570\u3092\u30ab\u30a6\u30f3\u30c8\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u304c\u30b3\u30fc\u30c9\u4f8b\u3067\u3059\u3002<\/p>\n<pre class=\"post-pre\"><code>Sub CountDuplicates()\r\n    Dim dataRange As Range\r\n    Dim cell As Range\r\n    Dim dict As Object\r\n    Set dict = CreateObject(\"Scripting.Dictionary\")\r\n    \r\n    ' \u8bbe\u7f6e\u6570\u636e\u8303\u56f4\r\n    Set dataRange = Range(\"A1:A10\")\r\n    \r\n    ' \u904d\u5386\u6570\u636e\u8303\u56f4\u4e2d\u7684\u6bcf\u4e2a\u5355\u5143\u683c\r\n    For Each cell In dataRange\r\n        ' \u5224\u65ad\u5355\u5143\u683c\u4e2d\u7684\u503c\u662f\u5426\u5df2\u5b58\u5728\u4e8e\u5b57\u5178\u4e2d\r\n        If dict.Exists(cell.Value) Then\r\n            ' \u5982\u679c\u5b58\u5728\uff0c\u5219\u5728\u5b57\u5178\u4e2d\u5bf9\u5e94\u7684\u503c\u52a01\r\n            dict(cell.Value) = dict(cell.Value) + 1\r\n        Else\r\n            ' \u5982\u679c\u4e0d\u5b58\u5728\uff0c\u5219\u5c06\u5355\u5143\u683c\u7684\u503c\u4f5c\u4e3a\u952e\uff0c\u521d\u59cb\u503c\u8bbe\u4e3a1\r\n            dict.Add cell.Value, 1\r\n        End If\r\n    Next cell\r\n    \r\n    ' \u8f93\u51fa\u7ed3\u679c\r\n    For Each key In dict.Keys\r\n        MsgBox key &amp; \" \u7684\u4e2a\u6570\u4e3a \" &amp; dict(key)\r\n    Next key\r\nEnd Sub\r\n<\/code><\/pre>\n<p>\u4e0a\u8a18\u306e\u30b3\u30fc\u30c9\u3067\u306f\u3001\u7d71\u8a08\u5bfe\u8c61\u306e\u30c7\u30fc\u30bf\u306fA1:A10\u306e\u7bc4\u56f2\u306b\u3042\u308b\u3082\u306e\u3068\u4eee\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002\u307e\u305a\u3001\u8f9e\u66f8\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f5c\u6210\u3057\u3001\u30c7\u30fc\u30bf\u7bc4\u56f2\u5185\u306e\u5404\u30bb\u30eb\u3092\u53cd\u5fa9\u51e6\u7406\u3057\u3066\u3001\u30bb\u30eb\u306e\u5024\u3092\u8f9e\u66f8\u30ad\u30fc\u3068\u3057\u3066\u8ffd\u52a0\u3057\u307e\u3059\u3002\u30ad\u30fc\u304c\u65e2\u306b\u3042\u308c\u3070\u3001\u5bfe\u5fdc\u3059\u308b\u5024\u3092 1 \u5897\u3084\u3057\u307e\u3059\u3002\u30ad\u30fc\u304c\u306a\u3051\u308c\u3070\u3001\u30ad\u30fc\u3092\u8ffd\u52a0\u3057\u3001\u521d\u671f\u5024\u3092 1 \u306b\u8a2d\u5b9a\u3057\u307e\u3059\u3002\u6700\u5f8c\u306b\u3001\u8f9e\u66f8\u306e\u30ad\u30fc\u3092\u53cd\u5fa9\u51e6\u7406\u3057\u3066\u3001\u5404\u30ad\u30fc\u306b\u5bfe\u5fdc\u3059\u308b\u5024\u3001\u3064\u307e\u308a\u540c\u3058\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u8868\u793a\u3057\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>VBA\u3067\u8f9e\u66f8(Dictionary)\u3092\u5229\u7528\u3057\u3066\u3001\u540c\u3058\u5185\u5bb9\u306e\u500b\u6570\u3092\u30ab\u30a6\u30f3\u30c8\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u304c\u30b3\u30fc\u30c9\u4f8b\u3067\u3059\u3002 Sub CountDuplicates() Dim dataRange As Range Dim cell As R [&hellip;]<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-89503","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"yoast_head":"<!-- This site is optimized with the Yoast SEO Premium plugin v21.5 (Yoast SEO v21.5) - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>VBA\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5 - Blog - Silicon Cloud<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/www.silicloud.com\/ja\/blog\/vba\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5\/\" \/>\n<meta property=\"og:locale\" content=\"ja_JP\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5\" \/>\n<meta property=\"og:description\" content=\"VBA\u3067\u8f9e\u66f8(Dictionary)\u3092\u5229\u7528\u3057\u3066\u3001\u540c\u3058\u5185\u5bb9\u306e\u500b\u6570\u3092\u30ab\u30a6\u30f3\u30c8\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u304c\u30b3\u30fc\u30c9\u4f8b\u3067\u3059\u3002 Sub CountDuplicates() Dim dataRange As Range Dim cell As R [&hellip;]\" \/>\n<meta property=\"og:url\" content=\"https:\/\/www.silicloud.com\/ja\/blog\/vba\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5\/\" \/>\n<meta property=\"og:site_name\" content=\"Blog - Silicon Cloud\" \/>\n<meta property=\"article:published_time\" content=\"2024-03-21T02:13:43+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2024-04-05T00:47:35+00:00\" \/>\n<meta name=\"author\" content=\"\u685c, \u6625\u6a39\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"\u57f7\u7b46\u8005\" \/>\n\t<meta name=\"twitter:data1\" content=\"\u685c, \u6625\u6a39\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/\",\"url\":\"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/\",\"name\":\"VBA\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5 - Blog - Silicon Cloud\",\"isPartOf\":{\"@id\":\"https:\/\/www.silicloud.com\/ja\/blog\/#website\"},\"datePublished\":\"2024-03-21T02:13:43+00:00\",\"dateModified\":\"2024-04-05T00:47:35+00:00\",\"author\":{\"@id\":\"https:\/\/www.silicloud.com\/ja\/blog\/#\/schema\/person\/ff22288af1a5455571aff7586b0fb341\"},\"breadcrumb\":{\"@id\":\"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/#breadcrumb\"},\"inLanguage\":\"ja\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\u9996\u9875\",\"item\":\"https:\/\/www.silicloud.com\/ja\/blog\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"VBA\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/www.silicloud.com\/ja\/blog\/#website\",\"url\":\"https:\/\/www.silicloud.com\/ja\/blog\/\",\"name\":\"Blog - Silicon Cloud\",\"description\":\"\",\"inLanguage\":\"ja\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/www.silicloud.com\/ja\/blog\/#\/schema\/person\/ff22288af1a5455571aff7586b0fb341\",\"name\":\"\u685c, \u6625\u6a39\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"ja\",\"@id\":\"https:\/\/www.silicloud.com\/ja\/blog\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/cee48863f3d4fd7fef222498f3e71b82312aee42b7257a2dbde56394ca4e19de?s=96&d=mm&r=g\",\"contentUrl\":\"https:\/\/secure.gravatar.com\/avatar\/cee48863f3d4fd7fef222498f3e71b82312aee42b7257a2dbde56394ca4e19de?s=96&d=mm&r=g\",\"caption\":\"\u685c, \u6625\u6a39\"},\"url\":\"https:\/\/www.silicloud.com\/ja\/blog\/author\/sakuraharuki\/\"},{\"@type\":\"ImageObject\",\"inLanguage\":\"ja\",\"@id\":\"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/#local-main-organization-logo\",\"url\":\"\",\"contentUrl\":\"\",\"caption\":\"Blog - Silicon Cloud\"}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"VBA\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5 - Blog - Silicon Cloud","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/www.silicloud.com\/ja\/blog\/vba\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5\/","og_locale":"ja_JP","og_type":"article","og_title":"VBA\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5","og_description":"VBA\u3067\u8f9e\u66f8(Dictionary)\u3092\u5229\u7528\u3057\u3066\u3001\u540c\u3058\u5185\u5bb9\u306e\u500b\u6570\u3092\u30ab\u30a6\u30f3\u30c8\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u304c\u30b3\u30fc\u30c9\u4f8b\u3067\u3059\u3002 Sub CountDuplicates() Dim dataRange As Range Dim cell As R [&hellip;]","og_url":"https:\/\/www.silicloud.com\/ja\/blog\/vba\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5\/","og_site_name":"Blog - Silicon Cloud","article_published_time":"2024-03-21T02:13:43+00:00","article_modified_time":"2024-04-05T00:47:35+00:00","author":"\u685c, \u6625\u6a39","twitter_card":"summary_large_image","twitter_misc":{"\u57f7\u7b46\u8005":"\u685c, \u6625\u6a39"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/","url":"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/","name":"VBA\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5 - Blog - Silicon Cloud","isPartOf":{"@id":"https:\/\/www.silicloud.com\/ja\/blog\/#website"},"datePublished":"2024-03-21T02:13:43+00:00","dateModified":"2024-04-05T00:47:35+00:00","author":{"@id":"https:\/\/www.silicloud.com\/ja\/blog\/#\/schema\/person\/ff22288af1a5455571aff7586b0fb341"},"breadcrumb":{"@id":"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/#breadcrumb"},"inLanguage":"ja","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\u9996\u9875","item":"https:\/\/www.silicloud.com\/ja\/blog\/"},{"@type":"ListItem","position":2,"name":"VBA\u3067\u91cd\u8907\u3059\u308b\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6570\u3092\u6570\u3048\u308b\u65b9\u6cd5"}]},{"@type":"WebSite","@id":"https:\/\/www.silicloud.com\/ja\/blog\/#website","url":"https:\/\/www.silicloud.com\/ja\/blog\/","name":"Blog - Silicon Cloud","description":"","inLanguage":"ja"},{"@type":"Person","@id":"https:\/\/www.silicloud.com\/ja\/blog\/#\/schema\/person\/ff22288af1a5455571aff7586b0fb341","name":"\u685c, \u6625\u6a39","image":{"@type":"ImageObject","inLanguage":"ja","@id":"https:\/\/www.silicloud.com\/ja\/blog\/#\/schema\/person\/image\/","url":"https:\/\/secure.gravatar.com\/avatar\/cee48863f3d4fd7fef222498f3e71b82312aee42b7257a2dbde56394ca4e19de?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/cee48863f3d4fd7fef222498f3e71b82312aee42b7257a2dbde56394ca4e19de?s=96&d=mm&r=g","caption":"\u685c, \u6625\u6a39"},"url":"https:\/\/www.silicloud.com\/ja\/blog\/author\/sakuraharuki\/"},{"@type":"ImageObject","inLanguage":"ja","@id":"https:\/\/www.silicloud.com\/ja\/blog\/vba%e3%81%a7%e9%87%8d%e8%a4%87%e3%81%99%e3%82%8b%e3%82%b3%e3%83%b3%e3%83%86%e3%83%b3%e3%83%84%e3%81%ae%e6%95%b0%e3%82%92%e6%95%b0%e3%81%88%e3%82%8b%e6%96%b9%e6%b3%95\/#local-main-organization-logo","url":"","contentUrl":"","caption":"Blog - Silicon Cloud"}]}},"_links":{"self":[{"href":"https:\/\/www.silicloud.com\/ja\/blog\/wp-json\/wp\/v2\/posts\/89503","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.silicloud.com\/ja\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.silicloud.com\/ja\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.silicloud.com\/ja\/blog\/wp-json\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"https:\/\/www.silicloud.com\/ja\/blog\/wp-json\/wp\/v2\/comments?post=89503"}],"version-history":[{"count":2,"href":"https:\/\/www.silicloud.com\/ja\/blog\/wp-json\/wp\/v2\/posts\/89503\/revisions"}],"predecessor-version":[{"id":319496,"href":"https:\/\/www.silicloud.com\/ja\/blog\/wp-json\/wp\/v2\/posts\/89503\/revisions\/319496"}],"wp:attachment":[{"href":"https:\/\/www.silicloud.com\/ja\/blog\/wp-json\/wp\/v2\/media?parent=89503"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.silicloud.com\/ja\/blog\/wp-json\/wp\/v2\/categories?post=89503"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.silicloud.com\/ja\/blog\/wp-json\/wp\/v2\/tags?post=89503"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}