数据清洗

njwtg

老师好，我想实现一个功能：从A1单元格开始，如果单元格中没有关键词×，该单元格就被清空，谢谢！

杨建营

参与一下。

njwtg

不知道为什么卡在  For i = 1 To UBound(arr)   说是类型不匹配，谢谢杨建营老师！

A刘志勇

做好了，请检验

剑指E

简单搞一个

shiruiqiang

杨老师的代码，是sheet2，你把表1的复制到表2，再运行

njwtg

明白了，杨老师的代码运行速度非常快，谢谢几位老师

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim Rng As Range, rngFind As Range, strFirstAddress$
   
    Set Rng = ActiveSheet.UsedRange
    Set rngFind = Rng.Find(What:="*", Lookat:=xlWhole)

    If Not rngFind Is Nothing Then
        strFirstAddress = rngFind.Address
        Do
            If InStr(rngFind.Value, "×") = False Then rngFind.Value = ""
            Set rngFind = Rng.FindNext(rngFind)
        Loop Until rngFind.Address = strFirstAddress
    End If
   
    Set Rng = Nothing: Set rngFind = Nothing
End Sub

gwjkkkkk

请参考附件。。。