[已解决]有条件打√或×

fangniuji

C列数据上下一样的在F列打×，E列有OK的F列一律打×，其余打√，结果如F列，F列√，×，数据每次随C列数据变动而变的。

最佳答案

月排行榜 / 总排行榜

zjdh

2012-11-27 16:12

F2=IF(OR(C1=C2,C2=C3,E2="OK"),"×","√") 下拉填充

或宏
Sub test()
    On Error Resume Next
    ARR = Range("C1:F" & Range("C65536").End(3).Row + 1)
    For I = 2 To UBound(ARR)
        If ARR(I - 1, 1) = ARR(I, 1) Or ARR(I, 1) = ARR(I + 1, 1) Or ARR(I, 3) = "OK" Then
        ARR(I, 4) = "×"
        Else
        ARR(I, 4) = "√"
        End If
    Next
    Range("C1").Resize(UBound(ARR) - 1, 4) = ARR
End Sub

跳转到最佳答案楼层

gdsgzhrsh

上下你指的是不是相邻的上下两个数？

fangniuji

gdsgzhrsh 发表于 2012-11-27 15:22
上下你指的是不是相邻的上下两个数？

是的，谢谢！！！！

zjdh

F2=IF(OR(C1=C2,C2=C3,E2="OK"),"×","√") 下拉填充

或宏
Sub test()
    On Error Resume Next
    ARR = Range("C1:F" & Range("C65536").End(3).Row + 1)
    For I = 2 To UBound(ARR)
        If ARR(I - 1, 1) = ARR(I, 1) Or ARR(I, 1) = ARR(I + 1, 1) Or ARR(I, 3) = "OK" Then
        ARR(I, 4) = "×"
        Else
        ARR(I, 4) = "√"
        End If
    Next
    Range("C1").Resize(UBound(ARR) - 1, 4) = ARR
End Sub

fangniuji

zjdh 发表于 2012-11-27 16:12
F2=IF(OR(C1=C2,C2=C3,E2="OK"),"×","√") 下拉填充

谢谢，再帮一下，如果C列，没有重复数据的数据也打×，谢谢！！

玫瑰vs刺

不知道是否符合你所要的，呵呵

gdsgzhrsh

楼主是要VBA的呢还是要函数公式？

fangniuji

gdsgzhrsh 发表于 2012-11-27 16:28
楼主是要VBA的呢还是要函数公式？

VBA谢谢你的帮忙，再加个条件如果C列不重复数F列也打×，谢谢！！！

fangniuji

zjdh 发表于 2012-11-27 16:12
F2=IF(OR(C1=C2,C2=C3,E2="OK"),"×","√") 下拉填充

或宏

再帮一下，再加一个条件如果C列，没有重复数据的数据也打×，谢谢！！

zjdh

fangniuji 发表于 2012-11-27 16:21
谢谢，再帮一下，如果C列，没有重复数据的数据也打×，谢谢！！

Sub test()
    Set D = CreateObject("scripting.dictionary")
    ARR = Range("C1:F" & Range("C65536").End(3).Row + 1)
    For I = 2 To UBound(ARR) - 1
        If ARR(I - 1, 1) = ARR(I, 1) Or ARR(I, 1) = ARR(I + 1, 1) Or ARR(I, 3) = "OK" Then
            ARR(I, 4) = "×"
        Else
            ARR(I, 4) = "√"
        End If
        If Not D.exists(ARR(I, 1)) Then
            D.Add ARR(I, 1), I
        Else
            D(ARR(I, 1)) = 0
        End If
    Next
    T = D.ITEMS
    For I = 0 To UBound(T)
      If T(I) <> 0 Then ARR(T(I), 4) = "×"
    Next
    Range("C1").Resize(UBound(ARR) - 1, 4) = ARR
End Sub