excel - VBA从CELL中清除字符

Question

VBA 从 CELL 中清除字符，此脚本旨在通过打开的工作簿中的所有工作表并删除特殊字符(因此我可以将 TAB 与 CELL 重命名)但是它只是清理其中的页面脚本运行。

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