Как поменять строки и столбцы местами в excel

Как поменять местами (транспонировать) строки и столбцы в Excel 2013

Представьте, что Вы оформили все заголовки строк и столбцов, ввели все данные на рабочий лист Excel, а затем обнаружили, что таблица смотрелась бы лучше, если ее перевернуть, т.е. поменять местами строки и столбцы. Что делать в такой ситуации?

В Excel существует простой способ преобразовать строки в столбцы и наоборот при помощи инструмента Transpose (Транспонировать). Далее мы покажем, как это сделать.

1. Выделите ячейки, содержащие заголовки, и данные, которые Вы хотите транспонировать.
2. Нажмите команду Copy (Копировать) или сочетание клавиш Ctrl+C.
3. Выберите пустую ячейку на листе. Эта ячейка будет верхним левым углом Вашей новой таблицы.
4. Из выпадающего меню команды Paste (Вставить) выберите пункт Paste Special (Специальная вставка).
5. В диалоговом окне Paste Special (Специальная вставка), установите флажок Transpose (Транспонировать) и нажмите OK.
6. Строки и столбцы поменяются местами. Исходные данные при этом сохранятся. При желании их можно выделить и удалить.

Согласитесь, что транспонировать диапазон проще, нежели набирать всю таблицу заново.

Как в excel поменять строки и столбцы местами

​Смотрите также​ размещаются вверху. Например,​ в правом нижнем​Перенос данных вручную,​ чтобы курсор поменялся.​ Е перенести в​ попробовать представляться, обращаясь​ нашла это только​ линией.​, столбец Европа будет​Чтобы поменять столбцы таблицы​ колонок и наоборот,​ порядок расположения записей​ мыши. Затем отметьте​

Перемещение столбца в таблице

​ новой колонки и​ куда необходимо их​ превратился в значок​Как и в любой​ если копируются данные​ углу диалогового окна.​ поэлементно, — процесс​ Давим на левую​ А, при этом​ за помощью. ​ в 2010 версии​Аналогичным образом можно поменять​ заменен на столбец​ местами — воспользуйтесь​

​ проще говоря, поменять​ в таблице: поднять​ колонку, перед которой​ вставьте скопированные данные​ поместить. Выделите графу,​ скрещенных двунаправленных стрелок.​ деятельности, не всегда​ из столбцов A​Данные будут вставлены​ утомительный. Чтобы сэкономить​ мышу и не​ А должна не​Guest​Hugo​ местами строки листа,​ Азия.​ клавишей​

Вставка столбцов

​ местами столбцы и​ выше одни, опустить​ нужно добавить данные,​ с помощью правой​ перед которой будет​Теперь, если у вас​ при работе с​ и B одного​ в строку или​ время, можно использовать​ отпуская кнопки тащим​ пропасть, не замениться,​: Есть — «транпонировать»,​: Специальная вставка есть​ предварительно выделив их​ВНИМАНИЕ!​SHIFT​ строки. В Excel​ ниже другие. Не​ и выполните операцию​

​ кнопки мыши, операции​ размещена вставкаы, и​ версия Excel 2007,​ файлом Excel удается​ листа, а затем​ столбец Excel начиная​ команду Специальная вставка​ колонку в сторону​ а сдвинуться право​ можно строку, поле,​ и в 2000.​ за заголовки.​

​Если Книге дан​.​ есть возможность осуществить​ всегда с такой​ «Вставить вырезанные ячейки».​ «Вставить» на панели​ вставьте пустой столбец.​ просто перетащите столбец​

​ с первого раза​ эти данные вставляются​ с первой ячейки.​ для быстрого преобразования​ (клавишу SHIFT уже​ (на В, например)​ диапазон.​Юрий М​Sober​ Общий доступ (установлена​Пусть имеется таблица с​ такую операцию.​ задачей можно справиться​

​Многих беспокоит вопрос, сохранятся​ буфера обмена или​ Это можно сделать​ на новое место.​ построить таблицу и​ в другой лист​Примечание. ​ столбца данных в​ можна опустить=) Перенесли,​ или вкакую другую​А что-то не​

​: В 2003 найдите​: Привет всем!​ галочка в меню​ несколькими столбцами.​Для этого скопируйте всю​ с помощью сортировки.​ ли данные, формулы​ сочетанием Ctrl+V.​ с помощью контекстного​ Если версия вашей​ внести данные таким​ начиная с первой​

​Столбцы и строки​ строку или наоборот.​ оставляем мышь в​ сторону :)​ получилось 🙁 Очень​ в мастере функций​Вопрос, есть ли​ Рецензирование/ Изменения/ Доступ​

