{"author_name":"Infoment","height":"190","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/Infoment/","blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","title":"\u8868\u306e\u7de8\u96c6\u3000\uff11\u884c\uff11\u30ec\u30b3\u30fc\u30c9\u5316","provider_url":"https://hatena.blog","categories":["Excel","VBA","\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u95a2\u6570"],"url":"https://infoment.hatenablog.com/entry/2018/07/02/202312","published":"2018-07-02 20:23:12","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2018%2F07%2F02%2F202312\" title=\"\u8868\u306e\u7de8\u96c6\u3000\uff11\u884c\uff11\u30ec\u30b3\u30fc\u30c9\u5316 - Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e\" 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%","version":"1.0","blog_url":"https://infoment.hatenablog.com/","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20180619/20180619063141.png","description":"\u5b9f\u969b\u306b\u53d7\u3051\u305f\u76f8\u8ac7\u5185\u5bb9\u3092\u3001\u5c11\u3057\u5909\u66f4\u3057\u3066\u7d39\u4ecb\u3057\u307e\u3059\u3002\u6b8b\u696d\u6642\u9593\u3092\u96c6\u8a08\u3057\u305f\u65e2\u5b58\u306e\u8868\u304c\u3042\u308a\u3001\u5217\u65b9\u5411\u306b\u6708\u65e5\u304c\u63a8\u79fb\u3059\u308b\u5f62\u5f0f\u306b\u306a\u3063\u3066 \u3044\u307e\u3057\u305f\u3002\u3053\u306e\u8868\u3092\u300c\uff11\u884c\uff11\u30ec\u30b3\u30fc\u30c9\uff08\u8a18\u9332\uff09\u306b\u3057\u305f\u3044\u300d\u3068\u3044\u3046\u8981\u671b\u304c\u3042\u308a\u3001\u30de\u30af\u30ed\u3067 \u6210\u5f62\u3057\u3066\u307f\u307e\u3057\u305f\u3002\u2193\u6700\u7d42\u5f62\u306f\u3001\u3053\u3093\u306a\u611f\u3058\u3067\u3059\u3002\u5b9f\u969b\u306b\u4f5c\u6210\u3057\u305f\u30de\u30af\u30ed\u304c\u3053\u3061\u3089\u3067\u3059\u3002 Sub Sample() Dim OrgData As Variant ' \u5143\u30c7\u30fc\u30bf\u8cbc\u308a\u4ed8\u3051\u7528 Dim seq As Variant ' \u52a0\u5de5\u6e08\u30c7\u30fc\u30bf\u683c\u7d0d\u7528 Dim i As Long ' \u7e70\u308a\u8fd4\u3057\u4f5c\u696d\u7528\u6574\u6570 Dim r As Long ' \u914d\u5217\u306e\u884c\u756a\u53f7 Dim c As Long ' \u914d\u5217\u306e\u5217\u756a\u53f7 Dim rMax \u2026"}