{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fakira2kun.hatenablog.com%2Fentry%2F2020%2F06%2F27%2F000000\" title=\"Excel\u30fbVBA\uff1a\u8868\u306e\u30c7\u30fc\u30bf\u306e\u90e8\u5206\u306e\u307f\u9078\u629e\u3059\u308b - \u6280\u8853\u3068\u304b\u6226\u7565\u3068\u304b\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","categories":["Excel"],"author_name":"akira2kun","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/a/akira2kun/20200621/20200621200103.jpg","published":"2020-06-27 00:00:00","width":"100%","version":"1.0","blog_url":"https://akira2kun.hatenablog.com/","title":"Excel\u30fbVBA\uff1a\u8868\u306e\u30c7\u30fc\u30bf\u306e\u90e8\u5206\u306e\u307f\u9078\u629e\u3059\u308b","height":"190","author_url":"https://blog.hatena.ne.jp/akira2kun/","blog_title":"\u6280\u8853\u3068\u304b\u6226\u7565\u3068\u304b","type":"rich","url":"https://akira2kun.hatenablog.com/entry/2020/06/27/000000","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","description":"\u3053\u306e\u3088\u3046\u306b\u3001\u9805\u76ee\u540d\u3068\u30c7\u30fc\u30bf\u306b\u5206\u304b\u308c\u3066\u3044\u308b\u8868\u304c\u5b58\u5728\u3057\u3066\u3044\u308b\u5834\u5408\u306b \u30c7\u30fc\u30bf\u306e\u90e8\u5206\u3060\u3051\u9078\u629e\u3059\u308b\u30de\u30af\u30ed\u306e\u7d39\u4ecb\u3067\u3059\u3002 \u30c7\u30fc\u30bf\u306e\u90e8\u5206\u3060\u3051\u6d88\u3057\u305f\u3044\u3088\u3046\u306a\u5834\u5408\u306b\u4f7f\u3048\u307e\u3059\u3002 \u30de\u30af\u30ed\u306e\u8a18\u8ff0\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3067\u3059\u3002\u8a18\u8ff0\u5185\u5bb9\u306f\uff17\u884c\u306e\u307f\u3067\u3059\u304c\u3001\u5185\u5bb9\u3092\u7406\u89e3\u3059\u308c\u3070\u985e\u4f3c\u51e6\u7406\uff08\u6700\u7d42\u884c\u306b\u30c7\u30fc\u30bf\u3092\u8ffd\u52a0\u3059\u308b\u3001\u7279\u5b9a\u306e\u30c7\u30fc\u30bf\u306e\u500b\u6570\u3092\u6570\u3048\u308b\u3001\u7b49\uff09\u306b\u3082\u6d3b\u304b\u305b\u307e\u3059\u3002 \u3010\u8a18\u8ff0\u5185\u5bb9\u3011Sub \u30dc\u30bf\u30f31_Click() Worksheets(\"Sheet1\").Range(\"A2\").Select Dim i As Integer Do While IsEmpty(ActiveCell.Value) = False i = i + 1 ActiveCell\u2026"}