如何利用VBA查找满足两个条件，符合后等于其中一个条件，并列表显示

zxcv131421

12.30.zip (175.2 KB, 下载次数: 29)

2014-3-10 17:11 上传

点击文件名下载附件

调度日记中有许多驾驶员，如何在“驾驶员实际所跑工地”此表中列表显示每个驾驶员所跑工地的“工程名称”。。。
例如：郑奇峰在第一页中陆地港龙盛路跑了三趟，，在“驾驶员实际所跑工地”一表中，列表显示三次，如无则自动不予显示

zxcv131421

在线跪求各位大侠啦，本人VBA水平极其有限啦，可在线等

zxcv131421

为何没有人帮我下呢？

shuyee

还没写完。今天要下了
Sub test()
Dim tmpR As Range, tmpSh As Worksheet, i%, outArr As Variant, tmpV As Variant, j%, k%, gName As String, m%, sName As String
ReDim outArr(1 To 3, 1 To 250)
For i = 1 To 6
sName = "第" & Mid("一二三四五六", i, 1) & "页"
Set tmpSh = Worksheets(sName)
    For j = 0 To 3
    gName = tmpSh.Range("C4").Offset(0, j * 7).Value
    Set tmpR = tmpSh.Range("C11:C35").Offset(0, j * 7)
    tmpV = tmpR.Value
        For k = 1 To 25
            If tmpV(k, 1) = "" Then Exit For
            m = m + 1
            outArr(1, m) = sName
            outArr(2, m) = gName
            outArr(3, m) = tmpV(k, 1)
        Next
    Next
Next
Sheets.Add after:=tmpSh.Name
ActiveSheet.Range("A2").Resize(m, 3) = Application.Transpose(outArr)
End Sub