質問: 複数シートから空白ではない行をすべて抽出 タイトル行a1:d1、データの中身は、a2:d11の全く同じ様式のシートが複数あります。シート名はバラバラです。 全シートの空白ではない行を全て別の集計シートに抽出したいです。 空白行は抽出しません。 これを関数でどのようにつくればよいのでしょうか? 関数で無理ならvbaでお願いします。
回答: 参考に sub test() dim sh as worksheet dim flg as boolean dim lastrow as long for each sh in activeworkbook.worksheets if sh.name = "集計" then flg = true elseif flg = true then lastrow = sheets("集計").cells(rows.count, "a").end(xlup).row + 1 sh.range("a2:d" & sh.cells(rows.count, "d").end(xlup).row).copy _ sheets("集計").cells(lastrow, "a") end if next end sub