Excel VBA - 文字列の内容を*単語まで削除します。

Question

文字列内の特定の単語まで文字列の内容を削除しようとしています。例

"Emily has wild flowers. They are red and blue." 

のために私は

"They are red and blue." 

すなわちで言葉「彼ら」に、すべてのコンテンツを削除することを置き換えるために、VBAを使用したいと思います。私は文字列の内容とその中に含まれる文字の数を知らない。

これを行う方法がわかりません。本当にありがとうございます。ここで

Answer 1

あなたが行く：文字列の値の前にすべてのテキストをドロップする

Dim s As String 
s = "Emily has wild flowers. They are red and blue." 

Dim indexOfThey As Integer 

indexOfThey = InStr(1, s, "They") 


Dim finalString As String 
finalString = Right(s, Len(s) - indexOfThey + 1) 

Answer 2

簡単な例。

Sub Foo() 
    Dim strOrig As String 
    Dim strReplace As String 
    strOrig = "The Quick brown fox jumped over the lazy dogs" 
    strReplace = "jumped" 

    MsgBox (DropTextBefore(strOrig, strReplace)) 

End Sub 

Public Function DropTextBefore(strOrigin As String, strFind As String) 
    Dim strOut As String 
    Dim intFindPosition As Integer 
    'case insensitive search 
    'could made it so that case sensitivity is a parameter but this gets the idea across. 
    If strOrigin <> "" And strFind <> "" Then 
     intFindPosition = InStr(UCase(strOrigin), UCase(strFind)) 
     strOut = Right(strOrigin, Len(strOrigin) - (intFindPosition + Len(strFind) - 1)) 
    Else 
     strOut = "Error Empty Parameter in function call was encountered." 
    End If 
    DropTextBefore = strOut 
End Function 

Answer 3

単語が固定されている場合は、 "彼ら" は上記の例では、あなたは、単に

1. CTRL + Hを行うことができますように（置き換え）
2. *彼ら（星とあなたの言葉）

[検索]ボックス。スター*はワイルドカード文字で、単語の前後に（末尾に追加されていれば）何かのものとして呼び出すことができます。

注意：同じセルに重複する単語がある場合は注意してください。

Answer 4

これは私のために素晴らしい仕事：人々は、このために否定的な評価を授与する理由私にはわからない

Sub remove_until() 

Dim i, lrowA, remChar As Long 
Dim mString As String 

lrowA = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 

For i = 1 To lrowA 

mString = Cells(i, 1).Value 


    If InStr(mString, "They") > 0 Then 

    remChar = Len(mString) - InStr(mString, "They") + 1 

    Cells(i, 2).Value = Left(mString, Len(mString) - remChar) 

    End If 


Next 

End Sub