Shortening Facebook addresses on the website

[Blasius]

Hello,
I copy many Internet addresses and FB addresses to the website. To make it look like this, I shorten the web addresses using the code below:

sHTML = VBA.Replace(sHTML, "#WWW#", .Cells(i, 13).Value)
sHTML = VBA.Replace(sHTML, "#WWW1#", Split(.Cells(i, 13).Value, "/")(2))

and you can only see the address to the first slash after ".com/"
But FB has a string of characters with a dash as a whole, or there is often a string of numbers before this slash.
How can you copy a FB address similarly to Internet addresses, i.e. just the name without numbers and other characters, such a "clean" name?
Regardless of macro or function.
And is such a thing even possible?

 

[PeteWright]

Could you provide an example?

Unfortunately, from your code I can't figure out what you're talking about.

 

[Blasius]

70 / 5 000

Wyniki tłumaczenia​

Tłumaczenie​

Thanks for showing interest. I'm closing the issue, the solution was Power Query