利用VBA实现对比数据计算分布,对VBA初学者是很好的借鉴。 部分代码如下： Dim rng As Range, tp As Range, arr, i As Long, j As Long Set rng = Range("S2:AD" & Cells(Rows.Count, "S").End(xlUp).Row) arr = rng For i = 2 To UBound(arr, 1) For j = 2 To UBound(arr, 2) If arr(i, 1) = arr(1, j) Then