Excel - COMBINACIONES DE 10 ELEMENTOS TOMADAS DE 2 EN 2 Y SIN REPETICION

for i=1 to 10

   for j=i+1 to 10

       p = i & "," & j

   next j

next i

Option Explicit

Option Base 1

Private Sub Combinaciones2a2()

'   Esta subcutina genera una matriz de 10 por 10 que son las combinaciones de 10 _

    elementos tomados de 2 a 2

Dim i As Integer, j As Integer

Dim strMatriz(1 To 10, 1 To 10) As String, strCelda As String

Dim strCeldaMatriz As String

    Sheets("Nombres").Select                   '   Se selecciona la Hoja1 (Nombres)

    For i = 1 To 10                            '   Se mueve sobre las filas

        strCelda = "B" & i + 1  '   Se selecciona la Celda en la Matriz en memoria

        strMatriz(i, i) = Range(strCelda).Value         '   Diagonal Principal

        strCeldaMatriz = LetraColumna(i + 3) & i + 1 '   Apunta a la celda de la _

                                                         Matriz de salida

        Range(strCeldaMatriz).Value = strMatriz(i, i) '   Escribe en la Matriz de _

                                                    salida el valor de la diagonal

        For j = i + 1 To 10        '    Triangulo superior de la diagonal principal

            strCelda = "B" & j + 1 '   Se selecciona la Celda en la Matriz en menoria

            strMatriz(i, j) = Range(strCelda).Value     '   Valores del Triangulo _

                                                    Superior de la Diagonal Principal

            strCeldaMatriz = LetraColumna(j + 3) & i + 1   '   Apunta a la celda de _

                                                               la Matriz de salida

            Range(strCeldaMatriz).Value = strMatriz(i, j)  '   Escribe en la Matriz _

                                                            de salida el valor en TSDP

                '   Formulas para otra forma

                strCeldaMatriz = LetraColumna(j + 3) & i + 13   '   Apunta a la celda _

                                                                de la Matriz de salida

                '   Escribe en la Matriz de salida los dos valores en TSDP

                Range(strCeldaMatriz).Value = strMatriz(i, i) & ", " & strMatriz(i, j)

          Next j

    Next i

End Sub

Public Function LetraColumna(Columna As Long) As String

    LetraColumna = Replace(Range(Cells(1, Columna), Cells(1, Columna)).Address(False, _

                                                                       False), 1, "")

End Function

for i=1 to 10

   for j=i+1 to 10

       p = i & "," & j

   next j

next i