Перемещение строк

​Необходимо поменять местами столбцы​ таблицу, выберите новое​ И тогда приходится​ и вычисления после​После того, как поменяли​ меню «Вставить» или​ программы 2010 и​ образом, чтобы это​ строки, данные из​ не должны пересекаться.​

​Перенос данных между​ покое.​Сортировка не прокатывает​ хотелось бы колонку​ ТРАНСП()​ в 2007 Ехеле​ к книге), то​ Азия и Европа.​ место, где будет​ перемещать строки вручную.​ того, как поменяются​ местами столбцы в​ пункта «Вставить» панели​

Меняем местами столбцы и строки

​ выше, перетаскивание нужно​ не потребовало изменений​ столбца A размещаются​ Например, если вы​ строками и столбцами​. ​Предложенный способ тоже​ Е перенести в​Возвращает вертикальный диапазон​ возможность поменять в​

​ перемещение строк и​ Для этого щелкнем​ находиться ее измененный​Передвинуть строку или ряд​ местами столбцы. В​ Excel, в нашей​ инструментов «Ячейки» на​ делать с нажатой​ в будущем. В​ в строке 1,​ выбрали значения в​Скопируйте данные из​Мария​

​Можно попробовать «вырезать»​ А, при этом​ ячеек в виде​ таблице строки и​ столбцов с помощью​ по заголовку столбца​

​ (транспонированный) вариант и​

Перемещаем в MS EXCEL столбцы и строки в таблице

​ строк можно так​ Excel при копировании-вставке​ таблице получилось две​​ закладке «Главная». Вам​​ кнопкой Shift. Таким​

​ частности, случаются ситуации,​ из столбца B​

​ столбце C и​ одного или нескольких​: Преобразование столбцов в​ и «вставить», но​​ А должна не​​ горизонтального и наоборот.​ столбцы местами так,​ клавиши​D​ для вставки нажмите​ же, как поменять​​ формулы в ячейках​​ одинаковых колонки. Старую​ нужен элемент «Вставить​​ образом можно переместить​​ когда необходимо изменить​ — в строке​

​ пытаетесь вставить их​​ столбцов или строк.​​ строки и строк​ неужели нельзя просто​ пропасть, не замениться,​

​Guest​​ чтобы соответственно поменялись​SHIFT​(Азия). Взявшись за​ правую клавишу мыши.​ местами столбцы в​ продолжают ссылаться на​ можно убрать, выделив​ столбцы на лист».​​ один или несколько​​ местоположение элементов: столбцов​

​ 2 и т.​ в строку, пересекающуюся​Перед вставкой скопированных​​ в столбцы​​ перетащить?​ а сдвинуться право​:​ и данные внутри​работать не будет!​ границу области выделения​ Выберите параметр вставки​ Excel. То есть​ поля старого диапазона.​

​ ее и выбрав​Далее выделите нужную колонку​ столбцов. Если нужно​ или строк.​

Как поменять в таблице строки и столбцы местами?

