VBA 清除 CELL 中的字符

Question

VBA 清除 CELL 中的字符，此脚本旨在遍历打开的工作簿中的所有工作表并删除特殊字符（因此我可以使用 CELL[= 重命名 TAB 15=]) 但是它只清理脚本所在的页面运行.

Sub CleanChar() Dim ws As Worksheet Dim myString As String Dim newString As String For Each ws In Worksheets With ws myString = Range("A1").Value newString = Replace(Replace(myString, ":", ""), """", "") Range("A1").Offset().Value = newString End With Next ws End Sub

Answer 1

我认为问题可能是您的 Range 对象前面缺少 .。您声明 With ws 但实际上并未使用 ws，因此您的 Range 对象仅引用一张工作表。

试试这个稍微修改过的代码：

Sub CleanChar()

    Dim ws As Worksheet
    Dim myString As String
    Dim newString As String

    For Each ws In Worksheets
        With ws
            myString = .Range("A1").Value
            newString = Replace(Replace(myString, ":", ""), """", "")
            .Range("A1").Offset().Value = newString
        End With
    Next ws

End Sub

VBA 清除 CELL 中的字符

VBA to clean characters from CELL

excel

vba

replace