routine per creare combinazioni di numeri

Question

Salve volevo creare in excel un foglio che abbia in elenco nella colonna A tutti i numeri da 1 a n poi ho nella colonna B tre numeri io vorrei mettere nelle righe

C1, C2, C3 tutte le possibili combinazioni di numeri esempio

A B C

1 2 12

2 5 15

3 6 16

4     22

5     25

6     26

spero di esser stato chiaro

Answer 1

in pratica vorrei ottenere tutte le combinazioni univoche 

esempio:

ho questi dati

colonna a

1

2

3

4

5

6

colonna b

1

2

3

n

colonna c

12

13

23

22

33

etc.

Date le due tabelle sopra, cosa ci sarebbe di *non univoco* nel risultato della macro che ho postato? Grazie.

Answer 2

in pratica vorrei ottenere tutte le combinazioni univoche 

esempio:

ho questi dati

colonna a

1

2

3

4

5

6

colonna b

1

2

3

n

colonna c

12

13

23

22

33

etc.

Answer 3

va bene ma se volessi combinare più numeri non più a due a due ma a n a n 

?

Tempo macchina a parte, avendo ad esempio:

1   4   9    7

2   5   3    1

cosa vuoi ottenere.

Grazie.

Answer 4

va bene ma se volessi combinare più numeri non più a due a due ma a n a n 

?

Answer 5

Salve volevo creare in excel un foglio che abbia in elenco nella colonna A tutti i numeri da 1 a n poi ho nella colonna B tre numeri io vorrei mettere nelle righe

C1, C2, C3 tutte le possibili combinazioni di numeri esempio

A B C

1 2 12

2 5 15

3 6 16

4     22

5     25

6     26

spero di esser stato chiaro

Non so se ho capito. Prova:

Public Sub m()

    Dim sh As Worksheet

    Dim lRigaA As Long

    Dim lRigaB As Long

    Dim lngA As Long

    Dim lngB As Long

    Dim lRigaC As Long

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    lRigaC = 1

    With sh

        lRigaA = .Range("A" & .Rows.Count).End(xlUp).Row

        lRigaB = .Range("B" & .Rows.Count).End(xlUp).Row

        For lngA = 1 To lRigaA

            For lngB = 1 To lRigaB

                .Cells(lRigaC, 3).Value = _

                    .Cells(lngA, 1).Value & .Cells(lngB, 2).Value

                lRigaC = lRigaC + 1

            Next

        Next

    End With

    Set sh = Nothing

End Sub