comment utiliser le formulaire de gauche dans vba? Comment déterminer les cellules actives?

Comment puis-je utiliser la formule à gauche pour get une string en court-circuit (p. Ex.: BC150033) dans la colonne B? L'image ci-dessus est le résultat que j'ai utilisé la formule de gauche. Cependant, je veux utiliser vba pour get ce même résultat. Je sais utiliser pour chaque boucle suivante, mais quelque chose ne va pas …

AB 1 BC150033-001 BC150033 2 BR165522-002 BR165522 3 ect.... Set SourceRange = Range(Sheets(2).Range("A1"), Selection.End(xlDown)) For Each cell In SourceRange If IsEmpty(cell.Value) Then Exit For Sheets(2).Range("B" & cell.Row).Value = Left(cell.Value, 8) Next 

s'il vous plaît donnez votre avis

• Comment exporter une table de colonne verticale avec de nombreuses lignes dans une feuille excel avec des en-têtes sur le plan horizontal?
• Convertissez une cellule avec 1:04 (mm: ss), à 64 (mm)
• Erreur SSIS dans Connection Manager après modification du file source
• Comment triggersr une mise à jour après l'apparition d'une mise à jour de Slicer associée à une table (non pivotable)
• Filtre avancé – exclure les en-têtes

 Sub test() Set SourceRange = Range(Range("A1"), Range("A1").End(xlDown)) For Each cell In SourceRange If IsEmpty(cell.Value) Then Exit For Range("B" & cell.Row).Value = Left(cell.Value, 8) Next End Sub