替换 Excel VBA 中的特殊字符并添加列

Question

我对 Excel VBA 宏非常陌生，因为我的工作需要一些具有挑战性的东西。为了给大家做一个简短的介绍，我每天都会收到一个文件，我必须在其中找到所有特殊字符（ @ * ( ) _ + [ ] \ : ; " ' , . / ? ）从 A 列添加三列 C、D 和 E，它们应自动填充值，即 - C 列应填写“XYZ”，D 列应填写“ABC”，E 列应填写“NA”。应将相同的值复制到添加到最后一个数据行的新列中。

我确实创建了一些东西，用于删除除双引号 (") 之外的特殊字符。此外，我没有找到将文件另存为 EXE 的方法，当单击该文件时会发现 Excel 工作簿以其命名并执行此函数。

如果有人可以帮助我处理此代码，我将不胜感激。我对 VBA 编程真的很天真。如果这行得通，将对我的日常工作管理有很大帮助！

感谢您的帮助。

谢谢， 阿克谢

 Sub Remove_Special()
Columns("A").Replace _
 What:=";", Replacement:=""
Columns("A").Replace _
 What:=":", Replacement:=""
Columns("A").Replace _
 What:=",", Replacement:=""
Columns("A").Replace _
 What:="(", Replacement:=""
Columns("A").Replace _
 What:=")", Replacement:=""
Columns("A").Replace _
 What:="{", Replacement:=""
Columns("A").Replace _
 What:="}", Replacement:=""
Columns("A").Replace _
 What:="[", Replacement:=""
Columns("A").Replace _
 What:="]", Replacement:=""
Columns("A").Replace _
 What:="~+", Replacement:=""
Columns("A").Replace _
 What:="~*", Replacement:=""
Columns("A").Replace _
 What:="~?", Replacement:=""
Columns("A").Replace _
 What:="_", Replacement:=""
Columns("A").Replace _
 What:=".", Replacement:=""
Columns("A").Replace _
 What:="'", Replacement:=""
Columns("A").Replace _
 What:="\", Replacement:=""
Columns("A").Replace _
 What:="/", Replacement:=""
Columns("A").Replace _
 What:=".", Replacement:=""
Columns("A").Replace _
 What:="@", Replacement:=""
Columns("A").Replace _
 What:=Chr(34), Replacement:=""

MsgBox "All special characters have been removed", vbOKOnly
End Sub

Answer 1

看看这里有没有类似的东西： VBA - If a cell in column A is not blank the column B equals

也可以试试这个删除双引号：

myVariable = Replace(myVariable, Chr(34), "")

您可以将工作簿的内容复制并粘贴到启用宏的工作簿中，而不是创建可执行文件。