描述不太明確啊，我感覺就是先判斷單元格是不是網址，然後判斷網址後有沒有斜槓，有的話就不用加，沒的話就加，可以用這個公式試試，

IF(LEFT(單元格位置,3)="www",IF(RIGHT(單元格位置,1)="/",單元格位置,單元格位置&"/"),單元格位置)

提起單元格的前三個字元判斷是不是三個w如果是就是網址

然後提起網址最後一位判斷是不是斜槓，是的話就返回本身，不是的話就加一個

按你的問題，如果只是需要在末尾沒有反斜槓“/”的網址後面加上反斜槓“/”，更本不需要那麼麻煩。

首先用RIGHT函式獲取最後一個字元，用IF函式判斷這個字元是不是反斜槓“/”，如果是反斜槓“/”則直接返回該字串；如果不是反斜槓“/”則放回該字串並新增反斜槓“/”。

用RIGHT函式獲取字串的最後一個字元

如下圖所示，在B1單元格輸入公式：=RIGHT(A1)，用RITHT函式直接獲取最後一個字元，因為是提取最後一個字元，所以省略了第二引數[num_chars]。

用IF函式進行判斷

如下圖所示，在C1單元格輸入公式：=IF(B1="/",1,0)，判斷前面RIGHT函的返回值是不是反斜槓“/”。

把公式組合起來

如下圖所示，在B1單元格輸入公式：=IF(RIGHT(A1)="/",A1,A1&"/")。

公式解析：

IF函式的第一個引數 【RIGHT(A1)=“/”】用來判斷A1單元格里的字串的最後一個字元是不是反斜槓“/”，如果是返回TRUE,如果不是返回FALSE。

第二引數【A1】,如果第一引數返回TRUE，則直接返回A1單元格的值。

第三引數【A1&"/"】，如果第一引數返回FALSE,則把A1的值最後連線反斜槓"/"後作為返回值返回。

這個很簡單的，函式的話只需要用到IF和RIGHT就可以了:

公式如下:

=IF(RIGHT(B7,1)="/",B7,B7&"/")

另外我看你資料量比較大，給你寫了個VBA程式碼，你看下效果：

程式碼如下：

Sub 加斜槓()

On Error GoTo line

Dim rng1 As Range, rng2 As Range

Set rng1 = Application.InputBox("區域", "請選擇一個區域", , , , , , 8)

For Each rng2 In rng1

If Right(rng2, 1) = "/" Then

Else

rng2 = rng2 & "/"

End If

Next rng2

line:

End Sub

如果不想用函式公式，更改單元格格式設定也可以而且更快速。右鍵全選I列——設定單元格格式——自定義——輸入——"北京"@——確定PS：輸入的雙引號""以及符號@必須是英文狀態的