用vba写一个自定义函数，提取单元格内所有中文。单元格内输入=extractchinese

Function ExtractChinese(ByVal inputString As String) As String
Dim i As Integer
Dim result As String
Dim chineseChar As String

'' 遍历输入字符串的每个字符
For i = 1 To Len(inputString)
chineseChar = Mid(inputString, i, 1)
'' 检查字符是否是中文字符
If IsChineseChar(chineseChar) Then
'' 如果结果字符串为空，直接添加中文字符
If result = "" Then
result = chineseChar
Else
'' 否则，添加中文字符到结果字符串末尾，并用空格分隔
result = result & chineseChar
''result = result & " " & chineseChar
End If
End If
Next i

'' 返回结果字符串，不包含最后的空格
ExtractChinese = Trim(result)
End Function

'' 辅助函数，用于检查字符是否是中文字符
Function IsChineseChar(ByVal inputChar As String) As Boolean
'' 这里使用了一个简单的正则表达式来检查字符是否是中文字符
Dim regexObj As Object
Set regexObj = CreateObject("VBScript.RegExp")
regexObj.Global = True
regexObj.Pattern = "[\u4e00-\u9fa5]" '' 正则表达式，匹配任意中文字符
IsChineseChar = regexObj.Test(inputChar)
End Function