VBA技术问询：如何检查长度小于2及删除双横杠后字符超2的行

Hey there! Let's tackle your VBA questions one by one:

要检查字符串长度是否小于2，核心是用VBA内置的Len()函数——它会返回字符串的实际字符数。给你举几个常用场景的例子：

• 检查变量的长度：

  Dim myStr As String
  myStr = "X"
  If Len(myStr) < 2 Then
      MsgBox "这个字符串长度小于2"
  End If
  

• 检查单元格内容的长度：

  If Len(ActiveSheet.Cells(1, 1).Value) < 2 Then
      MsgBox "A1单元格的内容长度小于2"
  End If
  

Len()只会计算文本的实际字符数，不会受单元格格式影响，非常靠谱。

先看你的现有代码，发现几个需要调整的小问题：

1. 你当前取的bpno是两个横杠之间的内容，但需求是要检查第二个横杠之后的字符长度
2. 正向循环删除行容易漏处理（删除一行后，下面的行会往上移，循环变量会跳过该行），得改成倒序循环
3. 逻辑判断后应该执行删除行操作，而不是弹出MsgBox

下面是调整后的完整代码，我加了注释帮你理解每一步：

Sub DeleteRowsByDash()
    Dim lastrow As Long, i As Long
    Dim cellText As String, firstD As Integer, secondD As Integer
    Dim afterSecondDash As String
    
    ' 获取工作表已使用区域的最后一行行号
    lastrow = ActiveSheet.UsedRange.Rows.Count
    
    ' 倒序循环，避免删除行后漏处理后续行
    For i = lastrow To 1 Step -1
        cellText = ActiveSheet.Cells(i, 1).Value
        
        ' 找到第一个横杠的位置
        firstD = InStr(1, cellText, "-")
        ' 如果没有第一个横杠，跳过当前行
        If firstD = 0 Then GoTo NextRow
        
        ' 找到第二个横杠的位置（从第一个横杠的下一位开始查找）
        secondD = InStr(firstD + 1, cellText, "-")
        ' 如果没有第二个横杠，跳过当前行
        If secondD = 0 Then GoTo NextRow
        
        ' 提取第二个横杠之后的所有内容
        afterSecondDash = Mid(cellText, secondD + 1)
        
        ' 检查内容长度是否超过2，是则删除当前行
        If Len(afterSecondDash) > 2 Then
            ActiveSheet.Rows(i).Delete
        End If
        
NextRow:
    Next i
End Sub

关键调整说明：

• 倒序循环For i = lastrow To 1 Step -1：确保删除行后，不会漏掉原本在下方的行
• 增加了对“无横杠”“只有一个横杠”的判断，避免运行时报错
• 用afterSecondDash变量明确存储目标内容，逻辑更清晰直观
• 替换了原代码的MsgBox，直接实现删除行的需求

内容的提问来源于stack exchange，提问作者lisa_rao007