{"url":"https://infoment.hatenablog.com/entry/2020/08/30/142621","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2020%2F08%2F30%2F142621\" title=\"Index\u95a2\u6570\u3082\u4f5c\u308b\u3053\u3068\u306b\u3057\u305f - 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>","height":"190","type":"rich","categories":["Excel","VBA","\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u95a2\u6570","\u4f5c\u3063\u3066\u307f\u305f"],"title":"Index\u95a2\u6570\u3082\u4f5c\u308b\u3053\u3068\u306b\u3057\u305f","blog_url":"https://infoment.hatenablog.com/","provider_url":"https://hatena.blog","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20200830/20200830141551.png","provider_name":"Hatena Blog","description":"\u6628\u65e5\u306f\u3001Transpose\u95a2\u6570\u3092\u4f5c\u3063\u3066\u307f\u305f\u3002 infoment.hatenablog.com\u3064\u3044\u3067\u306b\u3001Index\u95a2\u6570\u3082\u4f5c\u3063\u3066\u307f\u305f\u3002 Transpose\u95a2\u6570\u3068\u540c\u69d8\u306e\u30c6\u30b9\u30c8\u3092\u884c\u3044\u3001Index\u95a2\u6570\u3067\u914d\u5217\u3092\u30b9\u30e9\u30a4\u30b9\u3059\u308b\u969b\u306e\u9650\u754c\u306b\u6311\u6226\u3057\u3066\u307f\u305f\u3002 Sub Test() Dim arr(1, 1) As Variant Dim i As Long Dim temp As Variant On Error Resume Next Do i = i + 1 arr(0, 0) = WorksheetFunction.Rept(\"\u3042\", i) temp = WorksheetFunction.index(arr,\u2026","author_url":"https://blog.hatena.ne.jp/Infoment/","version":"1.0","published":"2020-08-30 14:26:21","author_name":"Infoment","blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e"}