如果超过10个单词，则删除Excel宏

我有一个文本值列表，我想知道如何删除包含10个以上单词的单元格。是否有办法计算空格字符数，如果超过9个，则删除单元格

---

干杯

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

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

---

如果在单元格

A1

中有一个文本字符串，则可以在单元格

B1

中使用以下公式确定该单元格中有多少空格字符：

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

---

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

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

---

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

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

---

不错的宏，但我追求的是文字而不是字符。是的，我意识到：）不错的宏，但我追求的是文字而不是字符。是的，我意识到：）不错的主意，我想我可以把它包装成脚本…不错的主意，我想我可以把它包装成脚本。。。