这种情况能用VBA实现吗？求大神们赐教

你的原始数据可以排序吗？能排序的话可以不用vba

上面的代码给你写了点注释，自己按实际情况去修改吧。
Sub abc()
Dim a, i, j, k, d, t, m, p, l
'//C 改成j即10列，以你实际数据的最后列去修改
a = Range("a1:j" & [a1].End(xlDown).Row).Value
ReDim b(1 To UBound(a), 1 To UBound(a, 2))
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(a)
t = a(i, 1) & "," & a(i, 2)
d(t) = d(t) & "," & i
Next
For Each i In d.keys
t = Split(d(i), ","): p = 0
For j = 1 To UBound(t)
m = m + 1
If p = 0 Then
For k = 1 To UBound(a, 2)
b(m, k) = a(t(j), k)
Next
p = 1
Else
'//在添加一个循环，当有重复值时，从第三列开始写入值到数组里面
For l = 3 To UBound(a, 2)
b(m, l) = a(t(j), l)
Next
End If
Next
Next
'//原位写入
[a1].Resize(UBound(b), UBound(b, 2)) = b
End Sub

你能描述清楚VBA就一定能实现，VBA不仅能运算处理表格数据，还能从网络获取数据进行运算和处理，还能执行数据库、USB、串行口、并行口、文件的数据读写和处理。