Нахождение максимального числа, макрос - VBA
Формулировка задачи:
Доброго времени суток. Помогите пожалуйста написать макрос.
У нас есть столбец А1:A10 там находятся значения, допустим:
7
9
10
3
5
1
6
7
3
12
Нужно сравнить ячейки и выписать максимальные значения пока не упрется в минимальную, и так далее. Максимальные значения выписываются в отдельный столбец.
Заранее большое спасибо!
Решение задачи: «Нахождение максимального числа, макрос»
textual
Листинг программы
- Sub ss()
- Dim i As Integer, r As Integer
- r = 1
- For i = 1 To 10
- Cells(r, 3) = Cells(i, 1)
- If Cells(i, 1) > Cells(i + 1, 1) Then r = r + 1
- Next i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
