判断单元格中的字符串是否包含其他字符

vbaname

求助各位大佬跟VBA高手
，现在单元格中的字符串要求其中只能包括大写字母A-Z,数字0-9,下划线_,空格， 且空格不能放在字符串的头部或尾部。

请问有什么方法可以实现这一功能？具体的公式或者vba代码是怎样的？

hfwufanhf2006

用asc来判断，假设是判断a1单元格：
s = cells(1, 1)    '读取a1
s1 = ""
for i = 1 to len(s)
    s3 = mid(s, 1, 1)    '截取第一位字符
    s2 = asc(s3)          'asc码
    If (s2 >= 65 and s2 <= 90) Or (s2 >= 48 and s2 <= 57) Or (s2 = 32) Or (s2 = 95) then
       s1 = s1 & s3    '有一种更简单的判断方法，我不用记不住，asc判断也不难
    end If
    s = mid(s, 2, 254)
next i
cells(1, 2) = s1     '把转换后的结果写入b2

大灰狼1976

可以使用正则

1. Sub test()
   
2. Dim s$, reg As Object
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. s = " *dacd0956...ssafdafA CDDAD_ "
   
5. s = Trim(s)
   
6. With reg
   
7.   .Global = True
   
8.   .Pattern = "[^0-9A-Z_ ]"
   
9.   MsgBox .Replace(s, "")
   
10. End With
    
11. End Sub

复制代码