Question

如何用EXCEL中VAB提取满足条件的对应数值

Answer 1

 Sub xx()
    For i = 5 To 32
    x = 0
    j = 28
    Do While Cells(j, i).Interior.Color = vbYellow
        x = x + 1
        j = j + 1
    Loop
    If x <> 0 Then
        k = 18
        For j = 5 To 14
            If Cells(j, i).Interior.Color = vbRed Then
                Cells(k, i) = Cells(j, x)
                k = k + 1
            End If
        Next
    End If
    Next
End Sub