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

我正在格式化一些我收到的数据。 我在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？ 然后我可以testing我是否正在replace部分。

Answer 1

你不需要在单元格中循环。 您可以使用Excel的内置.Replace函数来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