一、 編寫VBA宏代碼

VBA代碼已寫好，直接粘貼到VBA編輯器并保存，即可使用。也可以下載我寫好的保存了宏代碼的excel文件，直接調(diào)用即可。我的excel文件中也包含了很多重度辦公人士經(jīng)常需要用到的其他函數(shù)，目前的函數(shù)較少，后續(xù)會不斷更新新的宏函數(shù)進去，并會在我的博客中進行功能介紹使用。如有需要可長期關注我。如需要什么其他功能，歡迎私信我，我?guī)湍銓崿F(xiàn)。
文件下載鏈接：https://download.csdn.net/download/u014541881/88027650

1，完整代碼

Function CheckSpecialCharacters(rng As Range, Optional characters As String = "") As String
    Dim cellValue As String
    Dim specialCharacters As String
    Dim i As Integer
    
    cellValue = rng.Value
    specialCharacters = ""
    
    If InStr(cellValue, " ") > 0 Then
        specialCharacters = specialCharacters & "空格"
    End If
    
    If InStr(cellValue, "-") > 0 Then
        specialCharacters = specialCharacters & "-"
    End If
    
    If InStr(cellValue, "_") > 0 Then
        specialCharacters = specialCharacters & "_"
    End If
    
    For i = 65 To 90
        If InStr(cellValue, Chr(i)) > 0 Or InStr(cellValue, Chr(i + 32)) > 0 Then
            specialCharacters = specialCharacters & "字母"
            Exit For
        End If
    Next i
    
    If InStr(cellValue, "0") > 0 Or InStr(cellValue, "1") > 0 Or InStr(cellValue, "2") > 0 Or _
        InStr(cellValue, "3") > 0 Or InStr(cellValue, "4") > 0 Or InStr(cellValue, "5") > 0 Or _
        InStr(cellValue, "6") > 0 Or InStr(cellValue, "7") > 0 Or InStr(cellValue, "8") > 0 Or _
        InStr(cellValue, "9") > 0 Then
        specialCharacters = specialCharacters & "數(shù)字"
    End If
    
    If Len(characters) > 0 Then
        For i = 1 To Len(characters)
            Dim character As String
            character = Mid(characters, i, 1)
            
            If InStr(cellValue, character) > 0 Then
                specialCharacters = specialCharacters & character & " "
            End If
        Next i    
    End If      
    specialCharacters = Trim(specialCharacters)
    CheckSpecialCharacters = specialCharacters
End Function

2，函數(shù)參數(shù)介紹

rng：必填參數(shù)，就是你選中的單元格。默認僅判斷是否包含 空格、下劃線、短劃線、數(shù)字。并返回包含的特殊字符的類型。

characters：可選參數(shù)，表示你要判斷單元格中包含其他特殊字符類型。若不填，則代表僅判斷單元格是否包含 空格、下劃線、短劃線、數(shù)字。若填寫，則代表除了判斷 空格、下劃線、短劃線、數(shù)字外，還判斷單元格是否包含你填寫的特殊字符中的任意一個，如下圖中的，,~!“”?“”。

注意：
（1）若要判斷是否包含 " ，請輸入 " “。
（2）如果僅輸入英文的”,"，則僅識別英文的逗號；如果要判斷對應的中文的逗號，請在specialChars中加入中文的逗號“，“。

效果

二、使用方法–以下任選兩種方式均可

（1）方式一：直接保存需要的宏代碼到VBA宏編輯器使用。按如下步驟操作。

最后，將上面的代碼復制粘貼到這里，點擊保存

現(xiàn)在就可以在你自己的表格中調(diào)用了。點擊隱藏，返回到自己的表格中。這個編輯代碼對話框不要關閉，隱藏即可。

好的，到這里就可以使用了。

（2）方式二：下載包含宏代碼的exce文件使用。文件鏈接在開頭已經(jīng)附上。下載后，打開，即可在其他工作表調(diào)用文件中包含的函數(shù)。

注意，打開這個文件后，如果出現(xiàn)如下的提示，一定要點擊啟用宏，否則在其他工作表無法調(diào)用。未啟用宏的話，請自行網(wǎng)上搜索怎么啟用宏。

文章來源地址http://www.zghlxwxcb.cn/news/detail-541748.html

到了這里，關于如何判斷某列某個單元格是否包含特殊字符（如空格、數(shù)字、下劃線等等），并返回特殊字符的文章就介紹完了。如果您還想了解更多內(nèi)容，請在右上角搜索TOY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關文章，希望大家以后多多支持TOY模板網(wǎng)！