[已解决]怎样用vba在B列找到字符“hj”并删除字符所在单元格内容

朝夕寻心

b列有大概2万条数据，需要在这一列找出字符“hj”，选中后删除字符所在单元格内容clearcontents，不是删除单元格！不是删除单元格！求教代码，刚学vba不太懂

最佳答案

月排行榜 / 总排行榜

我行我速2008

2022-8-14 15:32

Sub tt()
    Dim ar, r
    ar = [a1].CurrentRegion
    For r = 1 To UBound(ar)
        If ar(r, 2) Like "*hj*" Then
            ar(r, 2) = ""
        End If
    Next
    [a1].CurrentRegion = ar
End Sub

跳转到最佳答案楼层

我行我速2008

Sub tt()
    Dim ar, r
    ar = [a1].CurrentRegion
    For r = 1 To UBound(ar)
        If ar(r, 2) Like "*hj*" Then
            ar(r, 2) = ""
        End If
    Next
    [a1].CurrentRegion = ar
End Sub

朝夕寻心

我行我速2008 发表于 2022-8-14 15:32
Sub tt()
    Dim ar, r
    ar = [a1].CurrentRegion

大佬太牛了！谢谢！if ar  (r,2) like"*hj*" then这里看不太懂，请问是用的数组＋正则表达式吗？能不能说明一下？
next后面[a1].currentregion=ar表示什么意思？

我行我速2008

数组，没用正则，*hj*,*是通配符，就是字符串中含有hj，前面、后面不问.
like 函数，就是说只要ar(r,2).含有hj，就清空数组ar(r,2).
[a1].currentregion=ar意思是[a1]连贯区域等于数组ar.

zhousteve

谢谢分享啊啊