[已解决]Excel高手用VBA改写L列公式成VBA

vbyou127

Excel高手用VBA改写L列公式成VBA

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-27 14:14

Sub test()
    Dim A, B, i, j, k, x, y
    A = [j8:m14]
    B = Range("c8").CurrentRegion

    For k = 1 To UBound(A)
        A(k, 4) = 0
        For i = 2 To UBound(B)
            x = False
            For j = 1 To UBound(B, 2)
                If B(i, j) = A(k, 1) Then x = True: Exit For
            Next j

            y = False
            For j = 1 To UBound(B, 2)
                If B(i, j) = A(k, 2) Then y = True: Exit For
            Next j
            If x And y Then A(k, 4) = A(k, 4) + 1
        Next i
    Next k
    [m8:m14] = Application.Index(A, 0, 4)
End Sub

跳转到最佳答案楼层

金樽空对月

先下载，抽时间研究一下。{:35:}

爱疯

Sub test()
    Dim A, B, i, j, k, x, y
    A = [j8:m14]
    B = Range("c8").CurrentRegion

    For k = 1 To UBound(A)
        A(k, 4) = 0
        For i = 2 To UBound(B)
            x = False
            For j = 1 To UBound(B, 2)
                If B(i, j) = A(k, 1) Then x = True: Exit For
            Next j

            y = False
            For j = 1 To UBound(B, 2)
                If B(i, j) = A(k, 2) Then y = True: Exit For
            Next j
            If x And y Then A(k, 4) = A(k, 4) + 1
        Next i
    Next k
    [m8:m14] = Application.Index(A, 0, 4)
End Sub