No.1ベストアンサー
- 回答日時:
こんにちは
マクロの記録で作成した一例です。コメントを読んで、適当にアレンジして下さい。
Option Explicit
Sub SampleMacro1()
'
' SampleMacro1 Macro
' マクロ記録日 : 2009/3/13
'
'フィルター部分
Selection.AutoFilter Field:=1, Criteria1:="=ほげほげ", Operator:=xlAnd
'可視セルの選択
Selection.SpecialCells(xlCellTypeVisible).Select
'選択範囲のコピー
Selection.Copy
'コピー先のシート&セル選択
Sheets("Sheet2").Select
Range("A1").Select
'ペースト
ActiveSheet.Paste
'コピー元シートに戻りコピー状態解除
Sheets("Sheet1").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub
外してたら、ごめんなさい
この回答への補足
Sub 顧客抽出コピペ()
Sheets("売上帳").Select
Range("B6").AutoFilter Field:=2, Criteria1:=Range("F2").Value
Range("B7:B1000").Select
Selection.Copy
Sheets("個別売上帳").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("売上帳").Select
Range("E7:J1000").Select
Selection.Copy
Sheets("個別売上帳").Select
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
という風に作ってみたのですが、2行目の『Range("B6")』
の部分はどういう意味なのでしょうか?
B6でなくてもB7とかB8とかでも同じように動くのですが?
あと、上記のコードは今のところエラーなどは出ていないのですが、
何か問題が出そうな箇所はあるでしょうか?
ちょっと心配なのは、
『Selection.SpecialCells(xlCellTypeVisible).Select』
というコードを使っていないので、いらないところまで含まれて
コピーされることがあるのでしょうか?
No.4
- 回答日時:
こんにちは
#1です。質問者さんの意図するところとは、やはり外していたようです。
該当範囲を選択した後にマクロ記録で出来たプログラムでした。
>という風に作ってみたのですが、2行目の『Range("B6")』
>の部分はどういう意味なのでしょうか?
>B6でなくてもB7とかB8とかでも同じように動くのですが?
肝心のシートを見ていないので、完全に想像ですが B6 セルは、項目セルなのではないですか?
普通、フィルターをかけるときはデータの上ではなく項目セルに掛けますよね。
従って、B7、B8セルは、データセルだと思いますので、同じように動いているように見えても「対象データが減っている」状態ですから抽出漏れが発生することが考えられます。
>『Selection.SpecialCells(xlCellTypeVisible).Select』
>というコードを使っていないので、いらないところまで含まれて
>コピーされることがあるのでしょうか?
このコードだけでは、そのようにはなりません。例えば、以下のようにしても B1000 までセレクトされていることが分かると思います。
※Selection.Address に選択されたセルアドレスが入っています。
Range("B6").AutoFilter Field:=2, Criteria1:=Range("F2").Value
Range("B7:B1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
MsgBox Selection.Address
下記のようにするとB6セルに隣接しているデータのあるセル全体を選択するので未使用のセルを選択しません。
Range("B6").CurrentRegion.Select
Selection.AutoFilter Field:=2, Criteria1:=Range("F2").Value
Selection.SpecialCells(xlCellTypeVisible).Select
MsgBox Selection.Address
しかし、質問者さんは、部分部分を分けてコピーして合体したいと思ってるようですので、そのままでは使えないですね m(__;m
外していたようで、ごめんなさい。
No.3
- 回答日時:
シート1のセルA2からA10に「あ」から「お」のデータが入っているとします。
(セルA1は見出し)フィルターで「あ」を抽出し、表示されている行をシート2のセルA1へ貼り付けます。
With Worksheets("Sheet1")
With .Range("A1:A10")
.AutoFilter Field:=1, Criteria1:="あ"
.Copy Worksheets("Sheet2").Range("A1")
End With
.AutoFilterMode = False
End With
No.2
- 回答日時:
先ほどの続きですね。
フィルター結果をSheet2のC3から値のみ貼り付ける場合
'------------------------------
Sub 顧客抽出()
Range("B4").AutoFilter Field:=2, Criteria1:=Range("F2").Value
'Sheet2のC3から貼り付け
Range("A4").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet2").Range("C3").PasteSpecial xlValues
'コピーモード解除
Application.CutCopyMode = False
End Sub
'------------------------------------
ただ先の質問も今回の質問もマクロ記録をとってみればそこに解答が。。(^^;;;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
複数指定セルの可視セルのみを別シートに転記するVBAについて
Visual Basic(VBA)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
-
4
VBA オートフィルタで抽出したものを連続貼り付け
その他(Microsoft Office)
-
5
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
6
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
7
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
8
vba の Selection.PasteSpecial で非表示行の扱い
Excel(エクセル)
-
9
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
10
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの複数のセルを一括で...
-
エクセルでセルを10個分くらい...
-
エクセル空白以外の文字を抽出
-
ワードの表のセル 網掛けのコピー
-
EXCEL VBA 複数セルのコピー
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
-
A1セルに入力したら、入力時間...
-
複数の文字列のいずれかが含ま...
-
参照先セルに値が入っていない...
-
Excelで年月日データから下二桁...
-
ある倍数だけを塗りつぶす方法 ...
-
excel:条件付き書式の適用範囲...
-
お肉の下のシートを煮込んでし...
-
リンク元の日付が空白の時リン...
-
IF関数で0より大きい数値が入力...
-
Excelの入力規則で2列表示したい
-
空白でないセルの値を返す方法...
-
excelでSUBTOTAL関数を設定した...
-
Excelでセルに入力されたカラー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの複数のセルを一括で...
-
エクセルでセルを10個分くらい...
-
エクセル空白以外の文字を抽出
-
ワードの表のセル 網掛けのコピー
-
エクセルVBAでフィルタ抽出...
-
複数の離れた選択範囲をコピー...
-
WEB上の文章 ⇒ EXCEL...
-
EXCEL VBA 複数セルのコピー
-
セル内で同じ動作をさせたいです。
-
エクセルがわからない><;
-
オートシェイプ(矢印)の貼り付け
-
ExcelをWordにコピー したとき...
-
<Excel> Ctrl での複数セルの選...
-
波線は無理??
-
Excel セルの値を数値と認識しない
-
excel 複数のセル範囲を指定し...
-
excel セルに打ち込み 違うセル...
-
ExcelのVBA セル内の文字書き換...
-
エクセル もしくは、ワードでき...
-
Excelでセルの内容を画像で貼り...
おすすめ情報