vba - 使用vba从excel中的文本中删除字符

Question

我正在尝试使用 vba 在 excel 中操作文本。我要处理的文本类似于以下两个文本：

文字#1: ...54

文字#2：..2

我正在尝试从这些文本中删除点，以便只保留数字，如下所示54

文字#1：54

文字#2：2

请指教。

Answer 1

这是它的工作原理：

Sub ReplaceDots()

    Dim col as Integer

    col = 2 'The Column where you want to replace the dots

    For Row = 1 To 20 'Define the Range here
        Set curCell = Worksheets("Sheet1").Cells(Row, col)
        curCel.Value = Replace(curCel.Value, ".", "")
    Next Row

End Sub

编辑：也许我切换了行和列，你必须测试

Answer 2

看看Replace功能。

Replace ( string1, find, replacement, [start, [count, [compare]]] )

string1是用另一组字符替换一个字符序列的字符串。

find是要在 string1 中搜索的字符串。

替换将替换 string1 中的 find。

开始是可选的。这是 string1 中开始搜索的位置。如果省略此参数，则 REPLACE 函数将从位置 1 开始搜索。

计数是可选的。这是要替换的出现次数。如果省略此参数，则 REPLACE 函数将用替换替换所有出现的查找。

比较是可选的。这可以是以下值之一：

• vbBinaryCompare 二进制比较
• vbTextCompare 文本比较
• vbDatabaseCompare 根据数据库中的信息执行比较

http://www.techonthenet.com/excel/formulas/replace_vba.php