1

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 を使用しています。助けてください。

4

2 に答える 2

5

次の VBA を使用するだけです。

sheet.Range("A1", "A3000").Replace "H'", "'"
于 2013-07-25T10:44:30.200 に答える
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
于 2013-07-25T08:00:18.790 に答える