質問: マクロでオートフィルタを使い、抽出した表の特定の列に一定のデータを入れたい マクロを使い、オートフィルタをし、a列の人名でデータを抽出しました。 この抽出した表のb列全てに、「本社」という文字列を入れる為には、どうすれば良いでしょうか? 皆様の知恵をお貸し下さい。 よろしくお願い致します。
回答: #2です。 > with activesheet > .range("b2", .range("a1").end(xldown).offset(0, 1)) > の部分をヘルプを見ても分からなかったので、 .range("a1").end(xldown).offset(0, 1) は a1を選択して ctrl+↓ キーを押した時に選択されるセルの一つ右のセルを意味します。 つまりオートフィルタによって抽出されたa列最終行を探して、その一つ右であるb列を見つけています。 仮に抽出最終行が10行目の場合、a10の一つ右 = b10 これを "b2" と組み合わせる事で range("b2","b10") のような意味になります。 アクティブシート.レンジ("b2","b10").可視セル に "本社" を代入です。