我使用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
但它在运行时出错:MissingMemberExeception未处理。并在详细信息中显示:找不到“工作表”类型上的公共成员“替代”。
我正在使用VB 2010 Express。请帮忙。
答案 0 :(得分:3)
只需使用以下VBA:
sheet.Range("A1", "A3000").Replace "H'", "'"
答案 1 :(得分:0)
试试这个......
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