|
▼γ さん:
レスありがとうございます。
マクロの記録を使い、
sheet1でオートフィルタを用いてA列が「項目」の行を抽出して
「見出し」シートの2行目を貼り付けしようとしたところ、
Sub midashi_
Sheets("Sheet1").Select
Range("A1:D18").Select ←末行18としていますが実際の行数は変動します。
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="項目"
Sheets("見出し").Select
Rows("1:1").Select
Selection.Copy
Sheets("sheet1").Select
Rows("7:13").Select
ActiveSheet.Paste
End Sub
となって貼り付け行がRows("7:13")で固定されてしまい変動に対応しません。
また、オートフィルタで抽出した行になんとか貼れないものかと試行錯誤しているうちに、
抽出されない行(非表示になっている部分)にまで全部貼り付けてしまったりもしました。
そして、見出しを未処理のままでsheet1を
Workbooks.Add
ActiveSheet.Paste
により別のブックにすることはできたのですが、表でシートを分けることができませんでした・・・
|
|