|
自分で以下のように考えてみました。
置換については、マクロのコピーにて確認しています。
実際これで検索してみましたが、うまくいきません・・・。
Sub 名刺情報からの拠点情報検索()
Dim kaisyamei As String
Set kaisyamei = "*" & ActiveCell & "*"
'アクティブセルの値から株式会社の文字をなくす(置換)
ActiveCell.Replace What:="株式会社", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:="株式会社", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
'拠点情報に移動し、株式会社をなくしたワードで検索
Worksheets("拠点情報").Select
ActiveSheet.Range("A10:A1000").AutoFilter Field:=1, Criteria1:=kaisyamei
End Sub
|
|