Вопрос : Как выбрать ряд приложить к?

это работает если я использую активно клетку, то но я хочу ее к всегда apend (что-то 9999 к началу всего в колонке a: Если свой не str
Dim blank.

Sub DoubleSlash () как String
Dim cel, то по мере того как Range
Set cel = ряд («a: ») << here
If ошибки cel = "" после этого выходит ое Sub
If (cel, 2) = «9999» Then
cel = средний (cel, 3, Len (cel) - 2)
Else
cel = «999» & cel
End If
cel. Смещение (1, 0). Activate
End Sub

class=

Ответ : Как выбрать ряд приложить к?

Sub DoubleSlash ()
Тусклый str как шнур
Тусклый cel как ряд
Для каждого cel в ряде («a: »)
Если cel = "" после этого выходят подводная лодка
    Если о, то (cel, 2) = «9999» после этого
        cel = средний (cel, 3, Len (cel) - 2)
    Еще
        cel = «999» & cel
    Закончитесь если
Следующий cel
Подводная лодка конца