|
▼kanabun さん:
記述式のアドバイスありがとうございます。理解はできました。
ですが、記述式でなければできませんでしょうか。
といいますのは、毎日使いたいので、できればボタン一発でRUNするようにしたいです。
Sub Try2()
With Range("AA1")
.CurrentRegion.ClearContents
.Range("A1").Formula = "=B1"
.Range("B1").Formula = "=P1"
.Range("C1").Formula = "=R1"
( .Range("A2").Value = "'<>太郎"and
.Range("B3").Value = "'=トム" ) or
( .Range("A2").Value = "'<>太郎"and
.Range("C4").Value = "'=*トム*")
End With
Range("A1").CurrentRegion.AdvancedFilter _
xlFilterInPlace, _
CriteriaRange:=Range("AA1").CurrentRegion
End Sub
みたいな。
すみません、むちゃくちゃな聞き方とわかって質問しております。
|
|