刪除以某些字符開頭的整個單詞的公式

Question

我想要一個搜索字符串的所有匹配項http並刪除整個鏈接的公式。例如：

This is the best story ever http://www.usatoday.com make sure to read it twice. http://www.usatoday.com/image.jpg 

將成爲：

This is the best story ever make sure to read it twice. 

從我讀過，這應該這樣做：

=TRIM(LEFT(A1,FIND("http",A1)-1))&RIGHT(A1,LEN(A1)-FIND(" ",A1,FIND("http",A1))+1) 

，但我仍然得到#VALUE!。

我希望能夠讓代碼在字符串中的任意位置找到URL。另外，如果找不到網址，我只想重印原始字符串。

任何想法？

Answer 1

請嘗試：

=TRIM(REPLACE(A1,FIND("http://",A1),IFERROR(FIND(" ",A1,FIND("http://",A1)),LEN(A1)+9)-FIND("http://",A1)+1,"")) 

如果你正在尋找不只是在句末刪除網址。

IMO從@Siddharth Rout編輯以下提供了比上述更好的解決方案。

---

非VBA /非公式法

1. 按CTRL + H^到帶來Find And Replace對話框。
2. 在Find What中，輸入「http：// *」，不帶引號。注意*
3. 保留Replace With爲空。
4. 點擊Replace All
5. 現在在Find What中，輸入「http：// *」不帶引號。注意，這裏之後*
6. 沒有空間保持Replace With空
7. 點擊Replace All

和你做。

Answer 2

試試這個：

=TRIM(MID(A1,1,SEARCH("http",A1)-1)) 

沒有辦法測試，所以我把它留給你。

Answer 3

您可以創建自己的公式以在Excel中使用正則表達式表達式。

1. 在Excel中打開Visual Basic編輯器
2. 轉到Tools > References...
3. 檢查Microsoft VBScript Regular Expressions 1.0
4. 和Microsoft VBScript Regular Expressions 5.5
5. 然後在左窗格中右鍵單擊您的VBAProject (Book1.xlsx)
6. Insert > Module

7. 粘貼此代碼

   Public Function RgxReplace(aregexp As String, _ 
   astring As Range, _ 
   areplace As String) As String 
   Dim re As RegExp 
   Set re = New RegExp 
   re.Pattern = aregexp 
   RgxReplace = re.Replace(astring, areplace) 
   End Function 
   

8. 並保存

現在yoг有一個新的公式列表

您可以使用正則表達式替換字符串使用模式。你的情況，這將是

（特別感謝vdasus）