¿Operaciones macro de Excel, agregar columnas, calcular valores, reemplazar valores?
Sub AA()
Dim i
Rango("c:c").Corte [f1]
[C1] = "Longitud":[D1 ] = "Ancho":[E1] = "Alto"
Para i = 2 Al rango("b65536").End(xlUp).p> Celdas(i, "B") = Celdas( i, "B") * 0,5
Siguiente
Rango("c2:e" amp; Rango("b65536").End(xlUp).Row) = 0 p>
Range("f2:f" amp; Range("b65536").End(xlUp).Row) = "yyyy"
End Sub