刪除第二個連字符後的文本

Question

我想要在Excel中刪除右側的文本和連字符。

我列例如：

Fresh Start Recovery, Inc. - Wayne 
FSA Property Mgmt - Danny 
Georgia Securing Svcs, Inc. - Katrina 
Georgia - SFFS - Joe & Roxana 
Greenwood - Lonnie 
Griffis Recovery, LLC - Tyler (5% WC) 
Hi Cap, Inc. - Doug 

我需要它看起來像這樣：

Fresh Start Recovery, Inc. 
FSA Property Mgmt 
Georgia Securing Svcs, Inc. 
Georgia - SFFS 
Greenwood 
Griffis Recovery, LLC 
Hi Cap, Inc. 

我的代碼，將刪除文本和連字符的權利，但如果我有兩個連字符我需要它刪除第二個，我的代碼刪除第一個。

Dim iPos As String 
Dim c As Range 

For Each c In Range("a1:a" & Range("a" & Rows.Count).End(xlUp).Row) 
iPos = InStr(1, c.Value, " - ") 
If iPos > 0 Then 
c.Value = Left(c.Value, iPos - 1) 
End If 
Next 
End Sub 

Answer 1

InStrRev通過回頭查找最後的字符串匹配。

此更新的代碼

• 使用變長數組的速度，而不是範圍循環
• 測試爲「 - 」，然後使用InStrRev找到最後一次出現

• 的位置使用字符串函數Left$而不是變異Left

  Sub Test() 
  Dim rng1 As Range 
  Dim X 
  Dim lngrow As Long 
  Set rng1 = Range([a1], Cells(Rows.Count, "A").End(xlUp)) 
  X = rng1.Value2 
  For lngrow = 1 To UBound(X) 
  If InStr(X(lngrow, 1), " -") Then X(lngrow, 1) = Left$(X(lngrow, 1), InStrRev(X(lngrow, 1), " -", , vbBinaryCompare) - 1) 
  Next 
  rng1.Value2 = X 
  End Sub 
  

Answer 2

使用InStrRev代替InStr