代码使用.address不执行代码，虽然它运行没有错误

我不知道什么是从Sub RemoveC丢失

该函数工作正常，因为我可以称它为一个单一的列，但我想运行在整个工作表和address是相当快的

代码运行，但没有任何反应，不知道我需要改变，以便我使用.address作品

谢谢

 Sub RemoveC() Dim ws As Worksheet For Each ws In Worksheets(Array("X", "Y")) With ws.UsedRange.Offset(1, 0) removeChars " & .Address & " End With Next ws End Sub 

function：

 Function removeChars(ByVal strSource As String) As String Dim strResult As String Dim i As Long For i = 1 To Len(strSource) Select Case Asc(Mid(strSource, i, 1)) Case 0, 9, 10, 12, 33, 48 To 57, 126 To 255: Case Else: strResult = strResult & Mid(strSource, i, 1) End Select Next i removeChars = strResult End Function 

Answer 1

为了使函数适用于单元格的内容 ，请将removeChars " & .Address & "更改为.Value = removeChars(.Text)