|
▼たえりか さん:
E1セルにリンゴと入力したら
>F列に上から赤a、赤b、赤d、赤g
>G列に上から1111、2222、4444、7777
>
>と表示されるようにするにはどのようなマクロをくんだらいいでしょうか?
それはフィルターの AdvancedFilter(フィルタオプションの設定とか
詳細設定という日本語のメニューになってます) を使うといいです。
A B C E F G
品名 属性 コード 品名 属性 コード
リンゴ 赤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 B C E F G
品名 属性 コード 品名 属性 コード
リンゴ 赤a 111 リンゴ 赤a 111
リンゴ 赤b 222 赤b 222
みかん 橙c 333 赤d 444
リンゴ 赤d 444 赤g 777
バナナ 黄e 555
みかん 橙f 666
リンゴ 赤g 777
|
|