[已解决]如何按列依次提取需要的数据

hhaa999

lzMPU5nJ.rar (6.41 KB, 下载次数: 1)

2010-11-27 11:36 上传

点击文件名下载附件
如何按列依次提取需要的数据

最佳答案

月排行榜 / 总排行榜

liuguansky

2010-11-27 19:52

自定义函数：

Function FindX(rng1 As Range, rng2 As Range)
    Application.Volatile
    Dim arr, i&, j&
    arr = Range("a1:f" & Cells(Rows.Count, 1).End(3).Row).Value
    If rng2.Value <> "" Then
        For i = 1 To UBound(arr, 2)
            If arr(1, i) = rng2.Value Then Exit For
        Next i
    End If
    For j = 3 To UBound(arr, 1)
        If rng1.Value <> "" Then
            If arr(j, i - 1) = rng1.Value Then
                FindX = arr(j, i): Exit For
            End If
        End If
    Next j
End Function

QGJ8afWD.rar (10.01 KB, 下载次数: 15)

2010-11-27 19:52 上传

点击文件名下载附件
如何按列依次提取需要的数据

跳转到最佳答案楼层

EPP

硬是没看懂

liuguansky

自定义函数：

Function FindX(rng1 As Range, rng2 As Range)
    Application.Volatile
    Dim arr, i&, j&
    arr = Range("a1:f" & Cells(Rows.Count, 1).End(3).Row).Value
    If rng2.Value <> "" Then
        For i = 1 To UBound(arr, 2)
            If arr(1, i) = rng2.Value Then Exit For
        Next i
    End If
    For j = 3 To UBound(arr, 1)
        If rng1.Value <> "" Then
            If arr(j, i - 1) = rng1.Value Then
                FindX = arr(j, i): Exit For
            End If
        End If
    Next j
End Function

QGJ8afWD.rar (10.01 KB, 下载次数: 15)

2010-11-27 19:52 上传

点击文件名下载附件
如何按列依次提取需要的数据