小编Lei*_*ing的帖子

我有一张表,我需要删除空格,所以我可以比较它我使用的是我在这里找到的函数和一个将所有值放入数组的子(为了速度)但我无法让它工作任何想法为什么.我得到了

ByRef参数类型不匹配错误

Public Function RemoveWhiteSpace(target As String) As String
    With New RegExp
        .Pattern = "\s"
        .MultiLine = True
        .Global = True
        RemoveWhiteSpace = .Replace(target, vbNullString)
    End With
End Function


Sub stringRangeToClean()

Dim r As Variant
Dim i As Long

r = ActiveWorkbook.Sheets("Trent BASE DATA").UsedRange

For i = 2 To UBound(r)

        r(i, 10).Value2 = RemoveWhiteSpace(r(i, 10))

Next i

End Sub

现在尝试这个我已经意识到col我实际上(我,9)但我在RegExp线上得到一个错误用户定义的类型错误

Public Function RemoveWhiteSpace(target As String) As String

    With New RegExp
        .Pattern = "\s"
        .MultiLine = True
        .Global = True
        RemoveWhiteSpace …