1。A1017：J1032
2。F2为条件：条件单元可输任几个字符（A删@0等等多个字符）
3。只要A1017：J1032范围内，单元格里面的第“二”个字符与F2条件里面的其中一个相同时，删除此单元内容
4。删除后，同列将数据往空单元上移，让数集中在一起（同列）
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追问
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追问
表所有单元格为文本格式
执行了,无任何变化
f2可以有多上字符
A1017：J1032范围内只要单元格内容的第二个字符与f2里面其中"一"个相同时,就删除
程序测试没问题
温馨提示：答案为网友推荐，仅供参考
