excel - 如果满足条件，则删除首字母

Question

需要帮助创建一个宏，如果 J 列等于“Company One”，它会从 H 列中删除首字母(例如:“T.”)。

我试过下面的代码，但没有效果。我该怎么做？

Option Explicit

Public Sub removeInitials()

    With ThisWorkbook.ActiveSheet.UsedRange
        If ActiveSheet.AutoFilter Is Nothing Then .AutoFilter
        .AutoFilter Field:=10, Criteria1:="Company One"
        .Columns(8).Offset(2).Replace What:=" *[A-Z].", Replacement:=""
        .AutoFilter
    End With

End Sub

Answer 1

如果您不必使数据库变大，这应该可以解决问题，而不会弄乱过滤器。注意:我为示例更改了 Employer 列。我还稍微更改了数据以显示它有效，因此包含了起点/终点。

Public Sub removeInitials()

   Dim wks  As Worksheet
   Dim lRow As Long
   
   Set wks = ActiveSheet
   lRow = 2
    With wks
        Do While (.Cells(lRow, 1) <> "")
         If (.Cells(lRow, 3) = "Company Two" And Right(.Cells(lRow, 1), 1) = ".") Then
           Debug.Print "Current Row " & lRow
           .Cells(lRow, 1) = Left((.Cells(lRow, 1)), Len(.Cells(lRow, 1)) - 3)
         End If
         Debug.Print lRow
         lRow = lRow + 1
        Loop
    End With

End Sub 'removeInitials

起点

终点