vba - 如何从Excel中的一列数据中删除一个字符

Question

我正在格式化我收到的一些数据。我在 A 列中有几百个学生的名字，出于某种奇怪的原因，有一个随机的 *随机放置在整个名称中。我想以编程方式删除所有 *所有名称中的字符。

 For x = 2 To 300

        Dim strStudent as String

        //how do i set contents of cell to string strStudent

        strStudent = Replace(strStudent, "*", "") //replace * with nothing

 Next

我的问题是，如何将单元格的内容设置为 strStudent？然后我可以测试我是否正确地做替换部分。

Answer 1

您无需遍历单元格。您可以使用 Excel 的内置 .Replace替换所有*的功能通过使用 "~*"
这是一个例子

Option Explicit

Sub Sample()
    Dim ws As Worksheet
    Dim Rng As Range

    '~~> Change this to the relevant worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    '~~> Change this to the relevant range
    Set Rng = ws.Range("A2:A300")

    Rng.Replace What:="~*", Replacement:="", LookAt:=xlPart, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub