ReAnima, китин, SLAVICK, Всем спасибо, но это не совсем то что я хотел... я говорил про ПЕРЕМЕСТИТЬ... Вообщем если переместить невозможно то покажите как сделать чтоб каждая четная строка была во втором столбце, а каждая нечетная в третьем... [moder]А почему Вы не сделали в своем файле желаемый результат?
ReAnima, китин, SLAVICK, Всем спасибо, но это не совсем то что я хотел... я говорил про ПЕРЕМЕСТИТЬ... Вообщем если переместить невозможно то покажите как сделать чтоб каждая четная строка была во втором столбце, а каждая нечетная в третьем... [moder]А почему Вы не сделали в своем файле желаемый результат?kioki
Сообщение отредактировал _Boroda_ - Среда, 20.01.2016, 14:48
я говорил про ПЕРЕМЕСТИТЬ... Вообщем если переместить невозможно то покажите как сделать чтоб каждая четная строка была во втором столбце, а каждая нечетная в третьем.
1. В столбце B протягиваете в диапазоне B1:B80 чередующиеся значения 1, 2, 1, 2, 1, 2...1, 2, как признаки нечетности и четности. 2. В столбце C протягиваете в диапазоне C1:C80 значения от 1 до 80, т.е. фактически фиксируете исходный порядок строк. 3. Сортируете имеющиеся 3 столбца по возрастанию по столбцам B и C. 4. Дальше, думаю, всё понятно - выделяете мышкой и перетаскиванием пристраиваете блоки клеток с "1" и "2" друг к другу как надо. 5. Лишнее - удаляете.
я говорил про ПЕРЕМЕСТИТЬ... Вообщем если переместить невозможно то покажите как сделать чтоб каждая четная строка была во втором столбце, а каждая нечетная в третьем.
1. В столбце B протягиваете в диапазоне B1:B80 чередующиеся значения 1, 2, 1, 2, 1, 2...1, 2, как признаки нечетности и четности. 2. В столбце C протягиваете в диапазоне C1:C80 значения от 1 до 80, т.е. фактически фиксируете исходный порядок строк. 3. Сортируете имеющиеся 3 столбца по возрастанию по столбцам B и C. 4. Дальше, думаю, всё понятно - выделяете мышкой и перетаскиванием пристраиваете блоки клеток с "1" и "2" друг к другу как надо. 5. Лишнее - удаляете.Gustav
Sub www() Dim i&, s& s = 1 For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 2 Cells(s, 3) = Cells(i, 1) Cells(s, 2) = Cells(i + 1, 1) s = s + 1 Next End Sub
[/vba]
А если макросом? [vba]
Код
Sub www() Dim i&, s& s = 1 For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 2 Cells(s, 3) = Cells(i, 1) Cells(s, 2) = Cells(i + 1, 1) s = s + 1 Next End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
