Доброго времени суток уважаемые специалисты и просто гуру Excel. Помогите пожалуйста сделать цикл по сбору данных в массив не понимаю как цикл нормальный сделать Длинна записей разная всегда думаю решить методом отслеживание границ записей в столбце по строкам и запилить в массив таким образом
Доброго времени суток уважаемые специалисты и просто гуру Excel. Помогите пожалуйста сделать цикл по сбору данных в массив не понимаю как цикл нормальный сделать Длинна записей разная всегда думаю решить методом отслеживание границ записей в столбце по строкам и запилить в массив таким образомElhust
With ActiveSheet.Sort For Each r In Range("A1", Cells(Rows.Count, 1).End(xlUp)).SpecialCells(2).Areas With .SortFields .Clear .Add Key:=r.Offset(, 1), Order:=xlAscending, DataOption:=xlSortTextAsNumbers End With .SetRange r.Resize(, 2) .Apply Next r End With On Error Resume Next Range("A1", Cells(Rows.Count, 1).End(xlUp)).SpecialCells(4).EntireRow.Delete End Sub
[/vba]
Elhust, привет попробуйте [vba]
Код
Sub ertert() Dim r As Range
With ActiveSheet.Sort For Each r In Range("A1", Cells(Rows.Count, 1).End(xlUp)).SpecialCells(2).Areas With .SortFields .Clear .Add Key:=r.Offset(, 1), Order:=xlAscending, DataOption:=xlSortTextAsNumbers End With .SetRange r.Resize(, 2) .Apply Next r End With On Error Resume Next Range("A1", Cells(Rows.Count, 1).End(xlUp)).SpecialCells(4).EntireRow.Delete End Sub
nilem, Сори у меня на самом деле вопрос возник по поводу кода .. в какой момент он вставляет данные на лист обратно .. Это ? .. я запутался что то .. [vba]
Код
.SetRange r.Resize(, 2) .Apply
[/vba]
nilem, Сори у меня на самом деле вопрос возник по поводу кода .. в какой момент он вставляет данные на лист обратно .. Это ? .. я запутался что то .. [vba]
nilem, Привет ещё раз тут несколько усложнилась задача не понимаю я всё же как с сортировкой работать .. у меня есть таблица и значения которые мы получили в столбец нужно по этому списку отсортировать таблицу но каак я создал массив одномерный со списком
nilem, Привет ещё раз тут несколько усложнилась задача не понимаю я всё же как с сортировкой работать .. у меня есть таблица и значения которые мы получили в столбец нужно по этому списку отсортировать таблицу но каак я создал массив одномерный со спискомElhust