求 EXCEL vb 代码，判定单元格中是否包含某字符串！ Excel VBA中如何判断变量是否包含特定字符串？
EXCEL VBA\u600e\u4e48\u5224\u65ad\u5355\u5143\u683c\u662f\u5426\u5305\u542b\u67d0\u5b57\u7b26?\u521b\u5efa\u4e00\u5f20\u7a7a\u767d\u7684\u8868\u683c\u3002
\u5728\u201ca1\u201d\u5355\u5143\u683c\u8f93\u5165\u201c\u4f60\u597d\u670b\u53cb\u201d\u3002
\u63a5\u7740\u6211\u4eec\u9009\u62e9\u201cB1\u201d\u5355\u5143\u683c\u3002
\u8f93\u5165\u67e5\u627e\u51fd\u6570\u201c=FIND("\u670b\u53cb",a1)\u201d\uff0c\u67e5\u627ea1\u4e2d\u201c\u670b\u53cb\u201d\u8fd9\u4e2a\u5b57\u7b26\u6240\u5728\u4f4d\u7f6e\u3002
\u56de\u8f66\u540e\u6211\u4eec\u53d1\u73b0\u201cB1\u201d\u7684\u503c\u662f\u201c3\u201d\uff0c\u201c\u670b\u53cb\u201d\u8fd9\u4e2a\u5728a1\u4e2d\u7684\u7b2c\u4e09\u4e2a\u5b57\u7b26\u4f4d\u7f6e\uff0c\u8bc1\u660ea1\u5305\u542b\u670b\u53cb\u8fd9\u4e2a\u5b57\u7b26\u3002
\u628a\u51fd\u6570\u6539\u4e3a\u201c=FIND("\u54c8\u54c8",a1)\u201d\uff0c\u67e5\u627e\u201c\u54c8\u54c8\u201d\u5728a1\u4e2d\u7684\u4f4d\u7f6e\u3002
\u56de\u8f66\u540e\u6211\u4eec\u53d1\u73b0\u503c\u662f\u201c#VALUE!\u201d\u6240\u4ee5\u4e0d\u5b58\u5728\u201c\u54c8\u54c8\u201d\u8fd9\u4e2a\u5b57\u7b26\u3002
\u5355\u5143\u683c\u662f\u8868\u683c\u4e2d\u884c\u4e0e\u5217\u7684\u4ea4\u53c9\u90e8\u5206\uff0c\u5b83\u662f\u7ec4\u6210\u8868\u683c\u7684\u6700\u5c0f\u5355\u4f4d\uff0c\u53ef\u62c6\u5206\u6216\u8005\u5408\u5e76\u3002
\u5355\u4e2a\u6570\u636e\u7684\u8f93\u5165\u548c\u4fee\u6539\u90fd\u662f\u5728\u5355\u5143\u683c\u4e2d\u8fdb\u884c\u7684\uff0c\u5355\u5143\u683c\u5c5e\u4e8eMicrosoft Excel /WPS\u8868\u683c\u4e2d\u4f7f\u7528\u7684\u672f\u8bed\u3002
\u5355\u5143\u683c\u6309\u6240\u5728\u7684\u884c\u5217\u4f4d\u7f6e\u6765\u547d\u540d\uff0c\u5b83\u6709A1\u5f15\u7528\u6837\u5f0f\u3001R1C1\u5f15\u7528\u6837\u5f0f\u548c\u4e09\u7ef4\u5f15\u7528\u6837\u5f0f\u4e09\u79cd\u5f15\u7528\u6837\u5f0f\u3002
\u5355\u5143\u683c\u6309\u6240\u5728\u7684\u884c\u5217\u4f4d\u7f6e\u6765\u547d\u540d\uff0c\u4f8b\u5982\uff1a\u5730\u5740\u201cB5\u201d\u6307\u7684\u662f\u201cB\u201d\u5217\u4e0e\u7b2c5\u884c\u4ea4\u53c9\u4f4d\u7f6e\u4e0a\u7684\u5355\u5143\u683c\u3002
\u53ef\u4ee5\u5229\u7528OFFICE\u8f6f\u4ef6\u7684EXCEL\u6765\u7f16\u8f91\u6216\u8005\u662fGOOGLE\u7684\u6211\u7684\u6587\u6863\u6765\u521b\u5efa\u6216\u7f16\u8f91\u3002
Excel VBA\u4e2d\u5224\u65ad\u53d8\u91cf\u5305\u542b\u7279\u5b9a\u5b57\u7b26\u4e32\uff0c\u4e00\u822c\u7528vba like\u51fd\u6570\u8fdb\u884c\u5224\u65ad\u3002
Like\u8fd0\u7b97\u7b26\u662f\u5b57\u7b26\u4e32\u6bd4\u8f83\u65f6\u7ecf\u5e38\u4f7f\u7528\u7684\u8fd0\u7b97\u7b26\uff0c\u4e5f\u662fVBA\u8f83\u96be\u638c\u63e1\u7684\u8fd0\u7b97\u7b26\u3002
\u8bed\u6cd5\uff1a
\u7ed3\u679c = \u5b57\u7b26\u4e32 Like \u6a21\u5f0f
\u5982\u679c\u5b57\u7b26\u4e32\u4e0e\u6a21\u5f0f\u5339\u914d\uff0c\u7ed3\u679c\u4e3aTrue\uff0c\u5426\u5219\u4e3aFalse\u3002\u4f46\u662f\u5982\u679cLike\u4e24\u7aef\u7684\u5b57\u7b26\u4e32\u548c\u6a21\u5f0f\u6709\u4e00\u4e2a\u4e3aNull\uff0c\u5219\u7ed3\u679c\u4e3aNull\u3002
VBA\u5185\u5efa\u7684\u6a21\u5f0f\u5339\u914d\u529f\u80fd\u63d0\u4f9b\u4e86\u4e30\u5bcc\u7684\u5b57\u7b26\u4e32\u6bd4\u8f83\u65b9\u5f0f\uff0c\u5728\u6a21\u5f0f\u8868\u8fbe\u5f0f\u4e2d\u53ef\u4ee5\u4f7f\u7528\u901a\u914d\u7b26\u3001\u5b57\u7b26\u5217\u8868\uff08\u6216\u5b57\u7b26\u533a\u95f4\uff09\u7684\u4efb\u4f55\u7ec4\u5408\u6765\u5339\u914d\u5b57\u7b26\u4e32\u3002
\u6a21\u5f0f\u4e2d\u7684\u5b57\u7b26 \u4e0e\u6a21\u5f0f\u5339\u914d\u7684\u5b57\u7b26\u4e32\u4e2d\u7684\u5b57\u7b26
? \u4efb\u4f55\u5355\u4e00\u5b57\u7b26
* \u96f6\u4e2a\u6216\u591a\u4e2a\u5b57\u7b26
# \u4efb\u4f55\u4e00\u4e2a\u6570\u5b57\uff080-9\uff09
[\u5b57\u7b26\u5217\u8868] \u5b57\u7b26\u5217\u8868\u4e2d\u7684\u4efb\u4f55\u4e00\u4e2a\u5b57\u7b26
[!\u5b57\u7b26\u5217\u8868] \u4e0d\u5728\u5b57\u7b26\u5217\u8868\u4e2d\u7684\u4efb\u4f55\u4e00\u4e2a\u5b57\u7b26
\u5176\u5b83\u5b57\u7b26(\u4e32) \u4e0e\u81ea\u8eab\u5339\u914d
1\u3001Like\u5728\u5b57\u7b26\u4e32\u6bd4\u8f83\u65f6\u53d7Option Compare\u8bed\u53e5\u7684\u5f71\u54cd\uff0c\u5728\u9ed8\u8ba4\u60c5\u51b5\u4e0b\uff08Option Compare Binary\uff09\uff0c\u5b57\u7b26\u6bd4\u8f83\u6839\u636e\u5185\u90e8\u4e8c\u8fdb\u5236\u8868\u793a\u6cd5\uff08ASCII\u7801\uff09\u8fdb\u884c\uff0c\u662f\u533a\u5206\u5927\u5c0f\u5199\u7684\uff0c\u6b64\u65f6 "A" Like "a" \u7684\u7ed3\u679c\u4e3aFalse\u3002\u5982\u679c\u58f0\u660e\u4e86Option Compare Text\uff0c\u5219\u4e0d\u533a\u5206\u5927\u5c0f\u5199\u6bd4\u8f83\uff0c"A" Like "a" \u7684\u7ed3\u679c\u4e3aTrue\u3002\u540e\u9762\u7684\u8ba8\u8bba\u5047\u8bbe\u9ed8\u8ba4\u60c5\u51b5\u4e0b\u3002
2.\u5982\u679c\u6a21\u5f0f\u4e2d\u6ca1\u6709\u4f7f\u7528\u901a\u914d\u7b26\uff08?\u3001*\u3001#\uff09\u548c\u5b57\u7b26\u5217\u8868\uff0c\u6b64\u65f6Like\u8fd0\u7b97\u7b26\u7b49\u4ef7\u4e8e=\uff08\u7b49\u53f7\uff09\u8fd0\u7b97\u7b26\u3002\u4e0b\u9762\u8868\u8fbe\u5f0f\u7684\u7ed3\u679c\u76f8\u540c\u3002s Like "AB"s = "AB"
3.\u5b57\u7b26\u5217\u8868
\u7406\u89e3\u5b57\u7b26\u5217\u8868\u7684\u7528\u6cd5\u662f\u5b66\u4f1aLike\u7684\u96be\u70b9\uff0c\u6240\u4ee5\uff0c\u4e0b\u9762\u6211\u4f1a\u591a\u82b1\u4e9b\u7b14\u58a8\u5e2e\u4f60\u7406\u89e3\u5b83\u3002
(1)\u4e00\u4e2a\u5b57\u7b26\u5217\u8868\u5339\u914d\u7684\u662f\u5b57\u7b26\u4e32\u4e2d\u7684\u4e00\u4e2a\u5b57\u7b26\uff0c\u4e0d\u7ba1\u5b57\u7b26\u5217\u8868\u4e2d\u5b9e\u9645\u6709\u591a\u5c11\u4e2a\u5b57\u7b26\u3002
"A" Like [ABCDEGHIJ2345] \u7ed3\u679c\u4e3aTrue
"AB" Like [ABCDEGHIJ2345] \u7ed3\u679c\u4e3aFalse
\u552f\u4e00\u7684\u4f8b\u5916\u662f[]\u88ab\u770b\u4f5c\u957f\u5ea6\u4e3a\u96f6\u7684\u5b57\u7b26\u4e32\u3002
(2)\u5b57\u7b26\u5217\u8868\u4e2d\u7684\u5355\u4e2a\u5b57\u7b26\uff0c\u6ca1\u6709\u987a\u5e8f\u8981\u6c42\uff0c\u4e0a\u9762[ABCDEGHIJ2345]\u548c[ACDEGHIJ2345B]
[3ABCDEGHIJ245]...\u7b49\u7b49\u662f\u4e00\u6837\u7684\u8868\u8fbe\u3002
(3)\u5b57\u7b26\u5217\u8868\u4e2d\u4e00\u6bb5\u8fde\u7eed\u7684\u5b57\u7b26\uff08\u79f0\u4e3a\u533a\u95f4\uff0c\u4e00\u4e2a\u5b57\u7b26\u5217\u8868\u53ef\u4ee5\u6709\u591a\u4e2a\u533a\u95f4\uff0c\u5e7f\u4e49\u4e0a\uff0c\u5355\u4e2a\u5b57\u7b26\u4e5f\u53ef\u88ab\u770b\u4f5c\u4e00\u4e2a\u533a\u95f4\uff09\uff0c\u53ef\u4ee5\u4f7f\u7528\u8fde\u5b57\u7b26\uff08-\uff0c\u51cf\u53f7\uff09\u7b80\u5316\u8868\u8fbe\u5f0f\uff0c\u5982\u4e0a\u9762\u7684\u8868\u8fbe\u5f0f[ABCDEGHIJ2345]\u53ef\u4ee5\u7b80\u5316\u4e3a[A-EG-J2-5]\uff0c\u8fde\u5b57\u7b26\u8981\u9075\u5faa\u4ece\u5c0f\u5230\u5927\u7684\u987a\u5e8f\uff08\u5347\u5e8f\uff09\uff0c\u5373\u8fde\u5b57\u7b26(-)\u53f3\u7aef\u7684\u5b57\u7b26\u5e94\u5927\u4e8e\u5de6\u7aef\u7684\u5b57\u7b26\uff0c\u5982\u5176\u4e2d\u7684A-E\u4e0d\u80fd\u5199\u6210E-A\uff0c\u540e\u8005\u7cfb\u7edf\u4f1a\u62a5\u9519\u3002\u4f46\u591a\u4e2a\u533a\u95f4\u4e4b\u95f4\u6ca1\u6709\u987a\u5e8f\u8981\u6c42\uff0c\u8fd9\u610f\u5473\u7740[G-J2-5A-E]\u3001[2-5G-JA-E]...\u7b49\u662f\u540c\u4e00\u8868\u8fbe\u3002
Sub fine()
Dim A As String
Dim B As String
A = "金典嘉园"
B = "玫瑰花园"
For h = 1 To Cells(Rows.Count, 1).End(3).Row
If InStr(1, Cells(h, 1), A) Then
Cells(h, 2) = A
Else
If InStr(1, Cells(h, 1), B) Then Cells(h, 2) = B
End If
Next
End Sub
用IFF和INSTR判断就是
用公式就可以达到目的啊..VBA的话一般用instr来判断.
扩展阅读：安卓到ios一键转移 ... excel vba经典代码大全 ... win7一招清理c盘爆红 ... 手机设置##21#关机状态 ... win+r清理垃圾代码 ... 苹果手机##测试代码 ... m任务生成器 ... excel vba录入代码大全 ... excel vba switch case ...
