J'essaie de reproduire en VBA la fonction simple d'Excel, ce qui vous permet de répéter une fonction à travers une colonne entière et s'arrête lorsque les colonnes situées sur le côté sont vides. Spécifiquement, je veux répéter une fonction si - sinon si la fonction pour toute la partie pertinente de la colonne
Voici une tentative qui ne fonctionne pas vraiment existe-t-il d'une autre manière Je peux le faire avec une boucle?
3 Réponses :
Si vous souhaitez utiliser une boucle, vous pouvez utiliser quelque chose comme le code ci-dessous:
Range("B1:B134").Formula = "=IF(A1>0," & Chr(34) & "X" & Chr(34) & "," & Chr(34) & "Y" & Chr(34) & ")"
J'essaie d'améliorer mon anglais, je jure ...
Je ferais quelque chose comme ceci: espère que cela aide cela aide.
Merci, c'est exactement ce que je cherchais
Génial! Je suis heureux d'entendre cela.
Choisissez une colonne qui est le plus susceptible de représenter votre dernière ligne (j'utilise Le dessous remplira l'équation Colonne A code> dans mon exemple), puis vous pouvez dynamiquement Drop-down em> votre équation dans une ligne sans boucle. p> A2 + 1 code> dans Colonne B code> à partir de la 2e rangée ( supposant que vous avez une ligne d'en-tête EM>) jusqu'à la dernière ligne utilisée dans Colonne A CODE> P>
Option Explicit
Sub Formula_Spill()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update sheet!
Dim LR As Long
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row '<-- Update column!
ws.Range("B2:B" & LR).Formula = "=A2+1" '<-- Update formula!
End Sub