Question

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

旧价值：（253）796-0340

新值：2537960340

此电子表格的某些用户并非精通Excel。因此，如果有一种方法不让他们需要访问源并运行该函数，那就太棒了。

Answer 1

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

Uncaught SyntaxError: Unexpected token {

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

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

如果您有任何疑虑，请先在试用工作表上试用。

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

删除宏：

按上述方式调出VBE窗口
清除代码
关闭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

另一种方式。

您不必遍历所有单元格。想象一下，用户复制10000行数据。整个列上的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

代码

heroku run bash

自动删除特殊字符

3 个答案: