Sub mysub()
Dim rng As Range
For Each rng In UsedRange
If InStr(1, rng.Value, "'", vbTextCompare) <> 0 Or InStr(1, rng.Value, Chr(34), vbTextCompare) <> 0 Then
rng = Application.WorksheetFunction.Substitute(rng.Value, "'", "")
rng = Application.WorksheetFunction.Substitute(rng.Value, Chr(34), "")
End If
Next
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。