Excel如何删除电子表格中每个单词开头的数字和斜杠

嗨，我如何删除每个单词开头的数字和斜杠

这是截图

---

提前谢谢

请尝试此公式

=MID（A1，FIND（“/”，A1）+1，LEN（A1）-FIND（“/”，A1））

尝试以下代码：

Sub Test()

 Dim CL As Range, CLv As String, a As Long

  For Each CL In ActiveSheet.UsedRange
    CLv = CL.Value
    On Error Resume Next
     a = WorksheetFunction.Search("/", CLv)
    On Error GoTo 0
    If a <> 0 Then
     CL.Value = Right(CLv, Len(CLv) - a)
     a = 0
    End If
  Next

End Sub

子测试（）
尺寸CL作为范围，CLv作为字符串，a作为长度
对于ActiveSheet.UsedRange中的每个CL
CLv=CL.值
出错时继续下一步
a=工作表函数.Search（“/”，CLv）
错误转到0
如果是0，那么
CL.值=右侧（CLv，Len（CLv）-a）
a=0
如果结束
下一个
端接头

编辑：

或此代码（仅当单元格值以数字开头时删除）：

子测试2（）
尺寸CL作为范围，CLv作为字符串，a作为长度
对于ActiveSheet.UsedRange中的每个CL
CLv=CL.值
a=仪表（1，CLv，“/”）
如果是0，那么
如果为数字（左（CLv，a-1）），则
CL.值=右侧（CLv，Len（CLv）-a）
如果结束
如果结束
下一个
端接头

前缀数字（又名序数）是否为两位数？它们是三位数吗？谢谢你的回复。我使用了下面的公式，但是否有相同的公式删除它。

Sub Test2()

 Dim CL As Range, CLv As String, a As Long

  For Each CL In ActiveSheet.UsedRange
     CLv = CL.Value
     a = InStr(1, CLv, "/")

     If a <> 0 Then
      If IsNumeric(Left(CLv, a - 1)) Then
       CL.Value = Right(CLv, Len(CLv) - a)
      End If
     End If
  Next

End Sub