VBA吧
Sub add_new()
On Error Resume Next
With Worksheets("Sheet1") '汇总报表
k1 = 1
k2 = 1
For i = 1 To 203
flag = 0
For j = 1 To 11486
If .Cells(i, 1) = .Cells(j, 3) Then
.Cells(k1, 4) = .Cells(i, 1)
k1 = k1 + 1
flag = 1
End If
Next j
If flag = 0 Then
.Cells(k2, 5) = .Cells(i, 1)
k2 = k2 + 1
End If
Next i
End With
End Sub