用VBA数组或者字典 把三个工作表不合格成绩提取出来

laoau128

用VBA数组或者字典   把三个工作表不合格成绩提取出来

超急用户

Sub test()'???
Dim Sht As Worksheet, Arr, Brr(), r&, k&
For Each Sht In Worksheets
    If Sht.Name <> "不合格" Then
        Arr = Sht.[a1].CurrentRegion
        For r = 2 To UBound(Arr)
            If Arr(r, 2) < 60 Then
                k = k + 1
                ReDim Preserve Brr(1 To 2, 1 To k)
                Brr(1, k) = Arr(r, 1)
                Brr(2, k) = Arr(r, 2)
            End If
        Next
    End If
Next
With Worksheets("不合格")
    .[a1].Resize(1, 2) = Array("姓名", "成绩")
    .[a2].Resize(k, 2) = WorksheetFunction.Transpose(Brr)
End With
End Sub

laoau128

超急用户 发表于 2017-6-21 15:57
Sub test()'???
Dim Sht As Worksheet, Arr, Brr(), r&, k&
For Each Sht In Worksheets

暂时没有分，明天再加吧

超急用户

laoau128 发表于 2017-6-21 21:15
暂时没有分，明天再加吧

花不重要，祝进步！

LMY123

数组多表提取数据

laoau128

超急用户 发表于 2017-6-21 15:57
Sub test()'???
Dim Sht As Worksheet, Arr, Brr(), r&, k&
For Each Sht In Worksheets

高手如何做


VBA用数组循环把

http://club.excelhome.net/thread-1353464-1-1.html



VBA按单元格式进行查找  

http://club.excelhome.net/thread-1353503-1-1.html