自动删除特殊字符

Question

我有一个电子表格，我们将在以下格式的D列中输入电话号码：（253）796-0340。 我想使用VBA公式/函数自动删除粘贴到D列中单元格中的任何括号，破折号或空格。当下面的“旧值”粘贴到单元格中时，它将自动替换为“新价值”； 例如：

旧值：（253）796-0340

新值：2537960340

该电子表格的某些用户并不精通Excel。 因此，如果有一种方法可以让他们不需要访问源并运行该功能，那将是很好的。

Answer 1

在工作表代码区域中包含以下事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim intr As Range, t As String
   Set intr = Intersect(Range("D:D"), Target)
   If intr Is Nothing Then Exit Sub

   Application.EnableEvents = False
   For Each r In intr
      t = Replace(Replace(r.Text, "-", ""), " ", "")
      r.Value = "'" & Replace(Replace(t, ")", ""), "(", "")
   Next r
   Application.EnableEvents = True
End Sub

因为它是工作表代码，所以非常易于安装和自动使用：

1. 右键单击Excel窗口底部附近的选项卡名称
2. 选择查看代码-这将打开一个VBE窗口
3. 将内容粘贴并关闭VBE窗口

如果您有任何疑问，请先在试用版工作表上尝试一下。

如果您保存工作簿，则宏将随其一起保存。 如果您在2003年以后使用Excel版本，则必须将文件另存为.xlsm而不是.xlsx

删除宏：

1. 如上调出VBE窗口
2. 清除代码
3. 关闭VBE窗口

要总体上了解有关宏的更多信息，请参见：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参见：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能使其正常工作！

Answer 2

您将要尝试的一般想法是-

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Target.Value = Replace(Replace(Replace(Replace(Target.Value, "(", ""), ")", ""), "-", ""), " ", "")
    Application.EnableEvents = True
End Sub

这是每次在工作表中更改值时都会触发的事件，并且会从输入的值中删除所有不必要的字符。 请注意，这将适用于此代码应用于工作表中的每个单元格。

Answer 3

其他方式。

1. 您不必遍历所有单元格。 想象一个用户复制10000行数据。 在整个列上进行.Replace比在每个单元格中循环要快得多。

2. 您可以继续添加到MyList = "(|)| |-" 。 您要替换的所有内容都由|分隔| 。 万一将来要替换| 然后在deLim = "|"设置唯一的定界符

码

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim MyList As String, MyAr
    Dim deLim As String
    Dim i As Long

    '~~> Keep Adding whatever you want to replace
    MyList = "(|)| |-"

    deLim = "|"

    On Error GoTo Whoa

    Application.EnableEvents = False

    If Not Intersect(Target, Columns("D:D")) Is Nothing Then
        MyAr = Split(MyList, deLim)

        For i = LBound(MyAr) To UBound(MyAr)
            With Columns("D:D")
                .NumberFormat = "@"
                .Replace What:=MyAr(i), Replacement:="", LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
            End With
        Next i
    End If

Letscontinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume Letscontinue
End Sub