{"blog_title":"ryskosn log","provider_url":"https://hatena.blog","url":"https://ryskosn.hatenadiary.com/entry/20131001/1380625043","provider_name":"Hatena Blog","version":"1.0","published":"2013-10-01 19:57:23","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryskosn.hatenadiary.com%2Fentry%2F20131001%2F1380625043\" title=\"\u7e70\u308a\u8fd4\u3057\u30b3\u30d4\u30fc - ryskosn log\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"Dim Row As Integer For Row = 57 To 114 If Range(\"AI\" & Row).Value <> \"\" Then Range(\"AI\" & Row).Select Selection.Copy Range(\"E\" & Row).Select ActiveSheet.Paste End If Next Row Sub group8() ' \u30c7\u30fc\u30bf\u6d88\u53bb Dim resultRow, resultMaxRow As Integer Worksheets(\"result\").Select If Range(\"B5\").Value <> \"\" Then resul\u2026","type":"rich","title":"\u7e70\u308a\u8fd4\u3057\u30b3\u30d4\u30fc","author_name":"ryskosn","blog_url":"https://ryskosn.hatenadiary.com/","categories":["Excel","memo"],"image_url":null,"height":"190","author_url":"https://blog.hatena.ne.jp/ryskosn/","width":"100%"}