如题

解决方案 »

  1.   

    就是excel里面循环从a1到e200 的每个单元格
      

  2.   

    Sub 按钮1_单击()For Each Range In Range(a1, e200) '这个区域可以是固定的也可以是变量
      If Search("-", Range.Value) > 1 Then
            Range.Select
        With Selection.Interior
            .ColorIndex = 6
            .Pattern = xlSolid
        End With
      End If
    Next
    End Sub
    执行,提示参数不可选,指向Each Range 中的Range,为什么呢?
      

  3.   

    应该这样写吧:
    Sub 按钮1_单击()
    Dim rg As Range
    For Each rg In Range("a1: e200") '这个区域可以是固定的也可以是变量
      If InStr(rg.Value, "-") > 1 Then
      rg.Select
      With Selection.Interior
      .ColorIndex = 6
      .Pattern = xlSolid
      End With
      End If
    Next
    End Sub