Excel 根据选项卡的数量清除单元格内容

我想创建一个VBA代码，用于根据单元格内容包含的选项卡数删除单元格内容。例如：在K列中，如果单元格内容包含5个选项卡且低于-101-6或101-将被删除，但101-61不会被删除，则删除单元格内容。

Dim myLastRow
Dim myLastRow As Long
    Dim i As Long

    Application.ScreenUpdating = False

'   Find last row
    myLastRow = Cells(Rows.Count, "J").End(xlUp).Row

'   Loop through range
    For i = 6 To myLastRow
        If mid(Cells(i, "J").Value ,instr(Cells(i, "J").Value ,"-"),) <=5  Then Range(Cells(i, "O"), Cells(i, "Y")).ClearContents
    Next i

    Application.ScreenUpdating = True

我想我会坚持多久
Application.ScreenUpdating=False
“找到最后一行
myLastRow=单元格（Rows.Count，“J”）.End（xlUp）.Row
"环过射程",
对于i=6到myLastRow
如果mid（单元格（i，“J”）.Value，instr（单元格（i，“J”）.Value，“-”）是指“字符”而不是“制表符”？我通常不会使用VBA来实现这一点——您可以使用内置的Excel功能来完成这一点。公式或过滤器会起作用的。你说得对，角色们！过滤的问题是，我有数千行，所以过滤相当混乱，这就是为什么我想消除所有少于5个字符的单元格。谢谢！正如我所理解的-如何引用此代码中的特定列？如果mid（单元格（I，“将单元格列放在此处”）.Value，instr（单元格（I，“将单元格列放在此处”）.Value，“-”）