按条件筛选数据

benson817

T:V是某2位射击选手的平均成绩，W:Y为固定靶成绩，AA:AC为移动靶成绩。
如果这2位选手在固定靶的成绩一致，并且在移动靶的成绩也一致，就将这2位选手的平均成绩提取到AF列.
注：不及格的成绩，即使一致，也不提取.
数据有很多，不一一例举了.


附件
按条件筛选.rar (2.76 KB, 下载次数: 6)

2018-8-26 18:21 上传

点击文件名下载附件

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, n
  arr = Range("s2:ac" & Cells(Rows.Count, "s").End(xlUp).Row)
  ReDim brr(1 To UBound(arr, 1), 1 To 4)
  For i = 1 To UBound(arr, 1) Step 4
    For j = 5 To UBound(arr, 2)
      If arr(i + 1, j) <> arr(i + 2, j) Then Exit For
      If arr(i + 1, j) = "不及格" Or arr(i + 2, j) = "不及格" Then Exit For
    Next
    If j = UBound(arr, 2) + 1 Then
      n = n + 4
      For j = 1 To UBound(brr, 2)
        brr(n - 3, j) = arr(i, j)
        brr(n - 2, j) = arr(i + 1, j)
        brr(n - 1, j) = arr(i + 2, j)
      Next
    End If
  Next
  With [af2]
    .Resize(Rows.Count - 1, UBound(brr, 2)).ClearContents
    If n > 0 Then .Resize(n, UBound(brr, 2)) = brr
  End With
End Sub

caizi021

一把小刀闯天下，你好，打扰了，可以向您请教一个问题吗？

benson817

mikezhan 发表于 2018-8-26 20:12
12  13  不是其中有“不及格”的吗？  “不及格”不是说 不提取的吗？

楼主，你这表达有问题。

发帖匆忙，选手号有误而已。12 13确实不该提取，最后的数据应该是其他选手号