{"provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fharu-s.hatenablog.com%2Fentry%2F20110803%2F1312384106\" title=\"\u533a\u5207\u308a\u6587\u5b57\u6307\u5b9a\u304c\u53ef\u80fd\u306a\u30bb\u30eb\u6587\u5b57\u5217\u9023\u7d50\u95a2\u6570 - ...ing logging 4.0\" 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%","author_name":"haru-s","provider_url":"https://hatena.blog","version":"1.0","published":"2011-08-03 00:08:26","title":"\u533a\u5207\u308a\u6587\u5b57\u6307\u5b9a\u304c\u53ef\u80fd\u306a\u30bb\u30eb\u6587\u5b57\u5217\u9023\u7d50\u95a2\u6570","author_url":"https://blog.hatena.ne.jp/haru-s/","blog_title":"...ing logging 4.0","image_url":null,"blog_url":"https://haru-s.hatenablog.com/","url":"https://haru-s.hatenablog.com/entry/20110803/1312384106","categories":["VBA"],"height":"190","description":"Function join(r As Range, sep As String) As String Dim result As String Dim c As Range For Each c In r If c.Value <> \"\" Then result = result & c.Value & sep End If Next c If Len(result) = 0 Then join = \"\" Else join = Left(result, Len(result) - Len(sep)) End If End Function","type":"rich"}