{"title":"excelVBA\u3067\u9023\u60f3\u914d\u5217 ","author_name":"shikaku","height":"190","published":"2016-10-19 19:25:17","type":"rich","image_url":null,"provider_url":"https://hatena.blog","blog_title":"shikaku's blog","provider_name":"Hatena Blog","url":"https://blog.systemjp.net/entry/2016/10/19/192517","description":"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(\"\u58f2\u4e0a\u660e\u7d30\") ' \u660e\u7d30\u30b7\u30fc\u30c8 Set Sheet2 = \u2026","author_url":"https://blog.hatena.ne.jp/shikaku/","blog_url":"https://blog.systemjp.net/","width":"100%","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2016%2F10%2F19%2F192517\" 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>","categories":["excelvba"]}