скрипт для сравнения чисел в двух столбцах

[Olya1985]

Скажите, пожалуйста, почему в этом скрипте надо писать
For i = 2 To n + 1, а нельзя For i = 2 To n, иначе не сравниваются последние введенные числа.


Sub macro()
Dim i As Long
Dim n
Dim r1 As Range
Set r1 = Worksheets(1).Range("A:A")

n = Application.WorksheetFunction.Count A(r1)


For i = 2 To n + 1

If Application.Worksheets(1).Cells(i, 1).Value = Application.Worksheets(1).Cells(i, 2).Value Then
Worksheets(1).Cells(i, 3).Value = "TRUE"

Else

Worksheets(1).Cells(i, 3).Value = "FALSE"

End If

Next i

End Sub

[EugeneS]

потому, что данные начинаются со второй строки, переменная n указывает только на количество значений в диапазоне. Тоесть значений 5, а находятся они со 2-й по 6-ю строку. Поэтому For i = 2 To n закончит цикл только на 5-й строке, шестая не будет обработана.

[Olya1985]

а в случае если данные начнутся с 5 строки? можно как-нибудь сделать чтобы можно было писать for i = 2 to n?

[EugeneS]

нужно иначе определять границы диапазона, например,

n = [a65536].end(xlup).row

укажет на последнюю строку таблицы

Если цикл начинается со второй строки и могут буть пустые строки, можно указать проверку на наличие числа в ячейке.

[Olya1985]

n = activesheet.usedrange.rows.count
так все равно почему то последние строки не сравнивает

[EugeneS]

ошибся..исправил

[Olya1985]

теперь работает. спасибо. а вы программы на заказ пишете?

[EugeneS]

смотря что нужно...пишите в личку

[Olya1985]

на данный момент ничего конкретного. я вот изучаю vba.