求助，多sheet页数据查询及排序

shpcb168

请大神帮帮我，有一个EXCEL文件，内有多个SHEET页，数据每周进行更新，现想进行指定月份与姓名查询当月业绩排序
最后一页是需要的结果，请大神帮助，不知道有没有叙述清楚

约定的童话

效果确认下...

shpcb168

约定的童话 发表于 2020-9-19 14:49
效果确认下...

可以的，另外部门也可以进行输入进行筛选。

约定的童话

shpcb168 发表于 2020-9-19 15:18
可以的，另外部门也可以进行输入进行筛选。

好用记得评分哈...
Sub 查询()
    Dim i, n, arr, brr(1 To 100, 1 To 3), sht As Worksheet, rng As Range
    For Each sht In Worksheets
        If sht.Name <> "汇总查询" Then
            If sht.Name = [d4] & "部门" Then
                arr = sht.[a1].CurrentRegion
                For j = 3 To UBound(arr, 2)
                    If arr(2, j) = [d3] & "月" Then
                        For i = 3 To UBound(arr)
                            n = n + 1
                            brr(n, 1) = arr(i, 1)
                            brr(n, 2) = arr(i, j)
                            s = s + brr(n, 2)
                        Next
                    End If
                Next
            End If
        End If
    Next
    For m = 1 To UBound(brr)
        If brr(m, 1) <> "" Then brr(m, 3) = brr(m, 2) / s
    Next
    [c7].Resize(100, 3) = brr
    Set rng = [c6:e100]
    rng.Sort key1:="业绩", order1:=xlDescending, Header:=xlYes
End Sub

shpcb168

shpcb168 发表于 2020-9-19 15:18
可以的，另外部门也可以进行输入进行筛选。

用函数是否可以实现，不用VBA

约定的童话

shpcb168 发表于 2020-9-19 15:33
用函数是否可以实现，不用VBA

函数玩不来

shpcb168

约定的童话 发表于 2020-9-19 15:56
函数玩不来

VBA 也可以，怎么弄？谢谢！

约定的童话

shpcb168 发表于 2020-9-19 15:58
VBA 也可以，怎么弄？谢谢！

就上面那代码啊，复制到工作簿里面用就好了

wintechtim

1月的不能查询啊

wintechtim

shpcb168 发表于 2020-9-19 15:18
可以的，另外部门也可以进行输入进行筛选。

好用记得评分哈...
Sub 查询()
    Dim i, n, arr, brr(1 To 100, 1 To 3), sht As Worksheet, rng As Range
    For Each sht In Worksheets
        If sht.Name <> "汇总查询" Then
            If sht.Name = [d4] & "部门" Then
                arr = sht.[a1].CurrentRegion
                For j = 3 To UBound(arr, 2)
                    If arr(2, j) = [d3] & "月" Then
                        For i = 3 To UBound(arr)
                            n = n + 1
                            brr(n, 1) = arr(i, 1)
                            brr(n, 2) = arr(i, j)
                            s = s + brr(n, 2)
                        Next
                    End If
                Next
            End If
        End If
    Next
    For m = 1 To UBound(brr)
        If brr(m, 1) <> "" Then brr(m, 3) = brr(m, 2) / s
    Next
    [c7].Resize(100, 3) = brr
    Set rng = [c6:e100]
    rng.Sort key1:="业绩", order1:=xlDescending, Header:=xlYes
End Sub
使用这个宏命令