Excel VBA Макросы: Как подставить в адрес диапазона числа с помощью InputBox?

Автор slater, 02 октября 2020, 09:51

slater

Как в этот код подставить вместо символов "@" и "#" числа с помощью InputBox:?
Range("E@:E#").Select

Администратор

Макрос
Sub Макрос()

    Dim Верх, Низ
   
   
    ' Пользователь указывает верх и низ диапазона.
    Верх = InputBox("ВЕРХ ДИАПАЗОНА:")
    If Верх = "" Then Exit Sub
    Низ = InputBox("НИЗ ДИАПАЗОНА:")
    If Низ = "" Then Exit Sub
   
    ' Подстановка указанных координат в адрес диапазона.
    Range("E" & Верх & ":E" & Низ).Select
   
End Sub
[свернуть]