String VBA替换不使用数字格式

我又一次被什么东西卡住了

我试图清理电话号码数据，但代码没有任何作用

    Columns(icount).Replace What:=",", Replacement:="", LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False


    Columns(icount).Replace What:="-", Replacement:="", LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

icount是手机所在的列

---

我不明白为什么它不起作用。将“

à；

”替换为“a”效果很好。

尝试使用“LookAt:=xlPart”而不是“LookAt:=xlother”

Columns(icount).Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


Columns(icount).Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

---

尝试使用'LookAt:=xlPart'而不是'LookAt:=xlother'

Columns(icount).Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


Columns(icount).Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

你可以这样说：

Sub rep()


For Each c In Sheets("Sheet1").Range("A:A").Cells ' Change the range that you want

    If InStr(c.Value, ",") > 0 Then
        deli = Split(c, "")
        For a = 0 To UBound(deli)
        c.Value = replace(c.Value, ",", "")
        Next a

    End If

    If InStr(c.Value, "-") > 0 Then
        deli = Split(c, "")
        For a = 0 To UBound(deli)
        c.Value = replace(c.Value, "-", "")
        Next a

    End If

Next c

End Sub

你可以这样说：

Sub rep()


For Each c In Sheets("Sheet1").Range("A:A").Cells ' Change the range that you want

    If InStr(c.Value, ",") > 0 Then
        deli = Split(c, "")
        For a = 0 To UBound(deli)
        c.Value = replace(c.Value, ",", "")
        Next a

    End If

    If InStr(c.Value, "-") > 0 Then
        deli = Split(c, "")
        For a = 0 To UBound(deli)
        c.Value = replace(c.Value, "-", "")
        Next a

    End If

Next c

End Sub

---

嗨，这正是我想要的。但我真的不明白。嗨，这正是我想要的。但我真的不明白。