Excel-将字符串转换为URL友好型

我正在尝试转换一个字符串，例如“世界上所有的人都是一个舞台”

进入更为url友好的网站，例如all-the-worlds-a-stage

到目前为止，我知道我可以使用小写字母并用空格代替破折号，但是有没有更合适的方法来删除标点符号/非URL友好字符

选项显式
函数Alpha（rg作为范围）作为字符串
作为整数的Dim i
如果rg.计数为1，则
MsgBox（“仅允许单个单元格作为参数”）
退出功能
如果结束
对于i=1到Len（rg.Text）
选择案例Asc（Mid（rg.Text，i，1））
案件48至57、65至90、97至122
Alpha=Alpha和Mid（rg.Text，i，1）
结束选择
接下来我
端函数

Option Explicit
Function Alpha(rg As Range) As String
Dim i As Integer
If rg.Count <> 1 Then
MsgBox ("Only a single cell allowed as argument")
Exit Function
End If
For i = 1 To Len(rg.Text)
Select Case Asc(Mid(rg.Text, i, 1))
Case 48 To 57, 65 To 90, 97 To 122
Alpha = Alpha & Mid(rg.Text, i, 1)
End Select
Next i
End Function