vba 替换所有单元格全部字符

要使用VBA替换所有单元格中的字符，可以使用Excel的Range对象和Replace方法。以下是一个示例代码：

Sub ReplaceCharacters()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要替换的字符和替换后的字符
    Dim oldChar As String
    Dim newChar As String
    
    oldChar = "a" ' 要替换的字符
    newChar = "b" ' 替换后的字符
    
    ' 设置要替换的范围，可以根据需要修改
    Set rng = ActiveSheet.UsedRange
    
    ' 遍历每个单元格，替换字符
    For Each cell In rng
        If cell.HasFormula Then ' 如果单元格包含公式，则跳过
            Continue For
        End If
        
        If InStr(1, cell.Text, oldChar) > 0 Then ' 如果单元格中包含要替换的字符
            cell.Value = Replace(cell.Value, oldChar, newChar) ' 替换字符
        End If
    Next cell
    
    MsgBox "替换完成！"
End Sub

在上述代码中，你可以根据需要修改要替换的字符和替换后的字符。然后，运行这个宏，它将在活动工作表的所有单元格中查找并替换指定的字符。请注意，如果某个单元格包含公式，该代码将跳过该单元格。

在VBA编辑器中打开Excel，然后按下Alt+F11打开VBA编辑器。在VBA编辑器中，将代码复制粘贴到一个新的模块中。然后关闭VBA编辑器，运行宏即可。