Excel VBA - l'Exécution de la fonction de chacune des cellules dans la plage de

Disons que j'ai une plage appelée rng1

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

Est-il un moyen rapide et facile pour effectuer une fonction mathématique, permet de dire que la division de toutes ces valeurs de cellule par 2, pour toutes les cellules rng1?

Toute aide est très appréciée!

Essayez: With Worksheets("Sheet1").Range("B1:B5") .Formula = "=A1/2" .Value = .Value End With
ou utiliser de la pâte spéciale diviser sur votre gamme, que ce soit manuellement ou à l'aide de VBA

OriginalL'auteur user1130306 | 2012-01-16

  1. 15

    Il est très facile, mais le code final dépendra de l'endroit où vous souhaitez stocker les nouvelles valeurs. Par exemple, si vous souhaitez stocker les valeurs divisée par 2 dans la colonne suivante:

    Sub test()

Dim cell As Range

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

End Sub

    L'esprit que vous il y a des moyens plus efficaces de faire ce que l'utilisation d'offset si votre portée est grande, mais pour une plus petite de la gamme, c'est tout à fait acceptable et rapide.

    Si vous souhaitez écraser les valeurs, vous pouvez simplement utiliser cell.Value en place de cell.Offset(,1).Value

    OriginalL'auteur aevanko

  2. 2

    Une Autre Façon

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

    Comment il fonctionne, c'est bien expliqué ici.

    OriginalL'auteur Santosh