|
こんにちは。
どうにか下記のロジックを作って使っています。
Range("A10689").Select
ActiveCell.FormulaR1C1 = "名前1"
Range("A10690").Select
ActiveCell.FormulaR1C1 = "=""トム"""
Range("B10689").Select
ActiveCell.FormulaR1C1 = "名前2"
Range("B10691").Select
ActiveCell.FormulaR1C1 = "=""トム"""
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A10689:B10691"), Unique:=False
End With
質問ですが下記のようにすると、走る事は走るが、
全然フィルターが機能しません。
条件は2つまでなのですか?
Range("A10689").Select
ActiveCell.FormulaR1C1 = "名前1"
Range("A10690").Select
ActiveCell.FormulaR1C1 = "=""トム"""
Range("B10689").Select
ActiveCell.FormulaR1C1 = "名前2"
Range("B10691").Select
ActiveCell.FormulaR1C1 = "=""トム"""
Range("C10689").Select
ActiveCell.FormulaR1C1 = "名前3"
Range("C10692").Select
ActiveCell.FormulaR1C1 = "=""トム"""
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A10689:C10692"), Unique:=False
End With
|
|