vb.net - VB在excel中查找和替换

Question

我正在使用 VB 在 excel 中填充数据。它们填充在 A 列第 1 行到第 3000 行中。

这是一个示例部分：

H'03F8
H'03FD
H'4404
H'0812
... and so on

现在我要做的是找到所有以 H' 开头的字符串并删除工作表中所有出现的字符串。所以结果会是这样的：

03F8
03FD
4404
0812
... and so on

为此，这是我正在使用的代码：

Dim xl = Microsoft.VisualBasic.CreateObject("Excel.Application")
Dim wb = xl.Workbooks.Add()
Dim sheet = wb.ActiveSheet

Private Sub find_replace()
    Dim myRange As Range
    myRange = sheet.Range("A1:A3000")
    For Each row In myRange
        sheet.substitute(myRange, "H'", "")
    Next

End Sub 

但它在运行时出错： MissingMemberException was unhandled。并在详细信息中显示：未找到类型“工作表”的公共成员“替代”。

我正在使用 VB 2010 Express。请帮忙。

Answer 1

只需使用以下 VBA：

sheet.Range("A1", "A3000").Replace "H'", "'"

Answer 2

尝试这个 ...

Private Sub find_replace()
    Dim myRange, r As Range
    Dim s As String

    myRange = sheet.Range("A1:A3000")
    For Each r In myRange
        s = r.Value            
        r.Value = s.Substitute("H'", "" )
    Next

End Sub