質問: excelのセルのコピー マクロ 一つのbookに複数のワークシートが入っています。 それぞれのワークシートのセルのa1からそれぞれのワークシートの a列に値が入っています。 (ワークシートの最終行はそれぞれ違います。) それぞれのワークシートのa1の値を、ワークシート毎に最終行まで コピーしたいのですがどのようなマクロを組めばよいでしょうか? a1の値は、ワークシート毎に異なっています。
回答: >ワークシートの最終行はそれぞれ違います。 違うのは別に全然構いませんが,具体的に「どこを見れば」そのシートの「最終行」が判るのですか? 言い換えると,「a1をどこまでコピーしたらいいのか」どうやって決めたいのですか? たとえば「各シートb列の一番下のデータのある行まで」とか,「どこだか不明だけどとにかく一番下にあるデータの行まで」とか。 作成例: sub macro1() dim s as worksheet for each s in worksheets if s.range("a1")<>"" then s.range("a1:a" & s.cells.specialcells(xlcelltypelastcell).row).filldown end if next end sub