在Excel中的两个单词之间选择宏

谁能帮我一下吗。我需要在我之前定义的两个词之间进行选择，然后将其删除

例如：

---

http://ertwertw4r+这里有一只狗

我需要从

http:

中选择文本，直到

.jpg

并将其删除或替换为“`”。因为我只需要狗的一部分

这是成功的

---

关于

如果您的字符串始终具有

.jpg

，则您可以使用常规excel公式（无VBA）：

---

录制将“http:.jpg”替换为“I get:

---

“http:*.jpg”表示以“http:”开头并以“.jpg”结尾的任何内容。之前或之后的任何文本都保留在原位。

此地址是否始终有一个

http:

和一个

.jpg

？是的，始终以http:开头，始终以.jpg结尾…只有两者之间的文本始终不同…您的输入文本是否包含一个链接？例如：

http://aaa.jpgTitle

或者是否有多个

http:/aaa.jpgTitle1http:/bbb.jpgTitle2

？我不需要只找到它，它很容易…我需要从http:until.jpg中选择这一切…并需要清除所有这些…我只需要这一切之后的文本…http:/ertwertw4r+53445433333/cat.jpg这里有一只狗，************http://ertwee65e464e65e54e54433333/cat.jpgHere我们是************http://ertwertw4rshkjdtzjdtzjdtzjdtzjdtzjd3333/cat1.jpg这需要太多了*********************我只需要后面的字。jpg。。。其他必须删除…请在击落代码之前尝试该代码。它搜索“.jpg”的最后一个实例并返回它后面的文本。@Pater，这正是它所做的。它提供

.jpg

Sub Macro () 
Selection.Find.ClearFormatting 
 With Selection.Find 
  .Text = "http:" 
  .Replacement.Text = "" 
  .Forward = True 
  .Wrap = wdFindContinue 
 End With 
Selection.Find.Execute 
Selection.Extend 
Selection.Find.ClearFormatting 
 With Selection.Find 
  .Text = ".jpg" 
  .Replacement.Text = "" 
  .Forward = True .Wrap = wdFindContinue 
 End With 
Selection.Find.Execute 
End Sub

=RIGHT(A1,
    LEN(A1)-(FIND(".jpg",A1)+3)
)

 Selection.Replace What:="http:*.jpg", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False