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公式。電子表格公式

回答

相關問題