Автоматическое копирование столбца в excel

 

Можно ли в Excel сделать так чтобы например первые три столбца были одинаковы на всех листах книги, а остальные можно было редактировать. И при введении новых данных в эти три столбца они бы автоматически копировались на остальные листы книги.    
Спасибо заранее за компетентный ответ!

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

{quote}{login=Сну}{date=07.02.2009 10:58}{thema=автоматическое копирование данных на разные листы excel}{post} И при введении новых данных в эти три столбца они бы автоматически копировались на остальные листы книги.    
{/post}{/quote}  
Вопрос какой-то не конкретный: остальных листов сколько? Какой из листов будет являться эталонным для других?

 

например первый будет эталонным, хотя если информация первых 3х столбцов будет копироваться на остальные, то все листы (первые 3 столбца) будут одинаковыми

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

Да, все три первых столбца будут одинаковыми, но ведь нужно отслеживать изменения на каком-нибудь конкретном листе. И от него отталкиваться. Посмотрите дилетантский пример. Отслеживаются изменения в трёх столбцах на Лист1. Контролируются 100 строк. Можно больше, но с моим подходом это будет занимать большее время. Пытался контролировать диапазон по последней заполненной строке, но если удалили единственное значение из столбца, то где брать последнюю :-)  
Может кто предложит более грамотный подход. Наверняка он есть. Может что-то с массивами…?

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

А может просто тупо копировать все три столбца целиком?

 

не очень понял про «последнюю». Пускай будет первый лист эталонным или любой другой. Так ведь в принципе можно сделать или нет? И как? уже все обыскал в нете. подскажите пожалуйста, если кто в курсе!

 

Тупо копировать не получится если предполагается что документ будет все время наполняться новой информацией

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

1. Вы мой пример посмотрели?  
2. Копирование трех первых столбцов первого листа в остальные листы как помешает Вашему документу?

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

Вот копирование трёх столбцов целиком. Что-то я первый файл тормознул.

 

А в чем фишка в этом файле? у меня сообщение было что я не могу макросы использовать, может быть из-за это все? Напишите пожалуйста поподробнее ваше решение.

 

А просто на 2-ом и 3-ем листе писать в ячейки =Лист1!А1  
не устраивает?

 

тогда нужно будет это писать в каждой ячейке, а можно так чтобы формула была для каждого столбца?

 

теперь все ясно!!!!! спасибо !!!!!

 

а можно создавать автоматические ссылки ячеек одного листа на на такие же номера ячеек другого листа?

 

Vasiliy

Пользователь

Сообщений: 12
Регистрация: 01.01.1970

помогите дописать макрос .Как сделать что бы при нажатии кнопки  копировался бы ячейка с2(лист1) на с2(лист3) ,а так же если в ячейках  e3(лист1) введено янв копир в e2(лист3);(фев в g2(лист3) и тд),  
и еще один ,если в d3 введена «1»,а в Е3 янв — с2 копировалась в b22(лист4);а если d3 «5»,а E3 февр — в b26(лист5) и т.п.  

  зарание спасибо

 

Вот ето ты намудрил.Это же куча if then или как там в excelе .Даже модер-ам не под силу.Мне обычно отвечали не позднее чем через пару часов.Ручками ,ручками вводи))))  
Хотя задачка интересная.Лучше даже по дате,если одна,в одну ячейку,если другая,в другую.  
Г-не модераторы,а такое возможно?

 

{quote}{login=The_Prist}{date=01.09.2010 10:53}{thema=Re: }{post}{quote}{login=makar87}{date=01.09.2010 10:50}{thema=}{post}Г-не модераторы,а такое возможно?{/post}{/quote}Все возможно. Но лично я даже файл не смотрел, т.к. по описанию вижу, что не хочу разбираться. Если бы автор писал условия своей задачи не только для себя…  
Будет нормальное описание задачи — можно будет подумать и над решением.  

  P.S. А почему Вы только к модераторам обращаетесь? Здесь много знающих людей(побольше нас знающих…).{/post}{/quote}  

  Ладно ,но я то конкретное условие описал.Более того,в общих чертах.  
Прям заинтриговало)))

 

Vasiliy

Пользователь

Сообщений: 12
Регистрация: 01.01.1970

