{"width":"100%","type":"rich","blog_url":"https://infoment.hatenablog.com/","published":"2018-12-16 19:16:30","title":"\u914d\u5217\u306e\u90fd\u5ea6\u62e1\u5f35\u306f\u6642\u9593\u304c\u639b\u304b\u308b\u306e\u304b\uff08\u5b9f\u9a13\uff09","categories":["Excel","VBA","\u8a66\u3057\u3066\u307f\u305f"],"image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20181216/20181216185306.png","author_url":"https://blog.hatena.ne.jp/Infoment/","blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","author_name":"Infoment","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2018%2F12%2F16%2F191630\" title=\"\u914d\u5217\u306e\u90fd\u5ea6\u62e1\u5f35\u306f\u6642\u9593\u304c\u639b\u304b\u308b\u306e\u304b\uff08\u5b9f\u9a13\uff09 - 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>","url":"https://infoment.hatenablog.com/entry/2018/12/16/191630","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","description":"\u5148\u65e5\u304b\u3089\u3001\u914d\u5217\u3084\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u4f5c\u6210\u306b\u639b\u304b\u308b\u6642\u9593\u3092\u8272\u3005\u3068\u6e2c\u5b9a\u3057\u3066\u3044\u308b\u3002 infoment.hatenablog.com \u3053\u308c\u3089\u3092\u901a\u3058\u3066\u3001\u3075\u3068\u601d\u3044\u3064\u3044\u305f\u3002\u7dcf\u6570\u304c\u5206\u304b\u3089\u306a\u3044\u3082\u306e\u3092\u914d\u5217\u306b\u683c\u7d0d\u3059\u308b\u969b\u3001Redim\u306b\u3088\u308b\u90fd\u5ea6\u62e1\u5f35\u306f\u3001\u601d\u3063\u305f\u3088\u308a\u6642\u9593\u304c\u639b\u304b\u3063\u3066\u3044\u308b\u306e\u3067\u306f\u306a\u3044\u304b\u3002\u305d\u3053\u3067\u3001\u7c21\u6613\u7684\u306a\u5b9f\u9a13\u3092\u884c\u3063\u3066\u307f\u305f\u3002 \u7dcf\u6570\u304c\u5206\u304b\u3063\u3066\u3044\u308b\u5834\u5408 \u307e\u305a\u6e2c\u5b9a\u57fa\u6e96\u3068\u3057\u3066\u3001\u3053\u3061\u3089\u3092\u7528\u610f\u3057\u305f\u3002 Sub test_1() Dim i As Long Dim seq(1 To 1000000) As Variant For i = 1 To 1000000 seq(i) = i Next End Sub \uff11\uff5e100\u4e07\u306e\u8981\u7d20\u6570\u3092\u6301\u3064\u914d\u5217\u2026","height":"190","version":"1.0"}