Question

excel vba删除符合条件的内容

1。A1017：J1032
2。F2为条件：条件单元可输任几个字符（A删@0等等多个字符）
3。只要A1017：J1032范围内，单元格里面的第“二”个字符与F2条件里面的其中一个相同时，删除此单元内容
4。删除后，同列将数据往空单元上移，让数集中在一起（同列）

Answer 1

Sub xx()
    s = [f2]
    For i = 1 To 10
        For j = 1032 To 1017 Step -1
            k = Mid(Cells(j, i), 2, 1)
            If InStr(s, k) > 0 Then
                Cells(j, i).Delete
            End If
        Next
    Next
End Sub

追问

表所有单元格为文本格式

1. 执行了,无任何变化

2. f2可以有多上字符

3. A1017：J1032范围内只要单元格内容的第二个字符与f2里面其中"一"个相同时,就删除

追答

程序测试没问题