Люди знающие и умеющие.Кто подскажет  
Хотя бы в общих чертах,хрен с ним с моим примером,по аналогии думаю разберусь,как копировать ячейку(диапазон ячеек,столбец,строку)в др. ячейку(—II—) ,что бы выполнялось условие — при наличии в какойто определенной ячейке определенного значения(цифры,буквы,слова) — копировалось в одну ячейку(-II-),а при наличии др значения(-II-) в той же ячейке,в др ячейку(-II-).Желательно что бы кол-во значений могло учавствовать много раз(в смысле по кол-ву дней,месяцев,отделов)  

  пример копируем а1  при нажатии кнопки в б1(есл в с1=еденица),в б2(есл в с1=двойка),в б3(есл в с1=тройка),и так много раз

 

Vasiliy

Пользователь

Сообщений: 12
Регистрация: 01.01.1970

извеняюсь за отсутствие 5 листа(он такой же как и четвертый)  
Суть в том что лист4 январь лист 5 февраль и тд  
цифры на листе 4 (а также 5,6, и так до декабря) в ячейка a22-a52 числа  
и чертее знает как сделать что бы копировалось в определенную ячейку определенной даты.

 

Тут точно не обойтись функциями если и или)))  
Я пас

 

Vasiliy

Пользователь

Сообщений: 12
Регистрация: 01.01.1970

А можно фаил с примером,а то я че то не очень

 

{quote}{login=The_Prist}{date=01.09.2010 11:42}{thema=Re: }{post}{quote}{login=Vasiliy}{date=01.09.2010 11:34}{thema=}{post}А можно фаил с примером,а то я че то не очень{/post}{/quote}Какой файл? Ваш? Я написал лишь одну строку по Вашему условию. Чтобы она работала, надо лишь вставить её в процедуру:  

  Sub Copy_Data()  
[A1].Copy Sheets(«Лист4»).Range(«B» & [C1])
End Sub  

  А куда это приткнуть к Вашим макросам я не знаю…{/post}{/quote}  

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

  одна ета строка работать не будет(((

 

{quote}{login=The_Prist}{date=01.09.2010 12:25}{thema=Re: Re: Re: }{post}{quote}{login=}{date=01.09.2010 12:21}{thema=Re: Re: }{post}нет любой вышеописанный пример я в макросах не силен,и боюсь на обучение уйдет больше времени чем мне отпущенно.Как по готовому проще разобраться ,куда вписывать етолт лист соответствий(а главное как)  

  одна ета строка работать не будет((({/post}{/quote}  

  P.S. А кто же Вам уже макросов там напихал? Вы сами? Может Вы хотя бы подправить под себя какое-то решение сможете?{/post}{/quote}  

  Макросы писал я ,ето кусок от целого фаила .Выкладывать все не стал дабы не загружать книгу лишним.про соответствия выше писал янв-лист4,фев-лист5 итд  
1 тире a22 2 тире а23 и тд и что бы они вместе работали.  

  И пожалуйста определитесь,то ли мой пример ,то ли в общем(что бы можно было раскавырять по аналогии),то ли сразу скажите что помогать не будете.  

  Кстати хочу заметить ,что метод тыка один из действенных,я так много в жизни узнал.

 

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

  Спасибо за свободные уши)))

 

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

 

поиском пользовался,пока безуспешно,  
За строку спасибо,авось пригодится,  
Условия я понимаю,не знаю как еще проще написать.Возможно как то сложно объясняю,что кроме меня никому не понять,но «увы» и «ах».  

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

  Про «написать готовый макрос»: обращайтесь в личку — напишу готовый(не бесплатно). И то, как только Вы сможете сформулировать все свои условия нормально, а не:  
«1 тире a22 2 тире а23 и тд и что бы они вместе работали.»  
«Суть в том что лист4 январь лист 5 февраль и тд  
цифры на листе 4 (а также 5,6, и так до декабря) в ячейка a22-a52 числа  
и чертее знает как сделать что бы копировалось в определенную ячейку определенной даты.»  

  Вы сами-то понимаете, что здесь написано?{/post}{/quote}

 

Спасибо за пожелание тов «Брежнев».  
А куда деваться если другого не остается.Из моей просьбы было ясно ,ну по крайней мере мне так кажется,что соответствия такие:  
1 янв — a22(лист4)  
2 янв — а23(лист4)  
1 фев — а22(лист5)  
2 фев — а23(лист5)  
и тд  
Пожелание работы макроса копирование из c3 в соответствии с данными введенными в ячейки d3 и e3 («2» и «фев» соответственно) в соответствующую ячейку.  

  Вопрос в том что вы упорно доказываете что условия вам не понятны,с контекстом «легко,но не бесплатно»(ну мне так кажется,если не прав извените).  
И если не противоречит правилам вашего форума,я все жебуду надеяться что мне здесь помогут.

 

1. Список соответствий ДОЛЖНЫ СОСТАВИТЬ ВЫ. На этот список должен ориентироваться макрос, чтобы свериться со значением ячеек и понять, что куда копировать. Соответственно найти такой список Вы нигде не сможете — его может сделать только тот, кто знает все условия для выполнения правильного копирования.  

  это я понял,но не знаю как,и не знаю где посмотреть как  

  З.Ы. И не получится ли он огромным 12 месяцев по зо дней ето всего 365 значений или больше?(имеет смысл идти этим путем или же искать другое решение)

 

ну извените такой я негодяй.За массив спасибо,буду пытаться дать ему ума,в своих целях.  
осталось дело за малым)))разобраться как им пользоваться.  
потому что на етом этапе Sheets(«Лист» & lShNum).Cells(lRow, 1) = [C3] выдает ошибку,либо что то случилось ,либо одно из двух.

  З.Ы.Я тупым никого не называл,и так ни считаю.  
