{"categories":[],"author_name":"SALINGER","image_url":null,"version":"1.0","url":"https://salinger.hatenadiary.org/entry/20110330","type":"rich","published":"2011-03-30 00:00:00","height":"190","provider_name":"Hatena Blog","blog_title":"SALINGER\u306e\u65e5\u8a18","blog_url":"https://salinger.hatenadiary.org/","width":"100%","title":"","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsalinger.hatenadiary.org%2Fentry%2F20110330\" title=\" - SALINGER\u306e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/SALINGER/","description":"http://q.hatena.ne.jp/1301453031 \u65e2\u306b\u89e3\u6c7a\u3057\u3066\u3044\u308b\u3088\u3046\u306a\u306e\u3067\u4f5c\u3089\u306a\u3044\u304b\u306a\u3068\u601d\u3063\u3066\u3044\u307e\u3057\u305f\u304c\u3001 \u306a\u3093\u304b\u7121\u7406\u3068\u304b\u8a00\u3063\u3066\u308b\u4eba\u304c\u3044\u305f\u306e\u3067\u3055\u304f\u3055\u304f\u3063\u3068\u4f5c\u3063\u3066\u304a\u304d\u307e\u3059\u3002 A\u5217\u304c\u540c\u3058\u6570\u3067\u4e26\u3093\u3067\u3044\u308b\u3068\u306f\u9650\u3089\u306a\u3044\u306e\u3067\u305d\u308c\u306b\u3082\u5bfe\u5fdc\u3057\u3066\u304a\u304d\u307e\u3057\u305f\u3002 \u6570\u4e07\u884c\u3068\u304b\u306a\u3089\u6570\u5f0f\u306f\u30ca\u30f3\u30bb\u30f3\u30b9\u306a\u3093\u3067\u3001VBA\u306e\u4fa1\u5024\u3082\u3042\u308b\u304b\u3002 Sub Macro() Application.ScreenUpdating = False Dim i As Long Dim j As Long Dim k As Long Dim f As Boolean Dim h() As String Dim lastRow As \u2026"}