使用VBA查找区域中包含单独破折号的所有单元格，并删除这些单元格

Sub DeleteCellsContainingDash()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要操作的区域范围
    Set rng = Range("A1:D10") ' 将范围修改为你需要操作的区域
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 检查单元格的值是否包含单独的破折号
        If InStr(1, cell.Value, "-") = 1 And Len(cell.Value) = 1 Then
            ' 删除符合条件的单元格
            cell.Delete Shift:=xlUp
        End If
    Next cell
End Sub