Цикл с проверкой значений в столбе по строчно...

[Richard123]

Добрый день.

Подскажите пожалуйста, как написать цикл, в котором выполнялось бы следующие:
Проверка значений в определенной колонке (например "C:C"), где, в случае если следующие значение (следующая строка) отличное от другого, происходило бы добавление строки.

Что есть: Выгрузка из 1С, и офис 2007.

Что нужно на "выходе":
Есть список моделей с некоторыми выходными данными, которые нужно разбить на группки, вставив пустые строки (чтобы сделать "разрывы)"

Чуть дальше задача будет ещё усложняться...
Вставить диаграммы, которые будут данные по модели (то что было разбито) подтягивать. В диаграмме по 2-3 графика. Окончательный вариант будет выглядеть так: 2-4 полосы данных по модели, График, пропуск, данные по другой модели, график... и т.д. Вообще можно ли так сделать? (Но это потом...)

[Hugo121]

Вставить строки нетрудно:

Sub tt()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert
Next
End Sub

[Richard123]

Спасибо) Работает, но только если список по которому нужно делать проверку идет 1-ым. А если он 3? (вставляет просто пустые строки сразу после шапки) А если надо не 1 строку вставить а скажем 3-4, тогда какой "оператор" меняется?

Уважаемый Hugo121! А Вы можете дать комментарии по коду, чтобы мог поучиться на примере?

Большое Вам спасибо за макрос)

[Hugo121]

Sub tt()
'объявляем переменную
Dim i As Long
'цикл от последней заполненной ячейки первой колонки до второй ячейки, снизу вверх
'т.е. если нужна другая колонка - меняйте первую единицу на нужный номер
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
'сравнение значений. ", 1" - это номер столбца!!!
If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert
Next
End Sub

Если нужно вставить больше строк - просто продублируйте процедуру:

If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert: Rows(i).Insert: Rows(i).Insert

Хотя вероятно есть способ поэлегантнее, если например 100 строк добавить нужно. Но я сейчас синтаксис не знаю.
Хотя нет, нащупал:

If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Resize(3).Insert

[Richard123]

Правильно ли я понимаю что:

Cells(i, 1)

Ячейка (номер строки, номер столбца). А в самом начале объявили (DIM) что i = long (параметр длины?)

If Cells(i, 1) <> Cells(i - 1, 1)

Это условие "ЕСЛИ", Ячейка (номер строки, номер столбца), не равна (<>), ячейке которая расположена (строка (текущие положение - 1) (т.е. на верх? ), столбец тот же)

Rows(i).Resize(3).Insert

Строки( i-ый диапазон). Расширить(?). вставить

так?

[Hugo121]

Всё правильно, если принять, что Long - это длина
Хотя это немного другое - это тип переменной. Длиннее, чем Integer.
Если задать Dim i As Integer, то может "длины" не хватить на весь лист, ибо предел 32,767:
The Integer and Long data types can both hold positive or negative values. The difference between them is their size: Integer variables can hold values between -32,768 and 32,767, while Long variables can range from -2,147,483,648 to 2,147,483,647. Traditionally, VBA programmers have used integers to hold small numbers, because they required less memory. In recent versions, however, VBA converts all integer values to type Long, even if they are declared as type Integer. Therefore, there is no longer a performance advantage to using Integer variables; in fact, Long variables might be slightly faster because VBA does not have to convert them.

[Richard123]

По поводу длины понял)))
Спасибо за справку))

А с усложненной задачей как быть?
Дано:
Model1|status1|a1|a2|a3|...|aN|
Model1|status2|a1|a2|a3|...|aN|
Model2|status1|a1|a2|a3|...|aN|
Model2|status2|a1|a2|a3|...|aN|
Где:
ModelN - это номер модели, который имеет от 3 до 4 состояний (status)
a1-aN - это целочисленные значения, где 1...N это порядковый номер, т.е. номер "недели" (он находится в шапке над таблицой)
Нужно:
Подтянуть эти данные в диаграмму, где каждый "Status" это кривая а A1-AN это значения кривой.

Вот это должно быть до вставления пустой строки. =)

[Hugo121]

Я пас, с диаграммами не практиковался.

[Richard123]

Тогда, большое спасибо за науку)

[Richard123]

Вопрос - а можно ли все значения объявлять как Long? или система начнет тормозить?