Excel vba删除“” （问号）和“”（星号）

excel

使用excel VBA删除“？”和“*”字符

在excel中，我们经常需要处理大量的数据，而有时这些数据中可能含有一些特殊字符，例如问号（？）和星号（*）。这些特殊字符可能会干扰我们对数据的分析和处理。幸运的是，我们可以利用excel VBA编程来快速删除这些特殊字符，从而使数据更加干净和可靠。

下面我们将演示如何使用excel VBA删除字符串中的问号和星号字符。首先，我们需要打开excel并按下“ALT + F11”快捷键来打开VBA编辑器。在VBA编辑器中，我们需要插入一个新的模块，然后在该模块中编写我们的代码。

下面是一个示例代码，它可以删除字符串中的问号和星号字符：

Sub 删除特殊字符()
    Dim 原始字符串 As String
    Dim 清理后字符串 As String
    Dim 特殊字符 As Variant
    Dim 特殊字符长度 As Integer
    Dim i As Integer
    
    原始字符串 = Range("A1").Value '将需要处理的字符串放在单元格A1中
    
    特殊字符 = Array("?", "*") '定义需要删除的特殊字符
    
    特殊字符长度 = UBound(特殊字符) + 1
    
    清理后字符串 = 原始字符串
    
    For i = 0 To 特殊字符长度 - 1
        清理后字符串 = Replace(清理后字符串, 特殊字符(i), "")
    Next i
    
    Range("B1").Value = 清理后字符串 '将清理后的字符串放在单元格B1中
End Sub

在上面的代码中，我们首先定义了一个变量“原始字符串”，它表示需要处理的字符串。然后，我们定义了一个变量“清理后字符串”，它表示经过处理后的字符串。接下来，我们使用一个数组“特殊字符”来定义需要删除的特殊字符，其中包括问号和星号。然后，我们使用一个循环来逐个删除特殊字符，最后将处理后的字符串放在单元格B1中。

将上述代码复制到VBA编辑器中，并保存。然后返回excel界面，选中需要处理的字符串所在的单元格，例如A1单元格，然后按下“ALT + F8”快捷键来打开宏对话框。在对话框中，选择“删除特殊字符”宏并点击运行。你将会看到处理后的字符串出现在B1单元格中。

案例代码：

Sub 删除特殊字符()
    Dim 原始字符串 As String
    Dim 清理后字符串 As String
    Dim 特殊字符 As Variant
    Dim 特殊字符长度 As Integer
    Dim i As Integer
    
    原始字符串 = Range("A1").Value '将需要处理的字符串放在单元格A1中
    
    特殊字符 = Array("?", "*") '定义需要删除的特殊字符
    
    特殊字符长度 = UBound(特殊字符) + 1
    
    清理后字符串 = 原始字符串
    
    For i = 0 To 特殊字符长度 - 1
        清理后字符串 = Replace(清理后字符串, 特殊字符(i), "")
    Next i
    
    Range("B1").Value = 清理后字符串 '将清理后的字符串放在单元格B1中
End Sub

通过上述代码，我们可以轻松删除字符串中的问号和星号字符。这对于我们处理大量数据时的数据清洗和准备工作非常有用。无论是删除特殊字符还是其他数据处理任务，excel VBA都可以帮助我们快速自动化完成，提高工作效率。