Да может я и ни могу внятно изъяснятся,с горем пополам получилось.  
Да я в екселе ноль,ето не говорит о моей тупезне.  
Да я не умею создавать макросы,и именно по этому я здесь,что бы меня направили напуть истенный.

 

Guest

Гость

#30

01.09.2010 16:15:40

1 не из за этого  
2 обид нет,надеюсь я вас тоже не обидел.Учусь потихоньку методом проб и ошибок.По самоучителям выучиться очень сложно,куда то ходить учиться нет возможности.  
3 И на этом спасибо.Я думаю из полученной информации(если откинуть пустые слова в адрес друг друга)я и так многое подчеркнул.

Автоматическое копирование столбцов Excel

bostongeorge

Дата: Понедельник, 01.10.2018, 12:08 |
Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5


Репутация:

0

±

Замечаний:
0% ±


Excel 2013

Уважаемые профессионалы.
Подскажите как реализовать, нажатием на одну кнопку)
Есть основной файл который в себе содержит столбец А и строки пусть их будет 50, и несколько таких же файлов с такими же столбцом А и строками, только с заполненным столбцом B.
Так вот нужно чтобы в основной файл из тех нескольких копировались данные из столбцов B в столбцы B,C,D и т.д.
Заранее благодарен.

 

Ответить

sboy

Дата: Понедельник, 01.10.2018, 12:24 |
Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566


Репутация:

724

±

Замечаний:
0% ±


Excel 2010

Добрый день.
Слияние запросов в Power Query. Потом нажимать на кнопку «Обновить все» на вкладке «Данные»


Яндекс: 410016850021169

 

Ответить

bostongeorge

Дата: Понедельник, 01.10.2018, 13:36 |
Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5


Репутация:

0

±

Замечаний:
0% ±


Excel 2013

sboy, спасибо
но я немного другое имел ввиду.

 

Ответить

sboy

Дата: Понедельник, 01.10.2018, 14:22 |
Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566


Репутация:

724

±

Замечаний:
0% ±


Excel 2010

но я немного другое имел ввиду

Что же именно?
У Вас общий вопрос. У меня один из общих ответов.


Яндекс: 410016850021169

 

Ответить

bostongeorge

Дата: Понедельник, 01.10.2018, 15:31 |
Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5


Репутация:

0

±

Замечаний:
0% ±


Excel 2013

грубо говоря, есть папка с файлами, нажал на *.bat и он автоматически собрал в excel все данные из папки с файлами.

 

Ответить

sboy

Дата: Понедельник, 01.10.2018, 16:23 |
Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566


Репутация:

724

±

Замечаний:
0% ±


Excel 2010

Ваше задание понятно.
Этот раздел форума отвечает на вопросы (один вопрос -одна тема)
Комплексные задачи из серии «Хочу кнопку, чтобы все работало», размещаются в другом разделе форума


Яндекс: 410016850021169

 

Ответить

bostongeorge

Дата: Вторник, 02.10.2018, 08:52 |
Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5


Репутация:

0

±

Замечаний:
0% ±


Excel 2013

в какой раздел нужно обратиться?

 

Ответить

китин

