Quizás es algo super simple lo que pregunto, pero me he quedado pegado y no sé como avanzar. A modo de ejemplo voy a plantear lo que tengo. Es una hoja de Excel donde posee años y los meses del año.
En datos poseo esta tabla.
Como estoy trabajando con datos grandes, busco optimizar esto de tal manera que al copiar el valor de la Columna (A2) Ej:'2008' , se copie y se pegue 'n' veces (En este caso 12, por el número de meses) en la columna (J) y en la columna (K) los meses. Y así vaya recorriendo cada fila de la columna (A).
El punto es que busco clasificar cada año, con su mes respectivo, o sea.. de esta manera:
Y mi código en VBA es el sigte:
Sub Macro1()
Application.ScreenUpdating = False
Range("B2").Select
'RangeCount = Range(Selection, Selection.End(xlDown)).Select
recct = Range(Selection, Selection.End(xlDown)).Rows.Count
'recct guarda numero de replicaciones que se hace para los meses
num = 0
Range("A2").Select
For i = 2 To 14 'Recorre las filas de años
Cells(i, 1).Copy
If Cells(i, 1).Value <> "" Then
For cont = 1 To recct 'Valor del numero de meses=12
Range("J" & cont).PasteSpecial
Next cont
End If
Next i
End Sub
Sé que algo falta en mi código, porque sólo me trae el valor del último mes, como en esta foto: