我想用vba循环方法去掉某单元格中包含某些单词的句子去掉，请大侠帮忙

eutu

我想用vba循环方法去掉某单元格中包含某些单词的句子去掉，单词少还好办，但单词多了，就不好办了，请大侠帮忙

工作薄.rar (7.17 KB, 下载次数: 2)

2020-3-16 18:24 上传

点击文件名下载附件

ggmmlol

使用正则表达式把包含关键字的句子匹配出来并替换掉。

[^、]*(总监|组长)[^、]*、*

eutu

这个数据量很大，不知道用vba怎么替换好

eutu

我想用vba,大家看下面能不能精简Sub share_aa()
    Dim arrData(1 To 8000, 1 To 1)
    Range("k2:k980").ClearContents
    rw = Range("a65536").End(xlUp).Row
    arr = Range("a2:a" & rw)
    For i = 1 To UBound(arr)
        tg = ""
        zw = [aa1].Value
        gg_arr = Split(arr(i, 1), "、")
        For j = 0 To UBound(gg_arr)
            If InStr(gg_arr(j), "总监") = 0 And InStr(gg_arr(j), "组长") = 0 Then tg = tg & gg_arr(j) & "、"    '此句可不可以精简，因为现实中d11单元格数据很长的，要不写and很多
        Next
        arrData(i, 1) = tg
    Next
    Range("k2").Resize(i, 1).Value = arrData
End Sub

opel-wong

eutu 发表于 2020-3-16 19:34
我想用vba,大家看下面能不能精简Sub share_aa()
    Dim arrData(1 To 8000, 1 To 1)
    Range("k2:k980 ...

把关键字写进一个数组，循环数组即可。