删除第二个连字符后的文本

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