0

Excel 2007 VBA - 以下の My Match ステートメントでテキストが見つかりません。そこにあり、指定された範囲内にあります。異常なエラーは発生していません。見つからないだけです。セルAZ65の全文はこちら- 「クリカット ショルダーバッグ」に関連したその他の商品

If Not IsError(Application.Match("More items related to*", Range("az1:ba1000"))) Then
removeSomeRows = Application.Match("More items related to*", Range("az1:ba1000"))
Range("az" & removeSomeRows & ":" & "bz1000").ClearContents
End If

ワークシートでは、これも機能していません

=MATCH("More items related to*",AZ1:Ba1000)
4

2 に答える 2

0

ワイルドカード文字 (* または ?) を使用するには、MatchType を 0 にする必要があります。http://office.microsoft.com/en-001/excel-help/match-function-HP010062414.aspx を参照してください。

使用するApplication.Match("More items related to*", Range("AZ1:AZ1000"), 0)

于 2013-07-15T16:30:40.403 に答える
0

または、これを使用することもできます。

Dim rng as Range

For Each rng in ActiveSheet.Range("AZ1:BA1000")
    If InStr(1, "More items related to", rng) <> 0 Then
        rng.ClearContents
    End If
Next
于 2013-07-15T16:33:47.357 に答える