在VBA中查找和replace

我试图通过部门名称（string）的列，任何包含string“ – INACTIVE”需要删除，只有部门名称。 例如，如果我有“jackson维尔 – 非激活”，我想它只是在列单元格中的“jackson维尔”。 我试图使用.Find和.Replace方法，但我似乎没有把握如何使用它们的方式。

我已经尝试了一个朋友的帮助，这是我迄今为止。 我是这个语言的新手。

Sub DeleteRows() Dim c As Range Dim SrchRng Dim InactiveDepartment As String Dim Department As String Range("A1").Select InactiveDepartment = ActiveCell.Value Set SrchRng = ActiveSheet.UsedRange Do Until ActiveCell.Value = "" Set c = SrchRng.Find("INACTIVE", LookIn:=xlValues) If Not c Is Nothing Then Department = Replace(InactiveDepartment, " - INACTIVE", "") ActiveCell.Value = Department ActiveCell.Offset(1, 0).Select Else ActiveCell.Offset(1, 0).Select End If Loop End Sub 

Answer 1

为什么不在整个A列上使用Excel Replace工作表函数？

 Range("A:A").Replace What:="- INACTIVE", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False