Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4612 / 76734

←次へ　｜　前へ→


	【77740】Re:特定条件の行に他シートの行を貼り付け＆シート分け保存

さいとう - 15/12/12(土) 22:21 -


	引用なし

	パスワード

▼γ さん：
レスありがとうございます。

マクロの記録を使い、
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
により別のブックにすることはできたのですが、表でシートを分けることができませんでした･･･

2 hits

▼

【77738】特定条件の行に他シートの行を貼り付け＆シート分け保存 さいとう 15/12/12(土) 20:17