Excelmacros如果超过10个字就删除

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

干杯

Answer 1

如果在单元格A1有一个文本string，则可以使用此公式在单元格B1确定该单元格中有多less个空格字符：

 =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