如果把一个区域里相同得按照透视表统计出来

=LET(a,UNIQUE(TOCOL(A2:D5)),HSTACK(a,COUNTIF(A2:D5,a)))

不行的话，可能是你版本较低的原因吧，我这试了没问题

用VBA吧，老版本去重写起来也麻烦
Sub test()
Dim arr, i%, j%, dic As Object
arr = Range("a1").CurrentRegion.Value
Set dic = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
For j = 1 To UBound(arr, 2)
dic(arr(i, j)) = dic(arr(i, j)) + 1
Next j
Next i
Range("o1").Resize(dic.Count) = Application.Transpose(dic.keys)
Range("p1").Resize(dic.Count) = Application.Transpose(dic.items)
End Sub