Дата: Вторник, 02.10.2018, 08:59 |
Сообщение № 8

Группа: Модераторы

Ранг: Экселист

Сообщений: 6973


Репутация:

1063

±

Замечаний:
0% ±


Excel 2007;2010;2016

bostongeorge,

У Вас общий вопрос. У меня один из общих ответов.

без файла ответ может быть только такой
или почитать здесь


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

 

Ответить

bostongeorge

Дата: Вторник, 02.10.2018, 10:15 |
Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5


Репутация:

0

±

Замечаний:
0% ±


Excel 2013

вот например файлы которые нужно объединить

К сообщению приложен файл:

123.xlsx
(10.4 Kb)
·

321.xlsx
(10.4 Kb)

 

Ответить

Эта статья может вам помочь для автоматического копирования и вставки значения ячейки в текущем листе или с одного листа на другой без использования сочетаний клавиш.

Автоматическое копирование и вставка ячейки в текущий лист или с одного листа на другой с формулой
Автоматическое копирование и вставка ячейки в текущий лист с помощью VBA
Скопируйте и вставьте несколько диапазонов на текущий лист или с одного листа на другой с помощью Kutools for Excel


Автоматическое копирование и вставка ячейки в текущий лист или с одного листа на другой с формулой

Вы можете использовать формулу для автоматического копирования и вставки ячейки. Пожалуйста, сделайте следующее.

1. Чтобы скопировать и вставить ячейку в текущий лист, например, скопировать ячейку с A1 в D5, вы можете просто выбрать ячейку назначения D5, а затем ввести = A1 и нажмите клавишу Enter, чтобы получить значение A1.

2. Для копирования и вставки ячейки с одного листа на другой, например для копирования ячейки A1 листа Sheet1 в ячейку D5 листа Sheet2, выберите ячейку D5 на листе Sheet2, затем введите = Лист1! A1 и нажмите клавишу Enter, чтобы получить значение.

Tips: Целевая ячейка связана с скопированной ячейкой и будет изменена по мере изменения исходной ячейки.


Автоматическое копирование и вставка ячейки в текущий лист с помощью VBA

Следующий код VBA помогает скопировать ячейку или диапазон ячеек и вставить их в указанные ячейки на текущем листе.

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно модуля.

Код VBA: автоматическое копирование и вставка ячейки в текущий лист

Sub RangeTest()
    On Error Resume Next
    Dim xRg As Range
    Set xRg = Application.Selection
    Range("A1 ").Copy Range("D5")
    xRg.Select
End Sub

Внимание: В коде A1 — это ячейка, которую вы скопируете, а D5 — это ячейка назначения для размещения значения ячейки A1. Для автоматического копирования и вставки диапазона ячеек замените ячейку диапазоном, например замените A1 на A1: A10 и замените D5 на D1: D10.

3. нажмите F5 нажмите клавишу для запуска кода, то определенная ячейка (диапазон) будет автоматически скопирована и вставлена ​​в указанную ячейку (диапазон), а также форматирование ячейки.


Скопируйте и вставьте несколько диапазонов на текущий лист или с одного листа на другой с помощью Kutools for Excel

Если у вас есть несколько диапазонов, которые нужно скопировать одновременно, вы можете попробовать Копировать диапазоны полезности Kutools for Excel.

1. Выберите несколько диапазонов, которые нужно скопировать, удерживая Ctrl ключ. Затем нажмите Кутулс > Копировать диапазоны. Смотрите скриншот:

2. в Копировать несколько диапазонов диалоговое окно, вы можете увидеть, что выбранные диапазоны перечислены в Диапазоны для копирования коробка. Затем укажите параметр в Специальная вставка раздел, проверьте Включая высоту строки или Включая ширину столбца поле, как вам нужно, и, наконец, нажмите OK кнопка. Смотрите скриншот:

3. В секунду Копировать несколько диапазонов диалоговом окне укажите пустую ячейку для вставки выбранных диапазонов, а затем щелкните значок OK кнопку.

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

Теперь выбранные диапазоны копируются и вставляются в указанное место.

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


Скопируйте и вставьте несколько диапазонов в текущий лист или с одного листа на другой


Статьи по теме:

  • Как автоматически заполнять другие ячейки при выборе значений в раскрывающемся списке Excel?
  • Как выполнить автозаполнение при вводе в раскрывающемся списке Excel?
  • Как автоматически заполнять дату в ячейке, когда соседняя ячейка обновляется в Excel?

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

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

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

