{"image_url":null,"categories":["ExcelVBA"],"url":"https://blog.systemjp.net/entry/2018/09/16/221839","published":"2018-09-16 22:18:39","blog_url":"https://blog.systemjp.net/","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","width":"100%","description":"Scripting.Dictionary \u3092\u4f7f\u3044\u307e\u3059\u3002 Sub \u652f\u793e\u5225\u96c6\u8a08() Dim Sheet1, Sheet2 As Worksheet Const COL\u5e97\u8217CD = 1 ' \u5e97\u8217CD\u306e\u5217 Const COL\u5206\u985eCD = 3 ' \u5206\u985eCD\u306e\u5217 Const COL\u58f2\u4e0a\u984d = 10 ' \u58f2\u4e0a\u984d Dim MaxRow As Long ' \u6700\u7d42\u884c Dim key As String ' \u691c\u7d22\u30ad\u30fc Dim c, r As Long Set dicT = CreateObject(\"Scripting.Dictionary\") ' \u9023\u60f3\u914d\u5217\u306e\u5b9a\u7fa9 Set Sheet1 = Worksheets(\"\u2026","author_url":"https://blog.hatena.ne.jp/shikaku/","height":"190","author_name":"shikaku","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2018%2F09%2F16%2F221839\" title=\"ExcelVBA\u3067\u9023\u60f3\u914d\u5217 - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","type":"rich","title":"ExcelVBA\u3067\u9023\u60f3\u914d\u5217","blog_title":"shikaku's blog","version":"1.0"}