Excel 用于将某些字符插入列中的宏

Question

我目前正在使用这个。虽然这现在有效。我希望添加允许我替换该列中所有内容的代码。不只限于只替换0个或一个字

.AutoFilter field:=6, Criteria1:="0"
Columns("F").replace What:="0", Replacement:="Not Needed", Lookat:=xlPart, searchOrder:=xlByRows, MatchCase:=False, Searchformat:=False, ReplaceFormat:=False
Worksheets("Sheet1").AutoFilterMode = False

Answer 1

Sub test()
Dim rg As Range
    With ActiveSheet
        Set rg = .Range("A1", .Range("C" & Rows.Count).End(xlUp)) 'change as needed
            With rg
                .AutoFilter Field:=3, Criteria1:="=0", Operator:=xlAnd 'change as needed
                .Resize(.Rows.Count - 1, .Columns.Count).Offset(1, 0).SpecialCells(xlCellTypeVisible).Value = "X"
                .AutoFilter
            End With
    End With
End Sub

Excel 用于将某些字符插入列中的宏

Excel macro to insert certain characters into column

excel

vba