Excel查找特定实例并追加到URL字符串的末尾

Sub AppendToURL()
    Dim searchString As String
    Dim appendText As String
    Dim cell As Range
    
    searchString = "特定实例" '要查找的特定实例
    appendText = "追加的文本" '要追加到URL字符串末尾的文本
    
    For Each cell In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) '假设要查找的数据在A列
        If InStr(1, cell.Value, searchString) > 0 Then '如果找到特定实例
            cell.Offset(0, 1).Value = cell.Value & appendText '在相邻单元格中追加文本
        End If
    Next cell
End Sub

=IF(ISNUMBER(SEARCH("特定实例", A1)), A1 & "追加的文本", "")