工具--宏--vb编辑器
复制如下代码到编辑器
Sub sheetgg()
With Sheets("sheet1")
Dim tt(11) As Integer
For i = 1 To 11
tt(i) = 12
Next
For i = 1 To 11
For j = 1 To 11
If .Cells(i, 10) = .Cells(j, 11) Then
.Cells(j, tt(j)) = .Cells(i, 9)
tt(j) = tt(j) + 1
Exit For
End If
Next
Next
End With
End Sub
我编辑从I列开始
然后运行，结果如下
