Question : Comment choisir la gamme apposer à ?

ceci fonctionne si j'emploie la cellule active, mais je la veux toujours à l'apend (quelque chose 9999 au commencement de tout dans colonne A : Si son pas streptocoque du
Dim de blank.

Sub DoubleSlash () comme String
Dim cel comme Range
Set cel = gamme (« A :  ») << le here
If d'erreur cel = "" sortent alors Sub
If laissé (cel, 2) = « 9999 » Then
cel = mi (cel, 3, Len (cel) - 2)
Else
cel = « 999 » et cel
End If
cel. Excentrage (1, 0). Activate
End Sub

class= de

Réponse : Comment choisir la gamme apposer à ?

DoubleSlash secondaire ()
Faible streptocoque comme corde
Faible cel comme gamme
Pour chaque cel dans la gamme (« A :  »)
Si le cel = le "" sortent alors le sous-marin
    Si parti (cel, 2) = « 9999 » puis
        cel = mi (cel, 3, Len (cel) - 2)
    Autrement
        cel = « 999 » et cel
    Finir si
Prochain cel
Sous-marin d'extrémité