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

Question

我试图转换一个字符串，例如全世界都是一个舞台

进入对 url 更友好的东西，例如 all-the-worlds-a-stage

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

Answer 1

如何在 Excel 中删除非字母数字字符

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