|
- Sub grf()
- arr = Sheets(1).[a1].CurrentRegion
- Set d = CreateObject("scripting.dictionary")
- For i = 2 To UBound(arr)
- d(arr(i, 2)) = i
- Next
- brr = Sheets(2).[a1].CurrentRegion
- ReDim crr(1 To UBound(brr), 1 To 7)
- For i = 2 To UBound(brr)
- If Month(brr(i, 2)) = 5 And (brr(i, 3) = "QL" Or brr(i, 3) = "NSW") Then
- k = d(brr(i, 1))
- If k > 0 Then
- n = n + 1
- crr(n, 1) = arr(k, 1)
- crr(n, 2) = brr(i, 1)
- crr(n, 3) = brr(i, 2)
- crr(n, 4) = brr(i, 3)
- crr(n, 5) = brr(i, 4)
- crr(n, 6) = arr(k, 3)
- crr(n, 7) = arr(k, 7)
- End If
- End If
- Next
- [a1].Resize(1, 7) = Array("name", "ID", "date", "destination", "price", "address", "phone")
- If n > 0 Then
- [a2].Resize(n, 7) = crr
- [a2].Resize(n, 7).Sort key1:=[c2]
- End If
- End Sub
复制代码 |
|