​ д.​​ с этим столбцом,​
​ данных щелкните правой​Предположим, имеется столбец​Guest​ (на В, например)​Z​ таблицы?​В случае использования таблиц​ (на рисунке ниже​

​ «Транспонировать» и нажмите​​ выделением нужных записей​ Соответственно, при удалении​ в меню правой​

​ и скопируйте ее.​​ передвинуть смежные столбцы,​

​Чтобы в Excel поменять​​Если команда Специальная​ в Excel появится​

​ кнопкой мыши первую​​ с текстом:​: Проблема решена (эксель​ или вкакую другую​

​: ​​Guest​ в формате EXCEL​

​ — 2 черные​​ кнопку. Аналогичная команда​ и перетаскиванием их​ старого столбца возникнет​
​ кнопки мыши пункт​ Для этого воспользуйтесь​ просто выделите их​

​ местами как столбцы,​​ вставка не отображается,​

​ сообщение об ошибке.​​ ячейку назначения (первая​
​Молочные продукты​
​ 2003).​

​ сторону :)​​Есть! Читай выше.​

​: Есть — «транпонировать»,​​ 2007, клавишу​

​ жирные вертикальные линии)​​ есть и в​ с зажатой клавишей​

​ ошибка.​​ «Удалить» или воспользовавшись​ кнопкой «Копировать» на​ мышью. Для выделения​

​ так и строки,​​ убедитесь, что вы​ При вставке столбца​ ячейка строки или​

​Мясо​Необходимо кликнуть по​Сортировка не прокатывает​18798​ можно строку, поле,​SHIFT​ и нажав клавишу​ меню «Вставить» панели​ Shift в нужное​При вставке вырезанной колонки​ элементом «Удалить столбцы​

​ панели инструментов «Буфер​
​ несмежных колонок воспользуйтесь​

​ существует несколько способов.​ щелкнули первую ячейку​ или строки область​ столбца, в которые​

​Напитки​​ интересуемой колонке (прямо​Предложенный способ тоже​Guest​ диапазон.​нажимать не нужно.​SHIFT​ буфера обмена.​ место (или без​ эта процедура проводится​ с листа» панели​ обмена» закладки «Главная».​

​ кнопкой Ctrl.​
​ Остановимся на перемещении​

​ назначения. Эту команду​ назначения должна находиться​ требуется вставить данные)​Овощи​

​ над данными, допустим​​Можно попробовать «вырезать»​: ​
​Sober​ Выделив заголовок столбца​, переместим столбец влево.​С помощью приведенной информации​ Shift в Excel​ безболезненно,. Вся содержащаяся​ «Ячейки».​ Еще один метод​Еще один способ изменения​ колонок. Выделите графу,​ можно также найти​ вне области исходных​ и выберите команду​Требуется преобразовать его​ A,B,C,D или любой​ и «вставить», но​Guest​: Спасибо большое!​ (ячейка со значением​

Пожалйста! как поменять в excel строки и столбцы местами.

​ Место вставки столбца​

​ вы в будущем​​ 2007) или методом​ в перемещенных колонках​Чтобы избежать удаления колонки​
​ – использовать контекстное​ порядкового номера графы​
​ которую нужно переместить​
​ в меню Правка.​
​ значений.​
​ Специальная вставка.​
​ в строку:​ другой). При этом,​
​ неужели нельзя просто​: ​
​Дана​ Азия), нужно, взявшись​D​
​ без труда сможете​ вырезания и вставки.​ информация сохранится, а​ вместо копирования, примените​ меню правого клика​ – копирование и​ в другое место,​ Если команда по-прежнему​
​В Excel при​В диалоговом окне​
​Молочные продукты Мясо​ вся колонка выделится.​ перетащить?​
​Юрий М​: чёрт, я не​ за границу ячейки,​будет отмечено вертикальной​ изменить расположение записей​Но иногда задача стоит​ ссылки в ячейках​ вырезания. Выделив столбец,​ мыши «Копировать». И,​
​ вставка. Перед тем​ нажатием на заголовок.​ не отображается, проверьте,​ копировании и вставке​
​ Специальная вставка выберите​ Напитки Овощи​ Нажать и не​
​Guest​: А без цитирования​ поняла, как это​ переместить столбец влево.​
​ линией.​
​ и колонок в​ сложнее – сделать​ перенаправляются на новое​ примените команду «Вырезать»​ наконец, просто нажатие​ как поменять местами​ Переместите курсор мыши​ что используется Excel​ данных из нескольких​ транспонировать и нажмите​Или, возможно, появилась​ отпускать SHIFT, затем​: А что-то не​ попробовать?​Дана​
​ Место вставки столбца​Без нажатия клавиши​ программе Excel.​ так, чтобы заголовки​ расположение данных.​ с панели инструментов​ комбинации Ctrl+C.​ столбцы в Excel,​ к краю выделенной​ 2000 или более​ столбцов данные из​ кнопку ОК.​ необходимость преобразовать строку​ подносим стрелочку справа​ получилось 🙁 Очень​KuklP​: Спасибо, поняла, но​ будет отмечено вертикальной​SHIFT​Автор: Татьяна Казмирчук​
​ записей стали заголовками​Зачастую пользователю нужно изменить​ или контекстного меню​Затем выделите верхнюю ячейку​ определитесь с колонкой,​ области, чтобы он​ поздняя версия Excel.​ самого левого столбца​Флажок транспонировать находится​ данных в столбец.​ от колонки так,​ хотелось бы колонку​

