- Sub ek_sky()
- Dim arr As Variant
- Dim i As Long, j As Long, k As Long, l As Long
- With Sheets("数据表")
- arr = .Range("A2:D" & .Cells(Rows.Count, 1).End(xlUp).Row)
- End With
- For i = 1 To UBound(arr)
- If arr(i, 1) = Range("D1") Then
- If arr(i, 2) = Cells(3, 2) Then
- j = j + 1
- Cells(j + 4, 1) = arr(i, 1)
- Cells(j + 4, 2) = arr(i, 2)
- Cells(j + 4, 3) = arr(i, 3)
- Cells(j + 4, 4) = arr(i, 4)
- ElseIf arr(i, 2) = Cells(3, 7) Then
- k = k + 1
- Cells(k + 4, 6) = arr(i, 1)
- Cells(k + 4, 7) = arr(i, 2)
- Cells(k + 4, 8) = arr(i, 3)
- Cells(k + 4, 9) = arr(i, 4)
- ElseIf arr(i, 2) = Cells(3, 12) Then
- l = l + 1
- Cells(l + 4, 11) = arr(i, 1)
- Cells(l + 4, 12) = arr(i, 2)
- Cells(l + 4, 13) = arr(i, 3)
- Cells(l + 4, 14) = arr(i, 4)
- End If
- End If
- Next i
- End Sub
复制代码 |