{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2019%2F02%2F21%2F225850\" title=\"\u30d4\u30dc\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3092\u6307\u5b9a\u3057\u306a\u3044\u3068\u3069\u3046\u306a\u308b\uff1f\uff08\u5931\u6557\u8ac7\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/2019/02/21/225850","title":"\u30d4\u30dc\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3092\u6307\u5b9a\u3057\u306a\u3044\u3068\u3069\u3046\u306a\u308b\uff1f\uff08\u5931\u6557\u8ac7\uff09","author_url":"https://blog.hatena.ne.jp/Infoment/","author_name":"Infoment","categories":["Excel","VBA","\u5931\u6557\u8ac7"],"provider_name":"Hatena Blog","blog_url":"https://infoment.hatenablog.com/","width":"100%","blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","height":"190","image_url":"https://cdn.blog.st-hatena.com/images/theme/og-image-1500.png","provider_url":"https://hatena.blog","published":"2019-02-21 22:58:50","description":"\u5b9a\u671f\u7684\u306b\u3001\u30d4\u30dc\u30c3\u30c8\u30c6\u30fc\u30d6\u30eb\u3092\u30de\u30af\u30ed\u3067\u4f5c\u6210\u3057\u305f\u304f\u306a\u308b\u3053\u3068\u304c\u3042\u308b\u3002\u305d\u3053\u3067\u8a66\u3057\u306b\u30de\u30af\u30ed\u306e\u8a18\u9332\u3067\u4f5c\u3063\u3066\u307f\u3066\u3001\u5c11\u3057\u6574\u7406\u3059\u308b\u3068\u3001\u3053\u306e\u3088\u3046\u306a\u8a18\u8ff0\u306b\u306a\u308b\u3002 Sub Test() Dim Tb As ListObject Set Tb = ActiveSheet.ListObjects(1) Dim Sh As Worksheet Sheets.Add Set Sh = ActiveSheet ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _ SourceData:=Tb, _ Version:=6).CreatePivotTable Tab\u2026","type":"rich","version":"1.0"}