Предмет: Информатика, автор: artemio123788

Программирование в VBA .
Помогите создать (исправить) программу , которая будет сравнивать в таблице Excel числа в столбце "A" и в столбце "B" и выводить наибольшие числа в столбец "С". (Надеюсь , я понятно объяснил)
Вот код моей программы ( Но у меня она не захотела работать :-( )

Sub m1()
Dim j As Integer, i As Integer, x(10) As Integer
For i = 1 To 10
For j = 1 To 10
x(i) = Cells(i, "A")
x(j) = Cells(j, "B")
If x(i) > x(j) and i=j Then x(i) = Cells(i, "C")
End
Next j
Next i
End Sub

Ответы

Автор ответа: Аноним
0
Sub m1()
    Dim i As Integer, m As Integer, n As Integer
    For i = 1 To 10
        m = Cells(i, 1)
        n = Cells(i, 2)
        If m > n Then
            Cells(i, 3) = m
        Else
            Cells(i, 3) = n
        End If
    Next i
End Sub

Похожие вопросы