Code Excel VBA pour la formule simple entre les cellules

Question

je besoin d'un code pour ces commandes:

1. la première cellule d'ébauches dans la colonne C.
2. Calculat le nombre dans la colonne D moins 14 et faites-le aussi longtemps qu'il y a un nombre à droite dans la cellule dans D (il y a des espaces dans la colonne D)
3. Copiez le résultat dans la colonne C et collez-le en tant que valeurs dans la colonne B. note: j'en ai besoin pour rester dans lignes originales.

`OP_wb.Sheets ("Optique principal"). Activer Dim FirstRow Comme Plage Dim LastRow Comme Plage Set FirstRow = Range ("C1"). Fin (xlDown) .Offset (1, 0)

Range("E1").End(xlDown).Offset(0, -2).Select 
Range(FirstRow, LastRow).FormulaR1C1 = "=(c4-14)"` 

Answer 1

essayez ceci:

1.

Set FirstRow = Range("C1").End(xlDown).Offset(1, 0) 
Set lastrow = Range("E1").End(xlDown).Offset(0, -2) 

Range("E1").End(xlDown).Offset(0, -2).Select 

2.

Range(FirstRow, lastrow).FormulaR1C1 = "=(c4-14)" 

3.

Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & lastrow) 

espérons que cette aide