Специальная вставка

Очень удобно выполнять перенос данных таблицы с помощью специальной вставки. Она позволяет выбрать только те параметры, которые нам необходимы при копировании. Рассмотрим пример.

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

Макароны.

Попробуем воспользоваться командой СПЕЦИАЛЬНАЯ ВСТАВКА и скопировать все данные.

Сначала мы выделяем имеющуюся таблицу, правой кнопкой вызываем меню и жмем КОПИРОВАТЬ.

В свободной ячейке снова вызываем меню правой кнопкой и нажимаем СПЕЦИАЛЬНАЯ ВСТАВКА.

Если мы оставим все как есть по умолчанию и просто нажмем ОК, то таблица вставится полностью, со всеми ее параметрами.

Попробуем поэкспериментировать. В СПЕЦИАЛЬНОЙ ВСТАВКЕ выберем другой пункт, например, ФОРМУЛЫ. Получили уже неформатированную таблицу, но с работающими формулами.

ФОРМУЛЫ.

Теперь вставим не формулы, а только ЗНАЧЕНИЯ результатов их вычислений.

ЗНАЧЕНИЯ.

Чтобы новая таблица со значениями получила внешний вид аналогичный образцу выделим ее и вставим ФОРМАТЫ с помощью специальной вставки.

ЗНАЧЕНИЯ.

Теперь попробуем выбрать пункт БЕЗ РАМКИ. Получили полную таблицу, но только без выделенных границ.

Полезный совет! Чтобы перенести формат вместе с размерами столбцов нужно перед копированием выделить не диапазон исходной таблицы, а столбцы целиком (в данном случаи это диапазон A:F).

Аналогично можно поэкспериментировать с каждым пунктом СПЕЦИАЛЬНОЙ ВСТАВКИ, чтобы наглядно увидеть, как она работает.

Перенос данных на другой лист

Перенос данных на другие листы книги Excel позволяет связывать несколько таблиц. Это удобно тем, что при замене какого-то значения на одном листе, меняются значения на всех остальных. При создании годовых отчетов это незаменимая вещь.

Рассмотрим, как это работает. Для начала переименуем листы Excel в месяцы. Затем с помощью уже знакомой нам СПЕЦИАЛЬНОЙ ВСТАВКИ перенесем таблицу на февраль и удалим значения из трех столбов:

  1. На начало месяца.
  2. Приход.
  3. Расход.

Столбец «На конец месяца» у нас задан формулой, поэтому при удалении значений из предыдущих столбцов, он автоматически обнуляется.

Перенесем данные по остатку макарон каждой марки с января на февраль. Это делается буквально в пару нажатий.

  1. На листе ФЕВРАЛЬ ставим курсор в ячейку, показывающую количество макарон марки А на начало месяца. Можно посмотреть на рисунок выше – это будет ячейка D3.
  2. Ставим в этой ячейке знак РАВНО.
  3. Переходим на лист ЯНВАРЬ и кликаем на ячейку, показывающую количество макарон марки А на конец месяца (в нашем случае это ячейка F2 на листе «январь»).

Получаем следующее: в ячейке C2 образовалась формула, которая отсылает нас на ячейку F2 листа ЯНВАРЬ. Протянем формулу вниз, чтобы знать количество макарон каждой марки на начало февраля.

Аналогично можно перенести данные на все месяцы и получить наглядный годовой отчет.

Перенос данных в другой файл

Аналогично можно переносить данные из одного файла в другой. Данная книга в нашем примере так и называется EXCEL. Создадим еще одну и назовем ее ПРИМЕР.

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

Скопируем в книгу ПРИМЕР таблицу с помощью все той же СПЕЦИАЛЬНОЙ ВСТАВКИ. И опять удалим значения из трех столбцов. Проведем те же действия, что и в предыдущем параграфе, но переходить уже будем не на другой лист, а на другую книгу.

Получили новую формулу, которая показывает, что ячейка ссылается на книгу EXCEL. Причем видим, что ячейка F2 выглядит как $F$2, т.е. она зафиксирована. И если мы хотим протянуть формулу на остальные марки макарон, сначала нужно удалить значки доллара, чтобы снять фиксацию.

Пример.

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

Автоматический перенос данных из одной таблицы в другую в программе Excel.

Приведу три способа Автоматического переноса данных с одного листа программы «Эксель» в другой.

