|
▼kanabun さん:
まことに有難うございます。
投稿の便宜上、抽出条件を3つともトムにしましたが「<>トム」「=トム」「=*トム*」です。すみません。
そこで下記のように記述し実行すると、走るには走りましたが意図どおりにいきませんでした。
書き方がおかしいでしょうか。
With Range("AA1")
.CurrentRegion.ClearContents
.Range("A1").Formula = "=B1"
.Range("B1").Formula = "=P1"
.Range("C1").Formula = "=R1"
.Range("A2").Value = "'<>トム" 'ダブルクォートを使わない
.Range("B3").Value = "'=トム" 'ダブルクォートを使わない
.Range("C4").Value = "'=*トム*" 'ダブルクォートを使わない
End With
Range("A1").CurrentRegion.AdvancedFilter _
xlFilterInPlace, _
CriteriaRange:=Range("AA1").CurrentRegion
|
|