Страница 1 из 1
Как выбрать четные "нечетные" строки
Добавлено: 24 дек 2007, 12:37
Nahren
На основании одного столбца надо создать 2 других в одном четные строки исходного а в др нечетные строки.
Re: Как выбрать четные "нечетные" строки
Добавлено: 24 дек 2007, 13:52
Serge_Bliznykov
я бы добавил ещё один столбец, в нёго записал формулу
=ОСТАТ(СТРОКА(B1);2)
потом по нему отсортировал (или тупо отфильтровал)
и ручками скопировал данные - сначала нечётные, потом чётные...
это если работа разовая.
Если нужно делать такое постоянно - то можно либо через ссылки на строки, либо макросом перенести данные...
Re: Как выбрать четные "нечетные" строки
Добавлено: 24 дек 2007, 20:56
Avsha
Столбец D=1,2,3,4
=ИНДЕКС(A:A;(D1-1)*2+1)
=ИНДЕКС(A:A;(D1)*2)
Re: Как выбрать четные "нечетные" строки
Добавлено: 25 дек 2007, 08:42
Nahren
Благодарю за помошь!
Re: Как выбрать четные "нечетные" строки
Добавлено: 23 май 2013, 14:29
_Den_
А как это же записать в виде макроса?
т.к. частая операция.
только нужно что бы получилось 2 столбца
1 четные 2 нечетные
Re: Как выбрать четные "нечетные" строки
Добавлено: 29 май 2013, 11:20
SAS888
Пусть данные расположены в столбце "A", начиная с ячейки "A1".
Результат разделения четных и нечетных строк расположить в столбцах "A" и "B".
Можно так:
Код: Выделить всё
Sub Main()
Dim i As Long, j As Long, a()
Application.ScreenUpdating = False: j = 1
ReDim a(1 To Fix(Cells(Rows.Count, 1).End(xlUp).Row / 2) + 1, 1 To 2)
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
a(j, 1) = Cells(i, 1): a(j, 2) = Cells(i + 1, 1): j = j + 1
Next
[A:B].ClearContents
[A1].Resize(UBound(a, 1), UBound(a, 2)).Value = a
End Sub
Пример во вложении. Откройте файл и запустите макрос "Main".