Questione : Come selezionare gamma aggiungere a?

ciò funziona se uso la cellula attiva, ma la voglio sempre a apend (qualcosa 9999 ad inizio di tutto in colonna A: Se il relativo non streptococco del
Dim di blank.

Sub DoubleSlash () come String
Dim cel come Range
Set cel = gamma (“A: „) << il here
If di errore cel = "" allora esce Sub
If lasciato (cel, 2) = “9999„ Then
cel = metà di (cel, 3, Len (cel) - 2)
Else
cel = “999„ & cel
End If
cel. Contrappeso (1, 0). Activate
End Sub

class= del

Risposta : Come selezionare gamma aggiungere a?

DoubleSlash secondario ()
Streptococco fioco come stringa
Cel fioco come gamma
Per ogni cel nella gamma (“A: „)
Se il cel = il "" allora escono il sommergibile
    Se andato (cel, 2) = “9999„ allora
        cel = metà di (cel, 3, Len (cel) - 2)
    Altrimenti
        cel = “999„ & cel
    Concluder se
Cel seguente
Sommergibile dell'estremità