Excel宏删除如果超过10个字

Question

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

干杯

Answer 1

当然，这是为了删除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