Separar palabra saltando una fila excel vba

Necesito separar la palabra "Dante" pasando una fila en la columna A

1 D

2 ""

3 a

4 ""

5 n

6 ""

7 t

8 ""

9 e

Tengo esto y no funca.

Sub escribir()
palabra = "Dante"
Columns("A").Clear
j = 1
For i = 1 To Len(palabra) Step 2
    Cells(i, j) = Mid(palabra, i, 1)
Next i
End Sub

1 respuesta

Respuesta
1

Va con los cambios

Sub escribir()
    palabra = "Dante"
    Columns("A").Clear
    j = 1
    For i = 1 To Len(palabra)
        Cells(j, "A") = Mid(palabra, i, 1)
        j = j + 2
    Next
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas