在Excel中的特定字符之后删除或添加文本

我有很多数据在我的Excel表中，我想删除最后（ – ）字符后的所有文本。 这里是我的工作表中的示例数据

"This-is-car-44" "This-is-my-school-ok" 

我想看起来像这样

  "This-is-car" "This-is-my-school" 

我想删除所有的文字后，所以是他们的任何公式来做到这一点。 还有一件事情，如果可能的话，我可以在Excel中这样做

  "This-is-car-44" "This-is-my-school-ok" 

看起来像这样

  "This-is-car/" "This-is-my-school/" 

我的意思是在最后 – 删除所有文本，并添加此/在最后。 谢谢。

Answer 1

如果您使用Excel公式，请试试这个，

=SUBSTITUTE(A1,"-"&TRIM(RIGHT(SUBSTITUTE(A1,"-",REPT(" ",LEN(A1))),LEN(A1))),"/")

Answer 2

你可以做这样的事情。

 Sub RemoveLastStingPart() Dim rng As Range Dim intLastRow As Long Dim strTemp As String Dim aryTemp() As String With ActiveSheet intLastRow = .UsedRange.Rows.Count Set rng = .Range(Cells(1, 1), Cells(intLastRow, 1)) For Each cell In rng strTemp = cell.Value aryTemp = Split(strTemp, "-") strTemp = "" For i = 0 To UBound(aryTemp) - 1 strTemp = strTemp & aryTemp(i) & "-" Next i strTemp = Left(strTemp, Len(strTemp) - 1) cell.Offset(0, 1).Value = strTemp Next cell End With End Sub