Доработать алгоритм выбора переходом на следующую строку листа Excel

@BeL · Регистрация: 01.12.2014

Author24 — интернет-сервис помощи студентам

Добрый день! Помогите, пожалуйста, разобраться.
Мне нужно написать код для Excel, который статистические данные преобразует в информационную таблицу, при том, что исходные данные ему нужно брать с листа.
Алгоритм преобразования данных я сделала:

Visual Basic

Dim procedura, primechanie, zayvki, dopuscheno2, podano2 As String, podano, dopuscheno As Integer 'вызываю переменные
primechanie = Range("y4") 'присваиваю стартовые значения
podano = Range("q4")
dopuscheno = Range("r4")
procedura = Range("P4")
    If procedura = "вскрытие конвертов" Then   'начну с варианта "вскрытие конвертов"
        If podano = 1 Then
            podano2 = "Подана "
            Else
            podano2 = "Подано "
            Select Case podano
                Case Is = 1
                zayvki = " заявка: "
                Case 2 To 4
                zayvki = " заявки: "
                Case Else
                zayvki = " заявок: "
            End Select
        End If
            Range("E4") = procedura & ". " & podano2 & podano & zayvki & primechanie & "."     'итоговая запись
    Else
        Select Case podano
            Case 2 To 4
            zayvki = " заявки,"
            Case Else
            zayvki = " заявок,"
        End Select
        If dopuscheno = 1 Then
            dopuscheno2 = " допущена"
            Else
            dopuscheno2 = " допущено"
        End If
        If primechanie = "" Then    'варианты итоговых записей
            Range("E4") = procedura & ". Подано " & podano & zayvki & dopuscheno2 & " " & dopuscheno & "."
            Else
            Range("E4") = procedura & ". Подано " & podano & zayvki & dopuscheno2 & " " & dopuscheno & " (" & primechanie & ")" & "."
        End If
    End If

А вот как заставить его перейти на следующую строку и повторить то же с новыми данными разобраться не могу (ну как "не могу" в купленной книжке есть варианты только ввода данных пользователем через InputBox).
Пробовала запустить цикл Do, а чтобы перешел на следующую строку прибавила 1 к стартовым значениям - в итоге получился бесконечный цикл в одной ячейке.
Пробовала записать стартовые данные как Range("Yi"), где i - должно было стать номером строки, но тоже вылезла какая-то ошибка.
Поискала ответа на форуме - не попался.

@mc-black · 02.12.2014, 15:45

Переключите стиль ссылок на R1C1 (Файл - Параметры - Формулы - Стиль ссылок R1C1 поставить галочку). После этого к ячейкам в макросе пропишите "координаты", то есть обращаться по номеру строки и столбца, используйте .Cells(строка, столбец) для этого.

Visual Basic

Dim i As Long
 
With ActiveSheet
    i = 4 ' Первая строка для цикла по строкам
    Do While .Cells(i, 16) <> "" ' Цикл до пустой ячейки в 16 колонке
        ' Здесь перепишите свой алгоритм, обращаясь к тексту и числам как .Cells(i, столбец)
        .Cells(i, 5) = .Cells(i, 16) ' Скопировать из 16 в 5 колонку
        i = i + 1 ' К следующей строке
    Loop
End With

Если что-то пойдет не так, выкладывайте, что получается в эту тему.

@BeL · 02.12.2014, 16:08 **[ТС]**

Все сработало отлично и столько много переменных вызывать не нужно. Спасибо большое!

@сороконожка · 02.12.2014, 16:36

Visual Basic

1
2
3

Do
....
Loop until <любая переменная> <> 0 ("" - если у вас строковые)

без счётчика

@BeL · 02.12.2014, 17:41 **[ТС]**

Сообщение от сороконожка

Visual Basic

1
2
3

Do
....
Loop until <любая переменная> <> 0 ("" - если у вас строковые)

без счётчика

Попробовала, но без счетчика заполняется только первая ячейка

@сороконожка · 03.12.2014, 17:09

... последними значениями. Моя ошибка, не посмотрел что вы выгружаете значения построчно.

@BeL 1 / 1 / 0 Регистрация: 01.12.2014 Сообщений: 11
	02.12.2014, 16:08 [ТС]	3
	Все сработало отлично и столько много переменных вызывать не нужно. Спасибо большое! 0

@сороконожка 15 / 15 / 5 Регистрация: 01.12.2014 Сообщений: 117
	03.12.2014, 17:09	6
	... последними значениями. Моя ошибка, не посмотрел что вы выгружаете значения построчно. 0