Сравнение двух числовых диапазонов и добавление.Что не так?

[sonata]

Код: Выделить всё

Public Sub Сравнение_диапазонов_добавление()
'Столбец А содержит полный диапазон от 1 до 318(диапазон1)
'Столбец B содержит неполный диапазон от 1 до 318(диапазон2)
'Задача: добавить в нужное место диапазона2 недостающие числа,
'покрасив ячейку с ними в определенный цвет
Dim i, j As Integer
For i = 1 To 318
    For j = 1 To 318
    If Not (Cells(i, 1).value = Cells(j, 2).value) Then
        Cells(i, 2).Select
    Selection.Insert Shift:=xlDown
    Selection.Interior.ColorIndex = xlNone
    Cells(i, 2).value = Cells(i, 1).value
    'Cells(i, 3).value = 1
    End If
    Next j
   ' Else: Cells(i,3).value = 0
   ' End If
Next i
End Sub

Видимо, ошибка в том, что при добавлении строк, происходит перенумерация...А как это исправить?

[Tuco]

в таких случаях я обычно беру с большим запасом границу цикла и когда дохожу до пустой строки выхожу из этого цикла (Exit for)... может это и не очень красиво, и медленно, но это работает...

[Tony]

Думаю нет необходимости в двух циклах...

Код: Выделить всё

Public Sub Сравнение_диапазонов_добавление()
'Столбец А содержит полный диапазон от 1 до 318(диапазон1)
'Столбец B содержит неполный диапазон от 1 до 318(диапазон2)
'Задача: добавить в нужное место диапазона2 недостающие числа,
'покрасив ячейку с ними в определенный цвет
Dim j As Integer
    For j = 1 To 318
    If Not (Cells(j, 1).Value = Cells(j, 2).Value) Then
        Cells(j, 2).Select
    Selection.Insert Shift:=xlDown
    Selection.Interior.ColorIndex = 3
    Cells(j, 2).Value = Cells(j, 1).Value
    'Cells(i, 3).value = 1
    End If
    Next j
   ' Else: Cells(i,3).value = 0
   ' End If

End Sub


тока у тебя в примере в 189 строке оригинала есть ошибка... надо 297 а не 397... он просто все что идет ниже соответственно сдвигает
Да и ColorIndex я чуть чуть поправил для наглядности...

[sonata]

Не думала, что все так просто окажется....
Ошибка всего лишь в строчке:
Cells(i, 2).value = Cells(i, 1).value
вместо i должно быть j.Но почему? Как это объяснить?

[Tony]

знаешь трудно объяснить... не возьмусь... я пытался разобраться зачем тут два цикла.... и сломал не только голову но и карандаш в руке... (хороший кстати карандаш ) А в таких случаях проще представить как бы сам сделал... и решение не замедлило себя ждать... как то так...

[GSerg]

Соната!!!
А я всё думаю - когда же зайдёт снова?
Лови.

[sonata]

Спасибо!
Красивое решение!Но для меня уж больно вумное!
Хотя, надо всегда стремиться к совершенству!!! :!:
Например, что-такое
PatternRange.Sort PatternRange.Cells(1), xlAscending???
Но, все равно спасибо!Мне приятно, что меня еже не забыли!

[GSerg]

Это фулпруф на случай, если исходные данные не отсортированы. Потому что только когда они отсортированы, сей алгоритм будет работать правильно. Иначе - два цикла
Команда PatternRange.Sort PatternRange.Cells(1), xlAscending означает: Сортировать диапазон PatternRange (не трогая остальное) по первому столбцу (а других нет) в порядке возрастания.

[Штурман]

а мой код не работает?