Excel宏删除超过10个单词

Question

我有一个文本值列表，我想知道如何删除超过10个单词的单元格。有什么方法可以计算空格字符，如果超过9，则删除单元格？

干杯

Answer 1

如果您在单元格A1中有文本字符串，则可以通过在单元格B1中使用此公式来确定该单元格中有多少空格字符：

=LEN(A1)-LEN(SUBSTITUTE(A1," ",""))

Answer 2

当然，这是为了删除A列中大于10个字的所有单元格，对于第1行到第100行。

sub test()
for r = 1 to 100
    space_count = 0
    for c = 1 to len(range("A" & r)) 
       if mid(range("A" & r),c,1) = " " then space_count = space_count + 1
       if space_count > 8 then range("A" & r).clearcontents
    Next
Next
end sub