Excel 公式。电子表格公式

Question

以下是在每个单词之前放置数字。是否有任何相同的公式可以从电子表格中每个单词的开头删除数字。这是公式how to insert numbers before every word in excel的链接

Sub test()
    Dim cl As Range, i&
    Set cl = Cells.Find("*")
    For i = 1 To WorksheetFunction.CountA(Cells)
        If Not cl Is Nothing Then
            cl.Value2 = i & "/" & cl.Value2
            Set cl = Cells.FindNext(cl)
        Else
            Exit For
        End If
    Next i
End Sub

Answer 1

使用相同的代码，但不要插入数字，而是将其删除

Sub test()
Dim cl As Range, i&
Set cl = Cells.Find("*")
For i = 1 To WorksheetFunction.CountA(Cells)
    If Not cl Is Nothing Then
        cl.Value2 = RIGHT(cl.Value2,LEN(cl.Value2)-InStr(cl.Value2, "/")-1)
        Set cl = Cells.FindNext(cl)
    Else
        Exit For
    End If
Next i
End Sub