|
こんいちは。
下記のようにB列にshohinをタイトルとして
apple,orangeというレコードがあるとします。
いまorangeというレコードを完全に取り去ってappleだけにしたいのですがAutoFilterしか思いつきません。ですがAutoFilterですと、フィルターを解除したときorangeというレコードが再び表出されてしまい、希望どおりではありません。
orangeというレコードを完全に取り去るロジックをどなたかご教示ください。
すみません、不勉強でいまだにvbaというものがわかっていません。。
Sub Macro1()
Range("B1").Select
ActiveCell.FormulaR1C1 = "shohin"
Range("B2").Select
ActiveCell.FormulaR1C1 = "apple"
Range("B3").Select
ActiveCell.FormulaR1C1 = "apple"
Range("B4").Select
ActiveCell.FormulaR1C1 = "orange"
ActiveSheet.Range("B1").AutoFilter Field:=1, Criteria1:="<>orange", _
Operator:=xlAnd
End Sub
|
|