Первый, самый простой и примитивный способ связи двух таблиц на разных листах документа -вставка данных при помощи опции специальной вставки.

Рассмотрим, как соединить две таблицы по шагам.

Первый шаг.

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

Второй шаг.

Копировать информацию сочетанием клавиш ctrl+C или вызвав контекстное меню правой кнопкой мыши и кликнув по пункту меню «Копировать»

Копировать данные из одной таблицы

Третий шаг.

Перейти на лист документа «Excel», в который Вы планируете транслировать информацию из первой таблицы.

Четвертый шаг.

Вставить связь

Поставить курсор в первую (левую верхнюю) ячейку таблицы и выбрать в меню «Вставка» пункт «Вставить связь». В некоторых версиях программы «Excel» этот пункт находится в меню «Специальная вставка»

После вставки связи следует отформатировать вид ячеек – привести их к надлежащему виду.

Результат вставки связи

Результат вставки связи

Второй способ переноса данных из одной таблицы в другую — это использование сводных таблиц в программе «Excel».

При использовании данного метода роль второй таблицы («реципиента») играет сама сводная таблица.

Как обновить сводную таблицу

Как обновить сводную таблицу

При клике правой кнопкой мыши по сводной таблице и нажатии на пункт «Обновить» сводная таблица автоматически перенесет все данные из связанного массива информации («таблицы донора»).

О том, как в «Эксель» создавать сводные таблицы подробно написано в статье:

Как делать сводные таблицы в программе «Excel» и для чего они нужны.

Третий способ самый эффективный и наиболее автоматизированный — это использование меню надстройки «Power Query».

Правда нужно отметить, что этот способ подходит только пользователям Excel 2016 и пользователям Excel 2013и выше с установленной надстройкой «Power Query».

Смысл способа в следующем:

Необходимо открыть вкладку «Power Query». В разделе «Данные Excel» нажимаем кнопку (пиктограмму) «Из таблицы».

Из таблицы -Power QueryИз таблицы -Power Query

Далее нужно выбрать диапазон ячеек, из которых нужно «притянуть» информацию и нажимаем «Ок».

Источник данных для запроса Power Query

Источник данных для запроса Power Query

Настройка таблицы в Повер Квери

После выбора области данных появится окно настройки вида новой таблицы. В этом окне Вы можете настроить последовательность вывода столбцов и удалить ненужные столбцы.

После настройки вида таблицы нажмите кнопку «Закрыть и загрузить»

Обновление полученной таблицы происходит кликом правой кнопки мыши по названию нужного запроса в правой части листа (список «Запросы книги»). После клика правой кнопкой мыши в выпадающем контекстном меню следует нажать на пункт «Обновить»

Обновление запроса в PowerQuery

Обновление запроса в PowerQuery

Try this.. Just replace test1 with your column names, etc.
Remember to add the column number instead of targetCol as you want to hardcode it. I used the range object to copy data.

Option Explicit

Sub CopyCode()

'Declaring the variable lColumn as long to store the last Column number
Dim lColumn As Long
'Declaring the variable iCntr as long to use in the For loop
Dim iCntr As Long
Dim lastRow As Long
Dim lastCol As Long, targetCol As Long
Dim wks As Worksheet, targetWks As Worksheet
Dim rng As Range
Dim fCol As String

' Set wks so it is the activesheet
Set wks = ThisWorkbook.Sheets("Sheet1")

Set targetWks = ThisWorkbook.Sheets("Sheet2")

    lastCol = wks.Cells(1, wks.Columns.Count).End(xlToLeft).Column


'Assigning the last Column value to the variable lColumn
lColumn = lastCol

