Excel 如何顺序返回乱序列表值出现的序号？

Excel 如何顺序返回乱序列表值出现的序号？

工具--宏--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列开始

然后运行，结果如下