Excel VBA質問箱 IV

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

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


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

7727 / 76734

←次へ　｜　前へ→


	【74592】Re:ある列で同じデータがあったらその別の列のデータを取り出す

kanabun - 13/8/1(木) 17:29 -


	引用なし

	パスワード

▼たえりかさん： E1セルにリンゴと入力したら >Ｆ列に上から赤a、赤b、赤d、赤g >Ｇ列に上から1111、2222、4444、7777 > >と表示されるようにするにはどのようなマクロをくんだらいいでしょうか？それはフィルターの AdvancedFilter(フィルタオプションの設定とか詳細設定という日本語のメニューになってます) を使うといいです。　Ａ　　　Ｂ　　　Ｃ　　　　　　Ｅ　　　Ｆ　　　Ｇ　品名　　属性　　コード　　　　品名　　属性　　コードリンゴ　　赤a　　111　　　　　リンゴ　　リンゴ　　赤b　　222　　　　　　　　　　みかん　　橙c　　333　　　　　　　　　　リンゴ　　赤d　　444　　　　　　　　　　バナナ　　黄e　　555 みかん　　橙f　　666 リンゴ　　赤g　　777 フィルターですから一行目は列見出しにします。以下、マクロの記録を少し編集したものです。 Sub Macro2() ' 　　Range("E1").FormulaR1C1 = "品名"　 'E列を抽出条件範囲にします　　Range("E2").FormulaR1C1 = "リンゴ" '1行目 [A1]の見出し 2行目抽出品名　　Range("B1:C1").Copy Range("F1")　　'[B1:C1]抽出列見出しを[F1:G1]へコピー　　'フィルターオプション実行　　Range("A1").CurrentRegion.AdvancedFilter _ 　　　　Action:=xlFilterCopy, _ 　　　　CriteriaRange:=Range("E1:E2"), _ 　　　　CopyToRange:=Range("F1:G1") End Sub 　Ａ　　　Ｂ　　　Ｃ　　　　　　Ｅ　　　Ｆ　　　Ｇ　品名　　属性　　コード　　　　品名　　属性　　コードリンゴ　　赤a　　111　　　　　リンゴ　　赤a　　111 リンゴ　　赤b　　222　　　　　　　　　　赤b　　222 みかん　　橙c　　333　　　　　　　　　　赤d　　444 リンゴ　　赤d　　444　　　　　　　　　　赤g　　777 バナナ　　黄e　　555 みかん　　橙f　　666 リンゴ　　赤g　　777