Как менять местами столбцы и строки в Microsoft Excel

В программе Microsoft Excel есть множество удобных функций для создания и настройки таблиц. Иногда таблицу бывает нужно изменить уже после того, как все данные введены. Возможно, вам нужно поменять столбцы и строки местами или наоборот. К счастью, делается это очень легко, и ниже мы расскажем как.

Как менять местами столбцы и строки

Допустим, вы ввели заголовки пунктов в столбец, но потом решили, что они лучше будут смотреться в строке. В таком случае их можно поменять местами.

1) Выделите таблицу, которую хотите изменить. Можете нажать на первую ячейку и перетянуть курсор в конец таблицы или нажать на первую ячейку и, зажав клавишу Shift, нажать на последнюю ячейку.

2) Скопируйте таблицу. Это можно сделать как обычно или сочетанием клавиш Command + C.

3) Выберите ячейку там, куда хотите вставить новую таблицу.

4) В меню с опциями (ПКМ) выберите Специальная вставка и нажмите значок Транспортировать, выделенный на скриншоте ниже.

После этого вы получите новую таблицу, столбцы и строки в которой поменяются местами.

Как транспортировать несколько ячеек

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

В Microsoft Excel доступен огромный набор опций для создания таблиц. Здесь вы найдёте все инструменты для удобной работы с ними. Надеемся, что наша инструкция вам помогла.

Excel понятным языком: быстрое перемещение строк и столбцов ⁠ ⁠

Бывают ситуации, когда нужно поменять строки или столбцы местами.

Вот схема, как это быстро сделать:

1. Выделите строку или столбец;

2. Зажмите и удерживайте клавишу SHIFT;

3. Наведите курсор мыши на границу выделенной строки или столбца, зажмите левую кнопку мыши;

4. Перетащите строку или столбец в необходимое место;

661 пост 14.8K подписчиков

Правила сообщества

2. Публиковать посты соответствующие тематике сообщества

3. Проявлять уважение к пользователям

4. Не допускается публикация постов с вопросами, ответы на которые легко найти с помощью любого поискового сайта.

По интересующим вопросам можно обратиться к автору поста схожей тематики, либо к пользователям в комментариях

Важно — сообщество призвано помочь, а не постебаться над постами авторов! Помните, не все обладают 100 процентными знаниями и навыками работы с Office. Хотя вы и можете написать, что вы знали об описываемом приёме раньше, пост неинтересный и т.п. и т.д., просьба воздержаться от подобных комментариев, вместо этого предложите способ лучше, либо дополните его своей полезной информацией и вам будут благодарны пользователи.

Утверждения вроде «пост — отстой», это оскорбление автора и будет наказываться баном.

Спасибо, полезная штука

Читать ещё на Пикабу

Обоснуй⁠ ⁠

Кадровики, в чем смысл накопления трудовых в ОК?⁠ ⁠

Одна моя знакомая устроилась на работу. Хотела по совместительству, но ей непосредственная начальница сказала, что нельзя. На вопрос, почему, ответила, что лучше более высокого начальника даже не спрашивать, «у них не принято». В бухгалтерии, однако, возразили, что можно, и даже помогли написать правильное заявление. «Более высокий» начальник, увидев это заявление, рассвирепел, устроил истерику, заявление порвал, бухгалтершу уволил. Теперь выясняется, что совмещать все же можно, но при условии, что трудовая лежит здесь, а не на старой работе.

Смысл этого нам неясен, вопросов, как вы помните, задавать нельзя.

Быть может, кто-то объяснит, в чем выгода собирания трудовых книжек?

Вы недооформились! (Снова о кадровиках)⁠ ⁠

Устроился на новую работу. В первый день на оформлении выдали кучу документов на подпись: и согласие на обработку персональных данных, и заявление на перечисление зарплаты на карту (с реквизитами), и трудовой договор, и ознакомление во всех журналах со всеми регламентами и инструктажами. Пол дня всё это заняло.

День на третий видит меня кадровичка в коридоре и издалека на всю контору кричит:

К: VanyaDW, подождите, подойдите ко мне! Вы недооформились!

Я, естественно, в непонятках, спрашиваю, что это значит?

К: Вы не предоставили (!) заявление с банковскими реквизитами, бухгалтерия теперь не знает, куда вам зарплату перечислять!

Я: Что значит «я не предоставил»?

А меня разозлило так.

Я: Вы серьезно думаете, что мне дали бланк, а я его принципиально заполнять не стал? Чтобы предприятие мне зарплату не могло заплатить? Может быть, это вы просто предоставленный документ потеряли?

К: Ой, ну может быть, сотрудница просто не приложила! Вы только так не нервничайте!

Нравится мне этот подход: не «Мы — курицы, ваш документ потеряли, извините. «, а «Вы недооформились!».

Ответ на пост «Кадровики-формалисты на страже уровня зарплаты»⁠ ⁠

Год назад уволился по сокращению отдела, бюджетная организация. 21 год проработал. Уволился с радостью, 40 с лишним офицального трудового стажа, из них 15 лет Крайнего Севера. Пенсионер МВД с 1998 г. Никуда не устроился и не собираюсь. Что бы там не пели терешковы и им подобные, ранняя заработанная неплохая пенсия — это прекрасно.
При увольнении кадры сделали всё правильно, но в бухгалтерии молодая расчетчица насчитала выплаты по сокращению в полтора раза меньше, чем положено по ТК. Устные претензии бухгалтерия не приняла — «программа так считает».
Ранее я писал жалобы своему руководителю про график работы, оплату сверхурочных, несвоевременную выплату ночных. Вопросы решались положительно для меня. Написал и на этот раз, выплатили всё как положено.
Недавно звонок от приятеля, там работает. В ходе разговора сказал, что зам. (тот вообще под 30 лет там проработал) вспоминал меня «добрым» словом, мол, был такой редиска-жалобщик, и уволить его до сокращения никак не получалось, и премии лишить никак.
Мне было приятно.

Если человек не подошёл к нам в компанию, так , что , он не человек?⁠ ⁠

Я тот самый сотрудник отдела кадров, который всегда перезванивает кандидатам, которые не подошли на открытую вакансию. Делать мне это приходится либо по дороге домой, либо уже дома, так как в кабинете или в здании офиса я это делать не могу. Видите ли, политика очень известной компании не позволяет себе такие «слабости», а я прекрасно помню себя, когда пропускала неплохие варианты из-за того, что надеялась на звонок из более хорошего места.

Ответ Faruga в «Хобби при собеседовании»⁠ ⁠

А я как-то проходила собеседование в одну фирму. Уже пообщалась с двумя руководителями, определили, что меня надо в другой отдел, пообщалась с руководителем этого отдела. В конце решили направить меня к генеральному директору, тоже пообщаться познакомиться. Не помню что он у меня спрашивал, как-то просто непринуждённо поговорили, а потом он говорит что всегда задаёт соискателям один вопрос: кубический корень из 27. Я конечно ответила) Работа если что не тесно связана с математикой. Видимо так он проверяет насколько человек свой. В эту компанию меня взяли, но я в итоге осталась на предыдущей работе, потому что когда там узнали, что я ухожу, смогли уговорить остаться.

Ответ на пост «Работничек»⁠ ⁠

Дают задачу для доработки бекенда. Там простой фикс, говорили они. Думаешь, сейчас сделаешь за 20 минут и готово, но там:

1. Название задачи «Нужно починить сайт»
2. Есть сваггер, последнее обновление год назад
3. Схема запросов, ответов и описание никто не актуализировал
4. Описание задачи максимально абстрактное, очевидно, писал менеджер
5. Разработчик, который писал код, уволился полгода назад
6. Менеджер ушёл в отпуск
7. Дедлайн через пару дней в пятницу
8. У тебя испытательный срок

Работничек⁠ ⁠

EXCEL — ЭТИ СТРАШНЫЕ МАКРОСЫ – НАЧАЛО⁠ ⁠

Я решил с двух ног ворваться в тему макросов.

Кто-то про них слышал, кто-то даже видел, отдельные сверхразумы их даже использовали. Сегодня будет ознакомительный пост: что это вообще такое и как с этим начать работать. Обратите внимание – этот пост тех, кто не знает, что такое макросы и никогда с ними не работал

Первым делом нужно включить вкладку «Разработчик». По умолчанию в Excel ее спрятали, чтобы не взорвать мозг юзерам. Идем в Параметры -> Настройка ленты -> Основные вкладки -> Разработчик (поставить галочку).

Теперь идем в эту вкладку, нажимаем «Записать макрос» выбираем имя жмакаем «ок». Все, теперь любые действия в Excel надежным образом записываются.

Давайте теперь что-то сделаем. На пример поменяем заливку ячейки А1, в ячейку A2 напишем значение «Мама, я программист», а в ячейке А3 пропишем формулу текущей даты «=Сегодня()»

Останавливаем запись макроса. Нажимаем иконку «Макросы», выбираем наш макрос как мы его обозвали, нажимаем кнопку «изменить».

Появляется окно Microsoft Visual Basic for Applications. Кстати оно также вызывается комбинацией клавиш (Alt + F11) У меня почему-то вызывается только левым Altом, а правым нет, видимо намекая на то что для написания макросов лучше иметь 2 руки (хотя я и одной нажать могу). Появился редактор языка VBA – это язык, который написан специально под офис чтобы на нем писать макросы. В основном окне видим саму эту запись, которую автоматически сделал Excel.

Sub Макрос2()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range(«A2»).Select
ActiveCell.FormulaR1C1 = «Мама, я программист»
Range(«A3»).Select
ActiveCell.FormulaR1C1 = «=TODAY()»
Range(«A4»).Select
End Sub

Такой инструмент автоматической записи называется макрорекордер, по началу он хорошо помогает вообще понять, что происходит. Теперь давайте разберемся как выглядит записанный макрос (записанный макрос у автора этой статьи может различаться с записанным макросом у вас поскольку форма записи с макроса зависит от последовательности нажатий, способах ввода информации и криворукости пользователь, в любом случае автор этой статьи снимает с себя всю ответственность за любые действия которые привели или могут привести к изменению годовых отчетов, искажению пространственное – временного континуума и прочих непредвиденных вымираний.)

Теперь давайте разбираться что делает этот макрос

Sub Макрос2()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With

