主题：根据两列名称自动编码，重复值编同一个名称

Dim dict As new Dictionary(of String,String)

Dim idx As Integer = 1

With Tables("D报名表")

    Dim key1 As String

    For i As Integer = 0 To .Rows.Count - 1

        key1 = .Rows(i)("男选手") & "|" & .Rows(i)("女选手")

        If dict.ContainsKey(key1) Then

            .Rows(i)("背号") = dict(key1)

        Else

            .Rows(i)("背号") = idx.ToString().PadLeft(4,"0")

            dict.Add(key1,idx.ToString().PadLeft(4,"0"))

            idx += 1

        End If

    Next

End With