Excel VBA質問箱 IV

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

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


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

4658 / 76782

←次へ　｜　前へ→


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

γ - 15/12/13(日) 8:54 -


	引用なし

	パスワード

これから出掛けてしまうので、時間がとれませんがコメント追加しておきます。オートフィルタだけを使って操作するには以下のようにします。「項目」をキーワードにしてオートフィルタを掛けた段階で A列の可視セルを変数にセットしておきます。・オートフィルタを解除します。・For each で以下の操作を繰り返します。・その行に見出しをコピーペイストします。・そのセルのCurrentRegionをとれば、そのブロックだけが選択できます。　それをシートにコピーペイストしてください。・シート名にすべき文字列は、そのセルのOffset(-1)に入っていますから、　シー名を修正します。こんな方針でいかがでしょうか。