Excel 2010 VBA 入门 047 判断某文本中是否包含指定字符（Instr）

示例

    如图所示，该表为某公司采购清单。由于在记录时并未标记供应商来源地，只能通过E列供应商名称中寻找。现需要筛选出所有上海的供应商采购记录，该如何用VBA实现？

实现代码

Option Explicit

Sub 筛选包含某字符的记录()
    Dim rown As Long
    '显示所有记录
    Cells.Rows.Hidden = False
    For rown = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If InStr(1, Cells(rown, "E").Value, "上海") = 0 Then
            '不含“上海”则隐藏
            Rows(rown).Hidden
        End If
    Next
End Sub

Instr函数

    判断某个文本（字符串）中是否包含某字符时，除了可以使用Like运算符(或者工作表函数Find外，在VBA中还提供了另一个函数Instr。当文本中包含某个字符时，Instr返回该字符所在位置的序号，若不包含，则返回0。Instr函数的语法为

InStr([start,] stringl,string2 [,compare ]）

•     参数start表示查找的起始位置，该参数可以省略，然而当指定了compare参数时，该参数必填。
•     参数string1表示被搜索的文本（字符串），即在哪里查找。
•     参数string2表示需要查找的字符。
•     参数compare为字符串的比较方式，当该参数省略时，则比较方式为Option Compare语句所指定的比较方式。该参数可以为表中的任意常量。

compare参数

InstrRev函数

    Instr函数是以从左至右的方向在接受搜索的文本（字符串）中查找是否包含某字符，VBA还提供了一个类似的函数InstrRev。该函数以从右至左的方向进行搜索，其语法为

InstrRev(stringl,string2 [,start [,compare]）

• 参数stringl表示接受搜索的文本（字符串），即在哪里查找。
• 参数string2表示需要查找的字符。
• 参数start表示接受查找的文本从string1开始至第几位，若省略或者设置为-1，则表示查找整个string1。如以下表达式中，设置了start参数为4，由于string1的前四位为"1234”，在该文本（字符串）内找不到5，因而返回0。

InstrRev("12345","5",4)

•  参数compare为字符串的比较方式，当该参数省略时，则比较方式为Option Compare语句所指定的比较方式。