- 系统环境：Windows 10
- Excel：2016版本
这个系列集锦一些常用的功能模块，在一些项目中会穿插应用
功能模块中又包括很多子模块，本文涉及的是：VBA自带的常用函数
今天讲讲如何判断某个字符串是否含有特定字符 ， 函数InStr
Part 1：应用场景
- 要求：统计某次比赛获奖人数
- 输入：有工作表获奖清单，其中A列为序号 ， B列为姓名，C列为获奖状况，如图1所示
- 逻辑过程：对工作表C列进行循环，如果单元格内容中含有“奖”字，则计数器 1
【「Excel-VBA」功能模块-常用函数-01-字符串是否含有特定字符】图1 示例表
Part 2：代码
Sub test()Rem>>判断是否含有特定字符Rem>>Set shtAward = ThisWorkbook.Worksheets("获奖清单")maxHang = shtAward.Cells(Rows.Count, "C").End(xlUp).RowAwardCount = 0For i = 2 To maxHang Step 1strAward = shtAward.Cells(i, "C")If InStr(strAward, "奖") <> 0 ThenAwardCount = AwardCount1End IfNext iMsgBox "获奖总人数为：" & AwardCountEnd Sub
图2 代码截图