{"url":"https://infoment.hatenablog.com/entry/2021/09/21/233955","version":"1.0","height":"190","author_name":"Infoment","blog_url":"https://infoment.hatenablog.com/","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2021%2F09%2F21%2F233955\" title=\"\u30c6\u30fc\u30d6\u30eb\u306e\u5217\u3092\u6307\u5b9a\u3057\u3066\u914d\u5217\u3092\u4f5c\u6210\u3059\u308b\u3068\u304d\u3001\u30c6\u30fc\u30d6\u30eb\u306e\u884c\u6570\u306b\u3088\u3063\u3066\u7d50\u679c\u304c\u5909\u308f\u308b\u8a71\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>","description":"\u4f8b\u3048\u3070\u3001\u3053\u3093\u306a\u30c6\u30fc\u30d6\u30eb\u306b\u3064\u3044\u3066\u306e\u304a\u8a71\u3002 \u3053\u306e\u30c6\u30fc\u30d6\u30eb\uff08\u884c\u6570\u53ef\u5909\uff09\u3067\u3001\u3053\u3093\u306a\u51e6\u7406\u3092\u884c\u3063\u305f\u3068\u3059\u308b\u3002 Sub Test() ' \u540d\u524d\u5217\u306e\u5024\u3092\u914d\u5217\u306b\u683c\u7d0d\u3002 Dim arr As Variant arr = ActiveSheet.ListObjects(1).ListColumns(\"\u540d\u524d\").DataBodyRange ' \u4e00\u3064\u305a\u3064\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u306b\u8868\u793a\u3002 Dim i As Long For i = 1 To UBound(arr) Debug.Print arr(i, 1) Next End Sub \u3053\u306e\u3088\u3046\u306a\u7d50\u679c\u3092\u5f97\u308b\u3002 \u30c6\u30b9\u30c8\u6bb5\u968e\u3067\u554f\u984c\u306a\u304f\u52d5\u3044\u305f\u305f\u3081\u3001\u672c\u756a\u7a3c\u50cd\u958b\u59cb\u3002\u3059\u308b\u3068\u7a0b\u306a\u304f\u3057\u3066\u3001 \u30a8\u30e9\u30fc\u304c\u767a\u2026","blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","width":"100%","title":"\u30c6\u30fc\u30d6\u30eb\u306e\u5217\u3092\u6307\u5b9a\u3057\u3066\u914d\u5217\u3092\u4f5c\u6210\u3059\u308b\u3068\u304d\u3001\u30c6\u30fc\u30d6\u30eb\u306e\u884c\u6570\u306b\u3088\u3063\u3066\u7d50\u679c\u304c\u5909\u308f\u308b\u8a71\uff08\u5931\u6557\u8ac7\uff09","author_url":"https://blog.hatena.ne.jp/Infoment/","image_url":"https://cdn.blog.st-hatena.com/images/theme/og-image-1500.png","published":"2021-09-21 23:39:55","categories":["Excel","VBA","\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd","\u5931\u6557\u8ac7"]}