从列中清除选定的字符

这个macros应该清理一些特殊字符。 当我运行它抹去了一切。 我开始testing这只有一列“B”。 请你帮忙弄清楚错误在哪里？ 我已经发布了一个关于正则expression式的类似问题，因此这可能是我试图实现的程序方法，即将数据标准化为将所有这些导出到SQL数据库。 请注意，这个macros大部分清理了用户input的数据。

再次感谢您的意见/答复/build议。

Sub CaracteresEspeciales() 'Esta macro es una version extendida que toma caracteres predefinidos de una lista MsgBox "Esta macro encuentra caracteres especiales más usados, se tomará unos breves instantes" Worksheets("Candidatos").Activate Application.ScreenUpdating = False Dim asterisco As String Dim coma As String Dim punto As String Dim dospuntos As String Dim puntoycoma As String Dim slash As String Dim backslash As String Dim chevron As String Dim apostrofe As String Dim leftparenthesis As String Dim righparenthesis As String Dim porcentaje As String Dim ampersand As String Dim dollarsign As String Dim leftquestionmark As String Dim rightquestionmark As String Dim leftexclamationmark As String Dim rightexclamationmark As String Dim backtilde As String Dim tilde As String Dim arroba As String Dim espacio As String asterisco = "*" coma = "," punto = "." dospuntos = ":" puntoycoma = ";" slash = "/" backslash = "\" chevron = "`" apostrofe = "'" leftparenthesis = "(" rightparenthesis = ")" porcentaje = "%" ampersand = "&" dollarsign = "$" leftquestionmark = "¿" rightquestionmark = "?" leftexclamationmark = "¡" rightexclamationmark = "!" backtilde = "`" tilde = "´" arroba = "@" espacio = " " Worksheets("Candidatos").Activate Columns("B:B").Replace What:=coma, replacement:=espacio Columns("B:B").Replace What:=punto, replacement:=espacio Columns("B:B").Replace What:=dospuntos, replacement:=espacio Columns("B:B").Replace What:=puntoycoma, replacement:=espacio Columns("B:B").Replace What:=slash, replacement:=espacio Columns("B:B").Replace What:=backslash, replacement:=espacio Columns("B:B").Replace What:=chevron, replacement:=espacio Columns("B:B").Replace What:=apostrofe, replacement:=espacio Columns("B:B").Replace What:=leftparenthesis, replacement:=espacio Columns("B:B").Replace What:=righparenthesis, replacement:=espacio Columns("B:B").Replace What:=porcentaje, replacement:=espacio Columns("B:B").Replace What:=ampersand, replacement:=espacio Columns("B:B").Replace What:=dollarsign, replacement:=espacio Columns("B:B").Replace What:=leftquestionmark, replacement:=espacio Columns("B:B").Replace What:=rightquestionmark, replacement:=espacio Columns("B:B").Replace What:=leftexclamationmark, replacement:=espacio Columns("B:B").Replace What:=rightexclamationmark, replacement:=espacio Columns("B:B").Replace What:=backtilde, replacement:=espacio Columns("B:B").Replace What:=tilde, replacement:=espacio Columns("B:B").Replace What:=arroba, replacement:=espacio Application.ScreenUpdating = True 'what type of data (in spanish) 'personales (b,c,k) personal data 'laborales (q, u ,z), (ab, af, ak) ,( am, aq, av) , (ax,bb,bg) work desc. 'estudiantiles (bi,bj),(bq,br),(by,bz),(cg,ch) academic info. MsgBox "Gracias por la espera, se han limpiado datos personales" End Sub 

Answer 1

用这种方法，你的问题与通配符有关。 *和? 都是通配符，可以匹配单个字符或全部字符。

要解释为一个文字，改变你的Whatstring~*和~?

 asterisco = "~*" rightquestionmark = "~?" 

如果你还包括~作为被replace的字符（我没有看到它），那么它应该被input为~~