第二个连字符后删除文本

我想在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通过向后查找来查找最后的string匹配。

这个更新的代码

• 速度而不是范围循环使用变体数组
• testing一个“ – ”然后使用InStrRevfind最后一次出现的位置

• 使用string函数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