Question

我正在尝试使用vba操作excel中的文本。我要操纵的文字看起来像下面两个文本：

文字＃1：... 54

文字＃2：.2

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

text＃1：54

text＃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中搜索的字符串。

replacement 将替换string1中的find。

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

count 是可选的。这是要替换的事件数。如果省略此参数，则REPLACE函数将替换所有出现的替换。

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

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

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

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

2 个答案: