Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

упордочивание массиво данных в экселе

Автор Кристина Галактионова, 28.07.2013, 17:41

« назад - далее »

Кристина Галактионова

Подскажите,плиз. Вот на рисунке виден порядок столбцов от конфронта до положит. А можно их порядок поменять, чтобы сначала шел параметр положит, потом планиров и так до конфронта. Естественно, чтобы они сохранили свои значения:)

Шпец Докапыч

Можно. Последовательность действий такая:
1. Кликаем ПКМ по заголовку столбца "P" → Вырезать
2. Кликаем ПКМ по заголовку столбца "I" → Вставить вырезанные ячейки
3. Затем "P" перед "J", "P" перед "K" и т.д.
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

_Boroda_

Еще вариант:
Кликаем ЛЕВОЙ кнопкой мыши по букве Р (заголовок столбца). Выделяется весь столбик Р. Топаем левой кнопкой мыши на левую или правую боковую границу выделения этого столбика (жирная такая вертикальная линия) и, не отпуская кнопку мыши и держа при этом нажатой клавишу Шифт, тянем эту границе на нужное место (между столбцами Н и I). Когда притянули, отпускаем сначала кнопку мыши, потом Шифт. Итог - столбец Р перемещается и становится столбцом I, а остальные столбцы смещаются вправо.
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Кристина Галактионова

Спасибки:), но можно этот процесс как то автоматизировать, потому что тут несколько табличек, а бывает ,что их сотни.
так вручную жутко долго будет))

ShAM

Если столбцы I-P одни и те же для всех таблиц, то макросом можно:
Sub Макрос1()
Dim i
Application.ScreenUpdating = False
For i = 9 To 15
    Columns(16).Cut
    Columns(i).Insert Shift:=xlToRight
Next i
Application.ScreenUpdating = True
End Sub