Excel VBA - Función de Ejecución de cada célula en el rango

Question

Digamos que tengo una serie llamada rng1

Set rng1 = Worksheets("Sheet1").Range("A1","A5") 

¿Hay una manera rápida y fácil de realizar una función matemática, digamos que dividir todos los valores de las celdas por 2 , para todas las celdas en rng1?

¡Se agradece cualquier ayuda!

Answer 1

Es muy fácil, pero el código final dependerá de dónde desee almacenar los nuevos valores. Por ejemplo, si desea almacenar los valores dividida por 2 en la siguiente columna:

Sub test() 

Dim cell As Range 

For Each cell In Range("A1:A5") 
    cell.Offset(, 1).Value = cell.Value/2 
Next 

End Sub 

mente que hay formas más eficientes de hacer esto que el uso compensado si su rango es grande, pero para un rango más pequeño, esto es totalmente aceptable y rápido.

Si desea sobrescribir los valores, sólo tiene que utilizar cell.Value en lugar de cell.Offset(,1).Value

Answer 2

Otra forma

Sub Main() 
    [B1:B5] = [INDEX((A1:A5/2),)] 
End Sub 

Cómo funciona así se explica here.