VBA 查找字符串中指定字符 如何写VBA代码实现 筛选出 包含 指定字符串 的内容

vba \u4e2d\u5982\u4f55\u67e5\u627e\u4e00\u4e2a\u5b57\u7b26\u4e32\u4e2d\u56fa\u5b9a\u5b57\u7b26\u540e\u9762\u7684\u5b57\u7b26\u4e32

\u4f60\u8981\u7684\u662f\u4e0d\u662f\u6700\u540e\u4e00\u4e2a\u201c-\u201d\u53f7\u540e\u9762\u7684\u5b57\u7b26\u4e32\uff0c\u53ef\u8fd9\u6837\uff1a
Sub \u627e\u5b57\u7b26\u4e32()
Dim S1 As String
Dim I As Integer
For I = 1 To ActiveSheet.UsedRange.Rows.Count
S1 = Cells(I, 1)
If InStr(S1, "-") > 0 Then
h2: S1 = Mid(S1, InStr(S1, "-") + 1)
If InStr(S1, "-") > 0 Then GoTo h2
Cells(I, 2) = S1
End If
Next I
End Sub
\u5df2\u7ecf\u8c03\u8bd5\u901a\u8fc7\uff0c\u80fd\u8fbe\u5230\u4f60\u7684\u8981\u6c42\uff0c\u6709\u95ee\u9898\u8bf7\u8054\u7cfb

Sub a()
For Each c In [a1:a50]
If c Like "*b*" Then
c.Offset(0, 1).Value = "********"
End If
Next
End Sub



\u8c03\u8bd5\u4e00\u4e0b\u5427\uff0c\u795d\u4f60\u6109\u5feb

aaa=instr("c:\vba\book1","book1")
'在"c:\vba\book1"中寻找"book1"，返回"book1"的位置
'所以要找的字符位置为aaa-1
bbb=mid("c:\vba\book1",aaa-1,1)
'bbb就是要找的字符

扩展阅读：查找字符串中字符位置 ... vba vlookup ... python删除指定字符串 ... vba编程获取单元格字符 ... vba字符串查找某个字符 ... vba去掉字符串最后一位 ... 字符串中去掉指定字符 ... vba查找替换 ... c去掉字符串的指定字符 ...