{"type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkazukiio.hatenablog.com%2Fentry%2F2022%2F03%2F01%2F091207\" title=\"VBA \u30bb\u30eb\u9078\u629e\u7bc4\u56f2\u3092\u53d6\u5f97\u3059\u308b - Kazuki.io\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_url":"https://blog.hatena.ne.jp/kazukisaito/","blog_title":"Kazuki.io","height":"190","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","width":"100%","title":"VBA \u30bb\u30eb\u9078\u629e\u7bc4\u56f2\u3092\u53d6\u5f97\u3059\u308b","blog_url":"https://kazukiio.hatenablog.com/","image_url":null,"author_name":"kazukisaito","url":"https://kazukiio.hatenablog.com/entry/2022/03/01/091207","version":"1.0","published":"2022-03-01 09:12:07","description":"VBA\u3067\u30bb\u30eb\u306e\u9078\u629e\u7bc4\u56f2\u306b\u5bfe\u3059\u308b\u51e6\u7406\u3092\u884c\u3046\u3053\u3068\u304c\u591a\u3005\u3042\u3063\u305f\u306e\u3067\u3001\u30bb\u30eb\u306e\u9078\u629e\u7bc4\u56f2\u304b\u3089\u884c\u756a\u53f7\u3068\u5217\u756a\u53f7\u3092\u53d6\u5f97\u3059\u308b\u30b3\u30fc\u30c9\u3092\u30e1\u30e2\u3057\u3066\u304a\u304f '\u30d5\u30a3\u30eb\u30bf\u5f8c\u306b\u8868\u793a\u3055\u308c\u3066\u3044\u308b\u884c\u3092\u8868\u793a Dim i As Integer, j As Integer, k As Long Dim rang As Range Dim member() As Long '\u5217\u306e\u4f4d\u7f6e\u306fB\u56fa\u5b9a\u306b\u306a\u3063\u3066\u3044\u308b\u306e\u3067\u3001\u3053\u3053\u3092\u5909\u3048\u308b ReDim member(Range(\"B1\", Range(\"B\" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Count) For Each rang\u2026","categories":[]}