怎么统计高铁多少人次航班多少人次？

'A列去重的吧
Option Explicit
Sub abc()
　Dim a, i, j, d(3)
　a = Range("a5:c" & [a5].End(xlDown).Row).Value
　For j = 2 To 3
　　Set d(j) = CreateObject("scripting.dictionary")
　　For i = 1 To UBound(a)
　　　If Len(a(i, j)) Then d(j)(a(i, 1)) = 1
　　Next
　Next
　a(1, 1) = "高铁": a(1, 2) = d(2).Count
　a(2, 1) = "航班": a(2, 2) = d(3).Count
　[e5].Resize(2, 2) = a
End Sub

人次，需要去重吗

透视

张三高铁次数=COUNTIFS($A$1:$A$10,$D2,B$1:B$10,E$1)
张三航班次数=COUNTIFS($A$1:$A$10,$D2,C$1:C$10,F$1)
其他同学类似！
高铁累计次数=COUNTIFS($B$1:$B$10,"高铁")
航班累计次数=COUNTIFS($C$1:$C$10,"航班")

'好象看懂了，交通工具可以错位。娱乐一下
Option Explicit
Sub abc()
　　Dim i, j, m, n, a, d(1)
　　a = [a1].CurrentRegion.Resize(, 5).Value
　　ReDim b(UBound(a), UBound(a, 2) + 2)
　　For i = 0 To UBound(d)
　　Set d(i) = CreateObject("scripting.dictionary")
　　Next
　　For i = 1 To UBound(a)
　　If Not d(0).exists(a(i, 1)) Then
　　　m = m + 1: d(0)(a(i, 1)) = m: b(m, 0) = a(i, 1)
　　End If
　　For j = 2 To UBound(a, 2)
　　　If Len(a(i, j)) Then
　　　　If Not d(1).exists(a(i, j)) Then
　　　　　n = n + 1: d(1)(a(i, j)) = n: b(0, n) = a(i, j)
　　　　End If
　　　　b(d(0)(a(i, 1)), d(1)(a(i, j))) = b(d(0)(a(i, 1)), d(1)(a(i, j))) + 1
　　　End If
　　Next
　　Next
　　[a1].Offset(, UBound(a, 2) + 1).Resize(m + 1, n + 1) = b
End Sub