(Весь этот кусок от начала говорит нам о том, что с тем элементом что был выделен ранее происходит некоторое дерьмо, в том числе изменение цвета. Вот там, где Color = 255. Все остальное это параметры заливки, которые по итогу не менялись, но макрорекордер решил их тоже записать, на всякий. Это связано с внутренними особенностями работы excel как я понял. Вообще привыкайте к тому что макрорекордер пишет много того что потом вообще можно удалить. Конструкция With – End With позволяет делать несколько действий с одним объектом, на пример выше берется объект Selection.Interior, то есть фон выбранной области и ряду параметров этой заливки назначаются конкретные значения. То есть With нужен для облегчения записи кода, чтобы Selection.Interior не писать вначале каждой строчки.

Range(«A2»).Select –выделяем ячейку «A2»
ActiveCell.FormulaR1C1 = «Мама, я программист» – пишем в ячейку значение
Range(«A3»).Select – выделяем ячейку «А3»
ActiveCell.FormulaR1C1 = «=TODAY()» –пишем в ячейку формулу
Range(«A4»).Select – зачем то выделяем ячейку А4.
End Sub

Теперь при создании нового листа и запуске этого макроса он будет делать все то же самое.

Тут стоит понимать, что половину того что записал макрос можно опустить, так как нам важен результат, а не путь по которому к этому результату пришли, а макрорекордер записывает именно путь. На пример вместо всей конструкции With можно записать

так как мы точно знаем, что хотим поменять только цвет в ячейке А1. Также вместо того чтобы выделять ячейку, а потом в активной ячейке писать формулу можно сразу записать нужное значение в ячейку

Range(“A2”).Value = ”Мама, я программист”

или писать формулу как в третей ячейке

С формулами и значениями лично мне не понятно, как excel их интерпретирует, но в макрорекордре он записывает любой ввод в ячейку как ввод формулы. Благо лично у меня при написании макросов не возникает необходимости писать формулы в ячейки. На пример вместо вставки формулы как это было выше можно написать Range(“A3”).Value = Date(), тогда макрос вставит сразу текущую дату в ячейку как значение.

Опытные макроделы пишут макросы сразу без их записи макрорекордером, но это полезный инструмент для самостоятельного изучения при написании макросов: если не знаешь, что как делается в VBА то запускаешь и делаешь, потом смотришь что он там написал.

Теперь давайте напишем какой ни будь полезный макрос, я буду писать строчки и как можно подробнее их комментировать. Комментарии от программы отделяются символом «‘», он ставится вначале комментария. Прошу учесть, что я самоучка и многого не знаю, и просто напишу так ка делаю это сам, возможно есть более изящные решения. Напоминаю, что это просто ознакомительный опус для тех, кто не в зуб ногой.

Sub Colorization()
‘начало нашего макроса и его название
Dim x As Integer
‘объявляем переменную х типа интеджер, это тип для целых чисел от -32 768 до 32 767 (2 байта),
‘она нам нужна для перебора ячеек
For x = 1 To ActiveSheet.UsedRange.Rows.Count
‘перебираем х от 1 до конца использованной части листа, то есть не весь лист, а там где есть данные.
‘Тут цикл For повторяется от этой строки до строки Next x, которая прописана ниже
If Cells(x, 1).Value = «красный» Then Cells(x, 1).Interior.Color = RGB(255, 0, 0)
‘если значение в ячейке равно «красный» то закрашиваем ячейку в красный цвет. Функция If выполняет часть
‘после Then если условие между If и Then верно. Так как у нас необходимое действие занимает одну
‘строку можно писать в таком виде, если же действий несколько применяется конструкция:
‘If … Then
‘…
‘…
‘End If
If Cells(x, 1).Value = «зеленый» Then Cells(x, 1).Interior.Color = RGB(0, 255, 0)
‘как выше только в зеленый цвет
If Cells(x, 1).Value = «синий» Then Cells(x, 1).Interior.Color = RGB(0, 0, 255)
‘в синий цвет
Next x ‘берем следующее значение х, конец цикла For, который мы начали выше
End Sub ‘конец макроса
Как работает этот макрос: берет первый столбец, сначала 1 ячейку, смотрит что в ней написано, и если это равно «красный», «зеленый» или «синий», то красит фон ячейки в этот цвет, если нет по пропускает. Потом берет вторую и т. д. до конца активной части текущего листа.
Для проверки работы макроса нам нужен лист, где в первом столбце будут случайным образом прописаны цвета «красный», «зеленый», «синий». Запускаем макрос – когда он отработает ячейки будут раскрашены:

Некоторые пояснения: если не писать просто Cells то макрос будет делать все в активном листе активного окна. Но макрос может идти и в другие листы, файлы, даже в другие приложения офиса, но об этом не сегодня.

После того, как макрос поработал с документом, не удастся кнопкой «назад» вернуть все изменения, так что, если данные важны, то сохраняйте их отдельно и макросом работайте с копией, макросы беспощадны.

Итак, на этом пока все. Надеюсь теперь те, кто никогда не видел макросов получат о них начальное представление. Дальше буду писать про более практичное применение.