Actividad pública reciente
Ha valorado "Excelente" la respuesta
Macro para trasponer filas a columnas
Utiliza esta macro y me comentas Sub transporner() Sheets("hoja1").Select Set miRango = Sheets("Hoja1").Range("A2:A10") A = Application.WorksheetFunction.CountA(miRango) fila = 2 b = Range("A2").Value Range("C2").Value = b c = Range("B2").Value...