excelＶＢＡについて。データ抽出のコードと解説

2022/12/02 07:20

このQ&Aのポイント

Excel VBAを使用してデータを抽出する方法について説明します。
データ抽出のためのVBAコードの説明と具体的な処理手順を解説します。
Excelのオリジナルデータから指定の条件に合うデータを抽出するためのマクロです。

zasx1097
お礼率8% (33/392)

Excel（エクセル）
回答数3
ありがとう数1

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

SI299792
ベストアンサー率48% (719/1487)

2022/12/06 05:53 回答No.3

以下は全く同じ動作をします。　　Range("B371").Select 　　[B371].Select 私は、短いし解りやすいので後者をよく使っています。好きな方を書けばいいです。（後者は、一般的でない為、テスト等では減点対象になる可能性があります。）

質問者

補足 2022/12/06 12:02

いえ、ですから、コピーした後にどうやってB371を選ぶ事ができるのかを知りたいのです。ちなみにB371は、TRーAではないため、隠れているはずなのですが。教えていただけると嬉しいです。

全文を見る

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

SI299792
ベストアンサー率48% (719/1487)

2022/12/05 06:39 回答No.2

Range("B371")がなくても良いのでしょうか？が質問だったので、あっても無くても抽出結果は同じという回答です。＞B371をどうやって選ぶのでしょうかどう考えても選ぶ必要がないと思うのですが、もし必要があるなら、　　[B371].Select を入れて置けばいいです。

質問者

お礼 2022/12/05 16:29

Rangeが、［］の表記ミスという事でしょうか？教えていただけると嬉しいです。

質問者

補足 2022/12/05 16:26

Rangeと［B371］と何か違うのでしょうか？教えていただけると嬉しいです。

全文を見る

ログインすると、全ての回答が全文表示されます。

SI299792
ベストアンサー率48% (719/1487)

2022/12/03 22:00 回答No.1

マクロの記録で作ったものですね。ごみが残っているし、無駄も多い。 Sub データ抽出() Sheets("オリジナルデータ").Select ' シート選択 Range("A1").Select Selection.AutoFilter ' マクロ記録のごみ ActiveSheet.Range("$A$1:$E$1000").AutoFilter Field:=2, Criteria1:="TR-A" ' オートフィルターでＢ列が"TR-A"を取り出す。 Columns("A:E").Select ' Ａ～Ｅ列を選択 Selection.Copy ' 選択したものをコピー Range("B371").Select ' マクロ記録のごみ Sheets("TR-A").Select ' シートの選択 Range("A1").Select ' A1を選択 ActiveSheet.Paste ' 磔 Sheets("オリジナルデータ").Select ' シート選択 Application.CutCopyMode = False ' コピー解除 Selection.AutoFilter ' シートの選択 Sheets("オリジナルデータ").Select ' マクロ記録のごみ End Sub 手作業で無駄を省けば、これだけになります。 ' Sub Macro1() ' Sheets("オリジナルデータ").Select ActiveSheet.AutoFilterMode = False [A:E].AutoFilter 2, "TR-A" [A1:E21].Copy ['TR-A'!A1] ActiveSheet.AutoFilterMode = False End Sub

質問者

補足 2022/12/04 21:48

すみません。選択したものをコピーしたところで、B371をどうやって選ぶのでしょうか？教えていただけると嬉しいです。

全文を見る

ログインすると、全ての回答が全文表示されます。

関連するQ&A

ExcelVBAについて。
Sub データ抽出() ' ' データ抽出 Macro ' ' Sheets("オリジナルデータ").Select Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$E$1000").AutoFilter Field:=2, Criteria1:="TR-A" Columns("A:E").Select Selection.Copy Range("B371").Select Sheets("TR-A").Select Range("A1").Select ActiveSheet.Paste Sheets("オリジナルデータ").Select Application.CutCopyMode = False Selection.AutoFilter Sheets("オリジナルデータ").Select End Sub コピーした後にTRーAを抽出した後に、どうやってB371を選択するのでしょうか？教えていただけると嬉しいです。もし、マクロの記録で作った場合です。以下のURLをダウンロードしていただけないでしょうか？この章のチャプター5です。 https://www.shuwasystem.co.jp/support/7980html/2606.html
- ベストアンサー
- Excel（エクセル）
ExcelVBAについて。
Sub データ抽出() ' ' データ抽出 Macro ' ' Sheets("オリジナルデータ").Select Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$E$1000").AutoFilter Field:=2, Criteria1:="TR-A" Columns("A:E").Select Selection.Copy Range("B371").Select Sheets("TR-A").Select Range("A1").Select ActiveSheet.Paste Sheets("オリジナルデータ").Select Application.CutCopyMode = False Selection.AutoFilter Sheets("オリジナルデータ").Select End Sub で、Range(″B371″)がなくても良いのでしょうか？後、この後のプログラムを1行ずつ解説して頂けないでしょうか？教えていただけると嬉しいです。もし、マクロの記録で作った場合です。以下のURLをダウンロードしていただけないでしょうか？この章のチャプター5です。 https://www.shuwasystem.co.jp/support/7980html/2606.html
- ベストアンサー
- Excel（エクセル）
ＥＸＣＥＬのＶＢＡを実行したら止まってしまいます。。。
お世話になります。下記のマクロを作ってみたのですが、シート「読込」にコピーされたところまで確認できるのですが、その後マウスが砂時計になって、動かなくなってしまいます。オートフィルタを解除する部分を削って実行してみましたが、同じところで止まりますので、貼付のところに問題があるようなのですが、何がいけないのでしょうか？また、なんかもっとスマートなプログラムになりませんでしょうか？宜しくお願いします。 Sub test() Sheets("Normal").Select Range("A2").Select Selection.AutoFilter Field:=1, Criteria1:=Sheets("読込").Range("B2"), _ Operator:=xlAnd, Criteria2:=Sheets("読込").Range("C2") Selection.SpecialCells(xlVisible).Copy Sheets("読込").Select Range("C3").Select ActiveSheet.Paste Sheets("Normal").Select Application.CutCopyMode = False ActiveSheet.ShowAllData Selection.AutoFilter End Sub
- ベストアンサー
- オフィス系ソフト
エクセルマクロVBAについて
エクセルマクロVBAについて、こんなこと出来ますか？ ■A列からAS列の1行目にヘッダー情報をもつデータベース ■A列に担当者名 ■A列にオートフィルタをかけて各担当ごとにデータを抽出したものを別シートに貼り付けて自動印刷したい ■担当者は都度変わるので、Criteria1:="ｘｘｘ"というようには直接書けない（担当名を自動で抽出したい） ■担当者の数も都度変わる ■補足一行のデータを特定の雛形に転記する必要があるので別シートに出したいですちなみに、アナログで記録したコードは以下です。 Sub test1() Sheets("データ抽出シート").Select ActiveSheet.Range("$A$1:$AS$300").AutoFilter Field:=1, Criteria1:="山田" Range("$A$1:$AS$300").Select Selection.Copy Sheets("抽出データ貼付シート").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("データ抽出シート").Select ActiveSheet.Range("$A$1:$AS$300").AutoFilter Field:=1, Criteria1:="斉藤" Range("$A$1:$AS$300").Select Selection.Copy Sheets("抽出データ貼付シート").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("データ抽出シート").Select ActiveSheet.Range("$A$1:$AS$300").AutoFilter Field:=1, Criteria1:="田中" Range("$A$1:$AS$300").Select Selection.Copy Sheets("抽出データ貼付シート").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SelectedSheets.PrintOut Copies:=1 End Sub これ、担当者の抽出を自動でなんとかなりませんか？
- 締切済み
- オフィス系ソフト
オートフィルタをし選択・貼付をマクロにしたいのですが、対象データ表示される行が毎回違うのでうまくいきません。
いつもお世話になっております。どなたかご教示いただければ助かります。ファイル(1)のデータの中からA行が830となっているものを、ファイル(2)のページ1の一番下の行に付け足し同じようにファイル(1)からA行が1000となっているものを、ファイル(2)のページ2の一番下に付け足すという作業をマクロでしたいのですが、毎回830と1000がセルAの何行目に表示されるのかが異なっており、オートフィルタをかけた状態でマクロにするとマクロ作成時にたまたま表示されていた行数が指定されているので、別の日に違う行数をコピーしてしまい私が作成したマクロではうまくいきません。どう変更すれば宜しいでしょうか？どうぞ宜しくお願い致します。 Workbooks.Open Filename:="mm.xls"　　　　←上記文でファイル(1) Sheets(DM).Select Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<>*850*", Operator:=xlAnd, _ Criteria2:="<>*1000*" Range("A2").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.EntireRow.Delete ActiveSheet.Rows("1:1").Select Selection.AutoFilter Windows("xx.xls").Activate　　←ファイル(2) Sheets("ll").Select　　　←ページ1　 ActiveSheet.Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Activate Windows("mm.xls").Activate Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="1000" Rows("3:3").Select Selection.Copy Windows("xx.xls").Activate ActiveSheet.Paste Application.CutCopyMode = False Windows("xx.xls").Activate Sheets("pp").Select　　←ページ2 ActiveSheet.Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Activate Windows("mm.xls").Activate Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="850" Rows("2:2").Select Selection.Copy Windows("xx.xls").Activate ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save Windows("mm.xls").Activate ActiveWindow.Close End Sub
- ベストアンサー
- オフィス系ソフト
複数のシートにまたがり、フィルタオプションの設定から値を抽出するマクロ
複数のシートにまたがり、フィルタオプションの設定から値を抽出するマクロを組んでおります。表示したくないシート（data,output)を非表示にしたら、エラーが出てしまいました。非表示シートの状態で処理することはできませんでしょうか。 Sub Macro7() Application.ScreenUpdating = False Sheets("data").Select Columns("A:J").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("マップ").Range("E2:N3"), Unique:=False Columns("A:J").Select Selection.Copy Sheets("output").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Sheets("マップ").Select Range("E5").Select ActiveSheet.Paste Range("H4").Select Sheets("data").Select Application.CutCopyMode = False ActiveSheet.ShowAllData Sheets("マップ").Select End Sub
- ベストアンサー
- オフィス系ソフト
Excelでマクロを繰り返したい。
Excelでマクロを記録したら以下のようになりましたこのマクロを以下の条件で繰り返したいのですが。 Sub Macro1() '------------- '----------------------- ' Sheets("Sheet1").Select Selection.AutoFilter Field:=4, Criteria1:="=5*", Operator:=xlAnd, _ Criteria2:="<>5@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("A1").Select Selection.AutoFilter Field:=4, Criteria1:="=6*", Operator:=xlAnd, _ Criteria2:="<>6@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Selection.AutoFilter Field:=4, Criteria1:="=7*", Operator:=xlAnd, _ Criteria2:="<>7@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("A103").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("A1").Select Selection.AutoFilter Field:=4, Criteria1:="=8*", Operator:=xlAnd, _ Criteria2:="<>8@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("B103").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub 条件＝　Field：は4～35位まで変動します一連の動作をコピーして手作業で数字を変えてみたのですがプロージャが大きすぎてエラーになってしまいます。何か良い方法は無いでしょうか？。
- ベストアンサー
- オフィス系ソフト
オートフィルター　VBAでの設定について
オートフィルターで0以外のものに絞って、コピーしたいのですが、値が0しかない場合にすべてのものをコピーするようになってしまうので、コピーすることがないようにさせたいです。例） Sub test() Sheets("Sheet1").Select Selection.AutoFilter ActiveSheet.Range("$A$2:$A$10").AutoFilter Field:=1, Criteria1:="<>0" Range("A2:A10").Select Range(Selection, Selection.End(xldown)).Select Selection.Copy End Sub このようなコードの場合にA2：A10の値が０しかなかった場合にコピーしている状態をなくしたいのですが、どこのコードを変えたらいいでしょうか。回答よろしくお願いいたします。
- 締切済み
- Excel（エクセル）
マクロ　可視セルへコピーする方法
こんにちは。よろしくお願いします。Ａ～Ｖ列、300～400行程度の表を作っています。 8行目をコピーして空白行へペーストしたいのですがどのようにすれば良いでしょうか。マクロの記録でつくったものは ActiveSheet.Paste でエラーになります。またペースト開始行をA17ではなくて可変なものに変えたいです。よろしくお願いします。 Sub 下までコピー() Range("A8:V8").Select Selection.Copy Selection.AutoFilter Field:=2, Criteria1:="=" Range("A17:V" & Range("B5").End(xlDown).Row).Select Selection.SpecialCells(xlCellTypeVisible).Select ActiveSheet.Paste Application.CutCopyMode = False Selection.AutoFilter Field:=2 End Sub
- 締切済み
- オフィス系ソフト
マクロでシート２～６のデータをシート１に転記したい
マクロでシート２～６のデータをシート１に転記したいです。シート２～６のデータをシート１に順番に転記したくてマクロの記録を利用して作成しました。シート２～６は列は同じですが行数は異なります。また行数は作業の都度異なります。同じ記述が繰り返されているのでもう少し記述が短くできるのではと思うのですがどうすればいいでしょうか？ Sub データ更新() 'シート１の前回データをクリア Sheets("シート１").Select Range("A2:Q2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("A2").Select Sheets("シート１").Select Range("A1").Select Sheets("シート２").Select Range("A1").Select 'ヘッダーも合わせて取得 Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("シート１").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.End(xlDown).Select Selection.Offset(1, 0).Select Sheets("シート３").Select Range("A2").Select 'データのみ取得 Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("シート１").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.End(xlDown).Select Selection.Offset(1, 0).Select Sheets("シート４").Select Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("シート１").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.End(xlDown).Select Selection.Offset(1, 0).Select Sheets("シート５").Select Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("シート１").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.End(xlDown).Select Selection.Offset(1, 0).Select Sheets("シート６").Select Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("シート１").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.End(xlDown).Select Selection.Offset(1, 0).Select End Sub
- ベストアンサー
- オフィス系ソフト

excelＶＢＡについて。データ抽出のコードと解説

excelＶＢＡについて。