VB在excel中查找和replace

我正在使用VB在Excel中填充数据。 他们在列A，第1行至第3000行。

这是一个示例部分：

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

现在我想要做的是find所有以H'开始的string，并在表格中删除所有的string。 所以结果会是这样的：

 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 

但运行时出错：MissingMemberExeception未处理。 并在细节上显示：找不到types“工作表”上的公共成员“替代”。

我正在使用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