Excel公式。电子表格公式

以下是每个单词前的数字。是否有任何相同的公式来删除电子表格中每个单词的开头数字。这是公式的链接how to insert numbers before every word in excel 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

来源

2016-02-14 Hsb

你需要解决的最后两年以前的问题提供了答案（[这里]删除（http://stackoverflow.com/questions/34677235/how-to-insert-numbers-before-every-word-in-excel）和[这里]（http://stackoverflow.com/questions/35388574/excel-在第一次询问同样的事情之前，我怎样才能删除数字和斜杠）。急躁不是美德。有没有人回答的问题可能会导致解决方案，并且您没有提供可行的反馈意见给已提交的答复。 – Jeeped

我投票关闭这个问题作为题外话，因为这是同一个问题的第三个化身（[Excel如何删除数字和斜杠在电子表格中每个单词的开头]（http://stackoverflow.com/questions/35388574）和第二部分[如何在Excel中的每个单词之前插入数字]（http://stackoverflow.com/questions/34677235））。 – Jeeped

使用相同的代码，但而不是插入的数目由

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

来源

2016-02-14 09:03:12 Mhand7

感谢您的回复，但在运行上述公式时显示错误 – Hsb

将查找功能更改为InStr，要搜索第一个“/”的位置， – Mhand7

Excel公式。电子表格公式

回答

相关问题