Maestro de EXCEL que usa VBA para reescribir espacios separados por comas

Literalmente, simplemente reescribe una oración. Private?Sub?CommandButton1_Click()

'Salida?Todas las combinaciones de bolas rojas de dos colores para txt

Dim?a,?n,?r,?col,?i, ?i1, ?i2, ?i3, ?i4, ?i5, ?i6, ?tmp

r?=?1

col?=?2

i? =?1

n?=?10000

tmp?=?Application.WorksheetFunction.Combin(33,?6)

Celdas(1 ,?1 )?=?"***"?&;?tmp?amp;?"Combo "

Celdas(2,?1)? ="***"?Cada columna"? &; ?n?&?"fila"

Celdas(3,?1)? =?"***Requerido"?-Int(-tmp?/?n)?&?"columna"

Celda(3?1)?Columna"

ReDim?a(1?to?n)

For?i1?=?1?to? 7

¿Para?i2?=?i1??1?8

¿Para?i3?=?i2? ¿Para?i4?=?i3? ?1.A?10

¿Para?i5?=?i4??1.A?

¿Para?i5?=?i6? 1.A?10

¿Para?i6?=?i6?p>

¿Para?i5?=?i4?1.A?11

Para?i6?=?i5? ?1.To?12

'?a(i)? =?Join(Array(i1,?i2,?i3,?i4,?i5,?i6 ),?" ?")

a(i) =?Join(Array(i1,?i2,?i3,?i4,?i5,?i6),?" ,")

Si?i?lt;?n?Entonces

i?=?i?1

Else

Celdas(r,?col ).Resize(n)?=?Application.WorksheetFunction.Transpose(a)

i?=?1

col?=?col ?1