Application.CleanString()是Excel VBA中的一个函数，它可以清除字符串中的非打印字符，并将字符串转换为标准的Unicode字符集。

以下是一些示例代码，说明如何使用Application.CleanString()函数：

Sub CleanString() Dim str As String str = "Hello" & Chr(13) & Chr(10) & "World" MsgBox "Original String: " & str str = Application.CleanString(str) MsgBox "Cleaned String: " & str End Sub

在上面的示例代码中，我们首先创建一个包含换行符和回车符的字符串。然后，我们使用Application.CleanString()函数清除字符串中的非打印字符，并将字符串转换为标准的Unicode字符集。最后，我们在消息框中显示原始字符串和清理后的字符串。

请注意，在使用Application.CleanString()函数时，如果原始字符串包含任何不属于Unicode字符集的字符或控制字符，则这些字符将被删除。如果您不想删除这些字符，则应考虑使用其他函数或方法来清理您的字符串。