怎么样判断一组单元格值是否全部对应在另一组单元格设定的区间内？

乐开花36

数据区域内每个单元格的数字都对应在右边条件区域内每个单元格区间里，整行20组为一组，正确的，判断列用√表示，怎样解决？注：条件区域单元格内8；3；意思是最大值为8，最小值为3的区间，其他类似。 3.rar (13.53 KB, 下载次数: 20)

2016-2-12 20:31 上传

点击文件名下载附件

谢谢

龙城飞将III

数据区域和条件区域是如何对应的？楼主能否明确说明下。

高山雪原

Sub 判断()
Dim arr, brr(), crr, x%, k%
rw = Cells(Rows.Count, "ac").End(3).Row
  arr = Range("ac6:bp" & rw)
   ReDim brr(1 To UBound(arr, 1))
    For x = 1 To UBound(arr, 1)
    If arr(x, 21) <> "" Then
     For y = 1 To 20
     crr = VBA.Split(arr(x, y + 20), ";")
       If arr(x, y) < crr(0) * 1 Or arr(x, y) = crr(0) * 1 Then
        If arr(x, y) > crr(1) * 1 Or arr(x, y) = crr(1) * 1 Then
         k = k + 1
         End If
        End If
      Next
      If k = 20 Then
        brr(x) = "√"
      End If
     End If
     k = 0
    Next
   [bq6].Resize(UBound(brr)).ClearContents
   [bq6].Resize(UBound(brr)) = Application.Transpose(brr)
End Sub