'Using for loop
For iCntr = lColumn To 1 Step -1

    If LCase(wks.Cells(1, iCntr)) Like LCase("Test1") Then
        ' Find column letter
        fCol = GetColumnLetter(iCntr)
        lastRow = wks.Range(fCol & wks.Rows.Count).End(xlUp).Row

        ' Declare range object
        Set rng = wks.Range(fCol & "2:" & fCol & lastRow)

        ' Use Range object to copy data
        rng.Copy _
        Destination:=targetWks.Cells(1, targetCol) ' Replace targetCol with number of column (A=1, B=2, etc.)
    End If

    If LCase(wks.Cells(1, iCntr)) Like LCase("Test2") Then
        ' Find column letter
        fCol = GetColumnLetter(iCntr)
        lastRow = wks.Range(fCol & wks.Rows.Count).End(xlUp).Row

        ' Declare range object
        Set rng = wks.Range(fCol & "2:" & fCol & lastRow)

        ' Use Range object to copy data
        rng.Copy _
        Destination:=targetWks.Cells(1, targetCol) ' Replace targetCol with number of column (A=1, B=2, etc.)
    End If

    If LCase(wks.Cells(1, iCntr)) Like LCase("Test") Then
        ' Find column letter
        fCol = GetColumnLetter(iCntr)
        lastRow = wks.Range(fCol & wks.Rows.Count).End(xlUp).Row

        ' Declare range object
        Set rng = wks.Range(fCol & "2:" & fCol & lastRow)

        ' Use Range object to copy data
        rng.Copy _
        Destination:=targetWks.Cells(1, targetCol) ' Replace targetCol with number of column (A=1, B=2, etc.)
    End If

    ' etc etc
Next

End Sub

Function GetColumnLetter(colNum As Long) As String
    Dim vArr
    vArr = Split(Cells(1, colNum).Address(True, False), "$")
    GetColumnLetter = vArr(0)
End Function

Данная статья о том, как связать таблицы, чтобы данные из одной таблицы автоматически переносились во вторую.

Приведу три способа Автоматического переноса данных с одного листа программы «Эксель» в другой.

Первый, самый простой и примитивный способ связи двух таблиц на разных листах документа -вставка данных при помощи опции специальной вставки.

Рассмотрим, как соединить две таблицы по шагам.

Первый шаг.

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

Второй шаг.

Копировать информацию сочетанием клавиш ctrl+C или вызвав контекстное меню правой кнопкой мыши и кликнув по пункту меню «Копировать»

Копировать данные из одной таблицы

Третий шаг.

Перейти на лист документа «Excel», в который Вы планируете транслировать информацию из первой таблицы.

Четвертый шаг.

Поставить курсор в первую (левую верхнюю) ячейку таблицы и выбрать в меню «Вставка» пункт «Вставить связь». В некоторых версиях программы «Excel» этот пункт находится в меню «Специальная вставка»Вставить связь

После вставки связи следует отформатировать вид ячеек – привести их к надлежащему виду.

Результат вставки связи

Результат вставки связи

Второй способ переноса данных из одной таблицы в другую — это использование сводных таблиц в программе «Excel».

При использовании данного метода роль второй таблицы («реципиента») играет сама сводная таблица.

Как обновить сводную таблицу

Как обновить сводную таблицу

При клике правой кнопкой мыши по сводной таблице и нажатии на пункт «Обновить» сводная таблица автоматически перенесет все данные из связанного массива информации («таблицы донора»).

О том, как в «Эксель» создавать сводные таблицы подробно написано в статье:

Как делать сводные таблицы в программе «Excel» и для чего они нужны.

Третий способ самый эффективный и наиболее автоматизированный — это использование меню надстройки «Power Query».

Правда нужно отметить, что этот способ подходит только пользователям   Excel 2016 и пользователям Excel 2013и выше с установленной надстройкой «Power Query».

Смысл способа в следующем:

Необходимо открыть вкладку «Power Query». В разделе «Данные Excel» нажимаем кнопку (пиктограмму) «Из таблицы».

Из таблицы -Power Query

Из таблицы -Power Query

Далее нужно выбрать диапазон ячеек, из которых нужно «притянуть» информацию и нажимаем «Ок».

Источник данных для запроса Power Query

Источник данных для запроса Power Query

После выбора области данных появится окно настройки вида новой таблицы. В этом окне Вы можете настроить последовательность вывода столбцов и удалить ненужные столбцы.Настройка таблицы в Повер Квери

После настройки вида таблицы нажмите кнопку «Закрыть и загрузить»

Обновление полученной таблицы происходит кликом правой кнопки мыши по названию нужного запроса в правой части листа (список «Запросы книги»). После клика правой кнопкой мыши в выпадающем контекстном меню следует нажать на пункт «Обновить»

Обновление запроса в PowerQuery

Обновление запроса в PowerQuery

Like this post? Please share to your friends:
  • Автоматическое копирование значения ячейки excel
  • Автоматическое копирование в excel с листа на лист при занесении данных
  • Автоматическое исправление ошибок при вводе слова в ms word осуществляется с помощью средства
  • Автоматическое исправление ошибок в тексте word онлайн
  • Автоматическое имя файла word