想通过VBA删除欧元符号，如何表示欧元符号

Question

想通过replace替换€符号为空，但是发现VBA中无法输入该符号。
然后想通过格式变更将currency的格式变成number。但是currency格式的单元格的选择方式好像不太对。

Private Sub Fchange()

ActiveSheet.Cells.Select.CurrencyFormat
Selection.NumberFormat = "0.00"

End Sub

VBA小白，第一次提问，求解答。

Answer 1

欧元符号可以通过Unicode编码来表示，它的编码是U+20AC。你可以在VBA中使用ChrW函数和这个编码来表示€符号，例如：

replace(YourString, ChrW(&H20AC), "")

关于货币格式的转换，你可以使用以下代码：

Selection.NumberFormat = "0.00"

如果你想在所有单元格中进行这个操作，可以使用如下代码：

Cells.NumberFormat = "0.00"