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

哈客cc lv.2

发布时间：2022-07-28 11:55:48 264

相关标签：

如果 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

特别声明：以上内容（图片及文字）均为互联网收集或者用户上传发布，本站仅提供信息存储服务！如有侵权或有涉及法律问题请联系我们。