Размер области копирования не соответствует размеру области вставки excel

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

Причина, почему не удается вставка

На начальном этапе сразу рассмотрим, почему Эксель не вставляет данные. Этому может быть несколько объяснений:

  1. Информация, которую вы хотите копировать, не соответствуют формату ячеек.
  2. Столбцов не хватает для приятия информации, из-за чего данные не удается добавить.
  3. Область копирования и область вставки имеют разный размер / форму.
  4. Устаревшая версия ПО.
  5. Неправильные надстройки.
  6. Повреждение программного обеспечения Майкросотф Офис.
  7. Некорректная учетная запись DCOM.
  8. Загрязнение временными файлами.

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

Что делать

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

Измените формат ячейки

Если в Эксель не получается копировать сведения, причиной может быть несоответствие формату ячеек. Для решения проблемы нужно убедиться, что этот параметр соответствует формату данных, внесение которых планируется в ячейку. Для изменения формата сделайте следующее:

  1. Жмите на заголовок столбца А, В, С и других (если вы хотите внести изменения).
  2. Зайдите во вкладку «Главная» и жмите меню «Формат» «Общий» в числовом виде.
  3. Кликните на формат ячейки, который соответствует добавляемым данным.

Вставьте другие столбцы

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

Чтобы вставить дополнительные столбцы, сделайте следующее:

  1. Жмите на заголовок столбца (А, В и т. д) справа от места, куда нужно вставить новые данные.
  2. На вкладке «Главная» жмите «Вставить». Первоначальный столбец смещается в правую сторону и добавляется новый элемент.
  3. Делайте шаг 2, пока не появится нужное число столбцов.

Проверьте соответствие области копирования / вставки

Если в приложении Эксель не вставляется скопированный текст, убедитесь в соответствии областей копирования / вставки по параметрам размера и фигуры. Для решения проблемы перед вставкой выберите левую ячейку, а весь диапазон. Чтобы вставить данные в Excel, сделайте следующее:

  1. Жмите на ячейку, куда вы хотите вставить данные и не удается это сделать.
  2. На вкладке «Главная» выберите «Вставить».

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

Обновите программу Excel

В ситуации, когда приложение Эксель не копирует данные, причиной может быть применение устаревшей версии. Для решения проблемы нужно установить имеющиеся обновления через параметры Виндовс и раздел «Обновления и безопасность». Здесь войдите в дополнительные параметры и убедитесь в наличии отметки «При обновлении Windows предоставить обновления для других …». При появлении новой версии Виндовс автоматически выполнить установку обновленного приложения Excel, и имеющиеся ошибки будут исправлены. При этом убедитесь, удается после этого копировать что-либо или нет.

Отключите надстройки в безопасном режиме

Если в Microsoft Excel не удается вставить данные, попробуйте войти в приложение в безопасном режиме. Его суть подразумевает вход в программу с минимальными настройками. Для этого зажмите кнопку Ctrl и запустите программу. Далее сделайте следующее:

  1. Зайдите в «Файл» и «Параметры».
  2. Войдите в режим «Надстройки».
  3. Посмотрите, какие из них является активными.
  4. По очереди выключайте их.

После этого попробуйте вставить данные в приложение Excel. Если это не удается сделать, воспользуйтесь другим вариантом.

Восстановите приложение

Причиной рассматриваемой ошибки может быть нарушение офисного пакета и сбой его работы. Для исправления проблемы попробуйте восстановить приложение. Для этого вызовите окно «Выполнить» (Win+R) и введите команду appwiz.cpl. В появившемся разделе «Программы и компоненты» выберите свой пакет и жмите «Изменить», а далее — «Восстановить». При этом начинается процесс восстановления программы, в том числе пакета Excel. На все манипуляции может уйти 5-10 минут.

Проверьте учетную запись DCOM

В случае, когда в Экселе не вставляется скопированный текст, проверьте DCOM. Это программная конструкция, позволяющая ПК / ноутбуку запускать софт на другом устройстве. При этом приложение Excel как бы запускается локально. Если же не удается вставить данные, возможно, вы используете неправильный режим.

Для решения вопроса сделайте следующее:

  1. Жмите Win+R.
  2. Введите dcomcnfg.
  3. Откройте «Службы компонентов», а далее «Компьютеры» и «Приложения СОМ+.
  4. Перейдите в Настройки DCOM и Microsoft Excel Application.
  5. Жмите правой кнопкой мышки и войдите в свойства.
  6. Зайдите в раздел «Удостоверение» и убедитесь, что у вас установлен пункт «Запускающий пользователь».

После этого проверьте, удается ли приложению Excel внедрить данные. В большинстве случаев проблема исчезает.

Очистите временные файлы

Для устранения проблем с копированием в Excel почистите временные данные из профиля. Для этого войдите по ссылке C:Usersимя пользователяAppDataRoamingMicrosoftExcel в скрытых папках Виндовс. Выберите своего пользователя, найдите XLSTART и попробуйте ее удалить. После этого запустите приложение и проверьте эффект.

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

Отличного Вам дня!

Доброго времени суток всем!

Столкнулся с проблемой, излазил весь инет, похожих проблем много, но именно такой не встретил.
Проблема вот в чем:
Есть файл .xls в который я уже несколько лет макросом вставляю каждый день скопированные из текстового файла данные для последующей обработки этим же макросом.
И вот сегодня при выполнении макроса вышла ошибка. Начал разбираться, выяснил, что причина в этом: «не удается вставить данные, так как размер копируемой области копирования не соответствует размеру области вставки».
Пробовал вставлять в другой файл — никаких проблем, но в этот файл, даже на вновь создаваемый лист не вставляет. Вчера я с этим файлом работал, на листах включал и выключал автофильтры. Может быть с этим как-то связано, не знаю? Много чего перепробовал, и в ручную вставлял, и в пошаговом режиме, хотя я не очень силен в Excel и в макросах. Но не могу понять причину такого поведения, и не могу устранить ошибку. Открывал также файлы за прошлые месяцы, тоже не вставляет.
Пожалуйста, люди добрые помогите!
P.S. Вот ссылки на файлы —  xls  и исходный txt  

https://yadi.sk/i/5nV8d5Kk3EHZ9n     https://yadi.sk/i/1agrCJnl3EHZ9z

. В файле xls  модуль с макросом. Но его я скопировал из личной книги макросов, так как в книге он работать не будет, потому, что эта книга в процессе выполнения макроса закрывается.  

Excel для Microsoft 365 для Mac Excel 2021 для Mac Excel 2019 для Mac Excel 2016 для Mac Excel для Mac 2011 Еще…Меньше

Причина: данные, которые вы пытаетесь вировать, не соответствуют формату ячеек (Date, Currency, Text или другой формат) для ячеек в столбце.

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

Изменение формата ячейки для столбца

  1. Щелкните заголовок столбца (A, B, C и так далее) для столбца, который вы хотите изменить.

  2. На вкладке Главная щелкните меню Формат Поле "Формат числа" числовом формате.

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

Причина: столбцов недостаточно для того, чтобы принять данные, которые вы пытаетесь вировать.

Решение:    Вставьте другие столбцы и попробуйте вставить их еще раз.

Вставка дополнительных столбцов

  1. Щелкните заголовок столбца (A, B, C и так далее) справа от того места, куда вы хотите добавить столбец.

  2. На вкладке Главная нажмите кнопку Вставить.

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

  3. Повторяйте шаг 2, пока не вставьте нужное количество столбцов.

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

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

  1. Щелкните ячейку, в которой вы хотите в левой верхней ячейке скопированные данные.

  2. На вкладке Главная нажмите кнопку Вировать.

    На вкладке "Главная" выберите "Вставка"

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

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

  2. На вкладке Главная нажмите кнопку Вировать.

    На вкладке "Главная" выберите "Вставка"

Нужна дополнительная помощь?

Не удается скопировать данные из одной книги в другую

vlad_stv

Дата: Вторник, 15.03.2016, 15:34 |
Сообщение № 1

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2010

День добрый! Есть две книги, одна сформирована экспортом из проги Wialon (транспортный мониторинг, Webморда, статистику позволяет экспортировать сразу в .xlsx), вторая чистый лист.
Во второй книге, для переноса части значений из выгрузки, для дальнейшей работы с ними, использую стандартный макрос:

[vba]

Код

Sub Кнопка1_Щелчок()

Workbooks.Open Filename:=»D:reportstest3.xlsx»

Workbooks(«3.xlsx»).Worksheets(«Статистика»).Range(«B3:B5»).Copy

Workbooks(«1.xlsm»).Activate

ActiveWorkbook.Worksheets(«Лист1»).Range(«A1»).Select
ActiveSheet.Paste

Workbooks(«3.xlsx»).Close

End Sub

[/vba]

При выполнении в первый раз или два, всё прошло удачно, данные скопировались. На третий и далее повторения, выдает ошибку:

Цитата

Run-time error ‘1004’:

Цитата

данные не могу быть вставлены из-за несоответствия формы и размеров области копирования и области вставки. Выполните одно из следующих действий:
1. выберите и вставьте одну ячейку;
2. выберите и вставьте прямоугольник соответ. размера и формы;

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

Я попробовал:

  • 1. Сменить предварительно размер ячейки, перед выполнением макроса(бредовая идея, но всё же попробовал) — не помогло;
  • 2. Создал отдельно две книги, в первую положил кнопку, к ней прикрутил свой макрос. Во второй создал простой набор данных, в первой колонке цифры, во второй дни недели по именам. Всё копируется в первую книгу, выполняется — работает. Подкидываю в макрос файл с выгрузкой — не копируется ни одна колонка, всё время ошибка указанная выше;
  • 3. Менял формат «чистой» ячейки на формат, как в исходнике — не помогло;

По нажатию кнопки «Debug», отправляет на вот эту строку:
[vba]

[/vba]

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

В чем может быть ошибка? В выгрузке? Но как тогда первые два раза отработало? Нет ли какого-нибудь переполнения или чего-то подобного?

Заранее благодарю за помощь!


white [Ra]

 

Ответить

KuklP

Дата: Вторник, 15.03.2016, 16:03 |
Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369


Репутация:

486

±

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


2003-2010

[vba]

Код

Sub Кнопка1_Щелчок()
‘Открываем файл с которого нужно скопировать данные
    Workbooks.Open Filename:=ThisWorkbook.Path & «3.xlsx»
    ‘Скопировать нужный диапазон в открывшейся книге на листе 1
    Workbooks(«3.xlsx»).Sheets(«Сводка»).Range(«B2:B10»).Copy ThisWorkbook.Sheets(«Лист1»).Range(«H1»)
    ‘Закрываем книгу откуда мы скопировали данные
    Workbooks(«3.xlsx»).Close
End Sub

[/vba]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

 

Ответить

vlad_stv

Дата: Вторник, 15.03.2016, 16:44 |
Сообщение № 3

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2010

KuklP, благодарю! Заработало!

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


white [Ra]

 

Ответить

akobir

Дата: Вторник, 15.03.2016, 17:32 |
Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201


Репутация:

9

±

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


Excel 2010

vlad_stv, объединенных ячеек нет?
Если нет — исправьте на специальную вставку — должно заработать:

[vba]

Код

Sub Кнопка1_Щелчок()
Workbooks.Open Filename:=»D:reportstest3.xlsx»
Workbooks(«3.xlsx»).Worksheets(«Статистика»).Range(«B3:B5»).Copy
Workbooks(«1.xlsm»).Activate
ActiveWorkbook.Worksheets(«Лист1»).Range(«A1»).PasteSpecial
Workbooks(«3.xlsx»).Close
End Sub

[/vba]

Код не проверял. Работоспособность не гарантирую. :)


e-mail: akobir.ismailov@gmail.com

 

Ответить

vlad_stv

Дата: Среда, 16.03.2016, 11:11 |
Сообщение № 5

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2010

А как правильно поправить в макрос KuklP, чтобы имя листа бралось из ячейки?
Или еще проще, чтобы имя листа для выполнения копирования, бралось из имени листа)? Есть какой-нибудь параметр/переменная который можно использовать?
Например:
Первоначальный вариант:
[vba][/vba]
Второй:
[vba][/vba]
Третий:
[vba][/vba]


white [Ra]

 

Ответить

KuklP

Дата: Среда, 16.03.2016, 11:16 |
Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369


Репутация:

486

±

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


2003-2010

Ну и берите:
[vba]

Код

Sheets(Range(«B2»).value)

[/vba]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

 

Ответить

vlad_stv

Дата: Среда, 16.03.2016, 11:32 |
Сообщение № 7

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2010

KuklP, не, не получается. Он берет ячейку из файла исходника. А надо чтобы брал из файла приёмника.
То есть при копировании макрос понимал в какой лист книги ему копировать. Возможно первый раз неверно выразился, извиняюсь!

[vba]

Код

Workbooks(«test.xlsx»).Sheets(«Ñâîäêà»).Range(«A2:A122»).Copy ThisWorkbook.Sheets(Range(«C3»).Value).Range(«B8»)

[/vba]

Может перед началом всего скрипта ввести переменную, которая содержит имя листа, и потом по всему макросу её использовать? И получить на выходе третий вариант.
Кривой код, но мысль ясна, я думаю:
[vba]

Код

Dim x Sheetname
Sheets(Sheetname)

[/vba]


white [Ra]

 

Ответить

KuklP

Дата: Среда, 16.03.2016, 11:33 |
Сообщение № 8

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369


Репутация:

486

±

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


2003-2010

Так укажите полный путь к ячейке.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

 

Ответить

vlad_stv

Дата: Среда, 16.03.2016, 12:22 |
Сообщение № 9

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2010

KuklP, полный путь?
[1.xlsm]Сводка’!С3 — ?
[vba]

Код

ThisWorkbook.Sheets(Range(«[1.xlsm]01.01′!С3»).value).Range(«B8»)

[/vba]
Если так, то снова возвращаемся к имени листа, оно статично прописано будет, как здесь, только в первом случае мы используем ячейку.
[vba]

Код

Workbooks(«test.xlsx»).Sheets(«Сводка»).Range(«D2:D122»).Copy ThisWorkbook.Sheets(«01.01»).Range(«K8»)

[/vba]


white [Ra]

 

Ответить

KuklP

Дата: Среда, 16.03.2016, 12:41 |
Сообщение № 10

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369


Репутация:

486

±

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


2003-2010

Да откуда же мне знать, где Ваша ячейка находится? Я показал Вам как использовать данные ячейки в качестве переменной. Если в книге откуда запускается макрос то и указывайте ее как ThisWorkbook. Т.е.:
ThisWorkbook.Sheets(ThisWorkbook.Sheets(«01.01»).Range(«С3»).value).Range(«B8»)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

 

Ответить

vlad_stv

Дата: Среда, 16.03.2016, 13:00 |
Сообщение № 11

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2010

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

Цитата

ThisWorkbook.Sheets(«01.01»)

Сегодня лист именуется как «01.01», а завтра как «02.01». Я сдернул имя листа в ячейку, и при копировании листов, и последующим их переименованием, в ячейку нормально попадают данные, то есть имя соответствующего листа. Ячейка копируется с каждым новым листом. То есть на каждом листе книги есть ячейка, которая содержит имя листа на котором она расположена. Как теперь использовать эту ячейку в макросе? И возможно ли это вообще?


white [Ra]

 

Ответить

Manyasha

Дата: Среда, 16.03.2016, 13:29 |
Сообщение № 12

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

Ранг: Старожил

Сообщений: 2198


Репутация:

898

±

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


Excel 2010, 2016

vlad_stv, используйте вместо имени листа его кодовое имя (CodeName)


ЯД: 410013299366744 WM: R193491431804

 

Ответить

vlad_stv

Дата: Среда, 16.03.2016, 13:44 |
Сообщение № 13

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2010

Manyasha, например?
[vba]

Код

n = ActiveSheet.CodeName
Workbooks(«test.xlsx»).Sheets(«Сводка»).Range(«D2:D122»).Copy ThisWorkbook.Sheets(n).Range(«K8»)

[/vba]
Вот так?


white [Ra]

 

Ответить

KuklP

Дата: Среда, 16.03.2016, 13:47 |
Сообщение № 14

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369


Репутация:

486

±

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


2003-2010

Ваще.. Если копируете в активный лист, то так и пишите:
[vba]

Код

…Range(«D2:D122»).Copy ActiveSheet.Range(«K8»)

[/vba]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

 

Ответить

vlad_stv

Дата: Среда, 16.03.2016, 14:24 |
Сообщение № 15

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2010

KuklP, если так писать, то получается макрос копирует диапазон D2:D122 в ячейку K8
Всё верно делает, да вот только в другую книгу надо копировать, а он копирует в пределах книги источника.
Видимо, потому, что в самом начале макроса мы открываем книгу, то есть делаем её активной:

Цитата

Workbooks.Open Filename:=ThisWorkbook.Path & «test.xlsx»

В этом месте: [vba]

Код

…Range(«D2:D122»).Copy ActiveSheet.Range(«K8»)

[/vba]
Активна книга-источник. Ваша правка/код сработает, если перекинуть «фокус» на книгу-приёмник.

Возможно вот так:
[vba]

Код

…Range(«D2:D122»).Copy Workbooks(«1.xlsm»).Activate ActiveSheet.Range(«K8»)

[/vba]
Или я ошибаюсь?

Ошибаюсь…


white [Ra]

Сообщение отредактировал vlad_stvСреда, 16.03.2016, 14:37

 

Ответить

KuklP

Дата: Среда, 16.03.2016, 14:45 |
Сообщение № 16

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369


Репутация:

486

±

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


2003-2010

Да я понятия не имею где у Вас что расположено и что куда Вы хотите копировать. Сами-то смекалку проявите.

Workbooks(«1.xlsm»).Activate ActiveSheet.Range(«K8»)

— значит имя книги все-таки стационарно? А нужный лист Вы как-то раньше активировали? Как-то к нему обращались, чтоб активировать? Или «на кого Бог пошлет»? Т.е. открывая книгу.. стоп, Workbooks(«1.xlsm»)? это та книга из которй запущен макрос? Вы читаете, что Вам пишут?

Если в книге откуда запускается макрос то и указывайте ее как ThisWorkbook

— и что, Вы не знаете на каком листе в Вашей книге находится ячейка с названием? Туда что как попало вставляются листы и как попало называются? Так поместите ячейку в лист, где кнопка и ссылайтесь на него.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

 

Ответить

vlad_stv

Дата: Среда, 16.03.2016, 15:05 |
Сообщение № 17

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2010

KuklP, премного благодарен за вашу помощь, но хамить идите на улицу! Читать я умею.
Вы читаете, что вам пишут?

Цитата

Если так, то снова возвращаемся к имени листа…

Цитата

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

Цитата

— значит имя книги все-таки стационарно?

ЛИСТА! Имя книги вообще не причем! И я нигде не говорил, что имя книги не стационарно!

Ваш же макрос и использую, и он именно так и работает.
[vba]

Код

‘ 1. Открывает книгу-источник
Workbooks.Open Filename:=ThisWorkbook.Path & «test.xlsx»
‘ 2. Копирует диапазон в книге-источнике и переносит в книгу-приемник в ячейку C8
Workbooks(«test.xlsx»).Sheets(«Статистика»).Range(«B2:B122»).Copy ThisWorkbook.Sheets(«01.01»).Range(«C8»)
‘ 3. Закрывает книгу открытую вначале:
Workbooks(«test.xlsx»).Close

[/vba]

Цитата

Если в книге откуда запускается макрос то и указывайте ее как ThisWorkbook

Цитата

(ThisWorkbook.Sheets(«01.01»).Range(«С3»).value)

— Я НЕ МОГУ УКАЗАТЬ В ЯВНОМ ВИДЕ ИМЯ ЛИСТА, может так виднее будет.

Я лишь пытаюсь понять как уйти от явного описания имени листа книги-приемника («01.01»). Может перестать нервничать и внимательно перечитать, может вы не так меня поняли, но задавать мне идиотские вопросы, извольте!


white [Ra]

 

Ответить

KuklP

Дата: Среда, 16.03.2016, 15:10 |
Сообщение № 18

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369


Репутация:

486

±

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


2003-2010

Ну что ж, извиняюсь, если не угодил. Удачи.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

 

Ответить

vlad_stv

Дата: Среда, 16.03.2016, 15:46 |
Сообщение № 19

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

Ранг: Новичок

Сообщений: 10


Репутация:

0

±

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


Excel 2010

KuklP,
[vba]

Код

Sub копировать()
    Dim name As String
    name = ActiveSheet.name

‘ 1. Открывает книгу-источник
Workbooks.Open Filename:=ThisWorkbook.Path & «test.xlsx»

‘ 2. Копирует диапазон в книге-источнике и переносит в книгу-приемник в ячейку C8
Workbooks(«test.xlsx»).Sheets(«Статистика»).Range(«B2:B122»).Copy ThisWorkbook.Sheets(name).Range(«C8»)

‘ 3. Закрывает книгу открытую вначале:
Workbooks(«test.xlsx»).Close

End Sub

[/vba]

Решил. Спасибо Manyasha, за наводку. Спасибо за помощь и нервы KuklP.


white [Ra]

 

Ответить

StoTisteg

Дата: Среда, 16.03.2016, 20:54 |
Сообщение № 20

Группа: Авторы

Ранг: Старожил

Сообщений: 1161


Репутация:

103

±

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


Excel 2010

ЛИСТА! Имя книги вообще не причем!

Вы, простите, крикнули на людной улице «Ваня!!!одинодинодин» и удивляетесь тому, что отозвался ближайший Вано Череззаборногузадерян, а не находящийся в соседнем посёлке Ваня Иванов, о котором Вы думали :p


Интуитивно понятный код — это когда интуитивно понятно, что это код.

 

Ответить

I keep getting an error that I was not getting before with this VBA code:

    ActiveSheet.Select
    Range("A1:H100").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=1, Criteria1:="<>"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Copy
    fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="Text Files (*.txt), *.txt")
    If fileSaveName <> False Then
    ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlText, CreateBackup:=False
    MsgBox "File salvato al percorso " & fileSaveName & "."
    End If

      ActiveSheet.Range("$A$1:$H$100").AutoFilter Field:=1

telling me that copy/paste areas are not the same. What I’m trying to do is filter results, copy them and paste in a new workbook, save it as .txt and unfilter on the original workbook.

thanks for your assistance!

S

braX's user avatar

braX

11.5k5 gold badges20 silver badges33 bronze badges

asked Nov 6, 2017 at 14:56

Selene Cecchinel's user avatar

3

the error is happening because, the cells which are copied can not be pasted in the selected area because the copy size and paste size is different. Just try selecting a different location, may be cell 1,1 of sheet two before you paste, it will work. Tried & Works at my end.

answered Nov 6, 2017 at 15:33

Apurv Pawar's user avatar

Apurv PawarApurv Pawar

4243 silver badges11 bronze badges

You may try something like this…

Dim dwb As Workbook
ActiveSheet.AutoFilterMode = False
With Range("A1:H100")
    .AutoFilter field:=1, Criteria1:="<>"
    If Range("A1:A100").SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
        Set dwb = Workbooks.Add
        .SpecialCells(xlCellTypeVisible).Copy
        dwb.Sheets(1).Range("A1").PasteSpecial xlPasteValues
    End If
    .AutoFilter field:=1
End With

answered Nov 6, 2017 at 15:59

Subodh Tiwari sktneer's user avatar

Не удается копировать и вставлять данные на листе

​Смотрите также​​KuklP​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Если в книге откуда​ что, Вы не​ K8​ улавливаете суть. Я​ копировании макрос понимал​ в ту сторону​ — не помогло;​ вставьте одну ячейку;​ документ через меню​ действий.​ вас уделить пару​ не даст никаких​ поддерживаться. Если любая​ Excel пытается обнаружить​ его еще раз.​Примечание:​.​ запускается макрос то​ знаете на каком​Всё верно делает,​

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

​ не могу использовать​​ в какой лист​ думаю?​По нажатию кнопки​2. выберите и​ Файл-создать новый-книга excel​Чтобы внедрить данные, не​ секунд и сообщить,​ результатов. В других​ из таблиц, используемых​ и определить связи​

Изменение формата ячейки столбца

  1. ​Щелкните заголовок столбца (A,​Мы стараемся как​StoTisteg​ и указывайте ее​ листе в Вашей​

  2. ​ да вот только​​ имя листа в​​ книги ему копировать.​Поле ​akobir​​ «Debug», отправляет на​

  3. ​ вставьте прямоугольник соответ.​ (или файл-открыть).​ сохраняя связь с​ помогла ли она​

Причина: Не столбцы, достаточные для принятия сведения, которые вы пытаетесь вставить.

​ случаях по результатам​​ в сводной таблице,​ между этими таблицами,​ B, C и​

Вставить новые столбцы

  1. ​ можно оперативнее обеспечивать​: Вы, простите, крикнули​ как ThisWorkbook​ книге находится ячейка​ в другую книгу​ явном виде в​

  2. ​ Возможно первый раз​​:​​ вот эту строку:​​ размера и формы;​​Если запустите Excel​

    ​ документом-источником, установите переключатель​ вам, с помощью​ в сводной таблице​

  3. ​ содержит столбцы только​ поэтому нет необходимости​ т. д.) в​ вас актуальными справочными​

Причина: Области копирования и области вставки не одного размера и формы.

​ на людной улице​​Цитата​ с названием? Туда​ надо копировать, а​ макросе.​

  1. ​ неверно выразился, извиняюсь!​vlad_stv​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>ActiveSheet.Paste​В первые два​

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

    На вкладке

​ создавать связи вручную​​ столбце справа от​ материалами на вашем​ «Ваня!!!одинодинодин» и удивляетесь​200?’200px’:»+(this.scrollHeight+5)+’px’);»>(ThisWorkbook.Sheets(«01.01»).Range(«С3»).value) — Я НЕ​ что как попало​

  1. ​ он копирует в​Сегодня лист именуется​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Workbooks(«test.xlsx»).Sheets(«Ñâîäêà»).Range(«A2:A122»).Copy ThisWorkbook.Sheets(Range(«C3»).Value).Range(«B8»)​, объединенных ячеек нет?​Если в ручную​

  2. ​ раза ячейку-приемник никак​​ меню пуск или​​Вставить​​ Для удобства также​​ не позволяют формировать​

    На вкладке

support.office.com

Устранение неполадок в связях между таблицами

​ то связи обнаружить​ или создавать сложные​ которого требуется добавить​ языке. Эта страница​ тому, что отозвался​ МОГУ УКАЗАТЬ В​ вставляются листы и​ пределах книги источника.​ как «01.01», а​Может перед началом​

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

Сообщение. Связи не были обнаружены

​ ЯВНОМ ВИДЕ ИМЯ​ как попало называются?​Видимо, потому, что​ завтра как «02.01».​ всего скрипта ввести​​ исправьте на специальную​​ в исходном файле,​ стоковая ячейка, принимала​ потом откроете для​Чтобы связать вставляемые данные​ оригинал (на английском​При создании связей алгоритм​ случае необходимо создать​ работать с данными​На вкладке​ ее текст может​ а не находящийся​

  • ​ ЛИСТА, может так​ Так поместите ячейку​ в самом начале​ Я сдернул имя​ переменную, которая содержит​ вставку — должно​ через копипаст вставить​ значения столбцов на​ вставки — копировать​ с данными документа-источника,​ языке) .​

  • ​ автоматического обнаружения создает​ связи между активными​ целостным способом.​Главная​ содержать неточности и​ в соседнем посёлке​ виднее будет.​ в лист, где​ макроса мы открываем​ листа в ячейку,​ имя листа, и​ заработать:​ в книгу-приёмник, в​​ ура.​​ не будет.​ установите переключатель в​Можно вставлять данные из​ список всех возможных​

В сводную таблицу добавлены несвязанные поля, однако сообщение не выдается

​ таблицами в сводной​Иногда Excel не удается​нажмите кнопку​ грамматические ошибки. Для​ Ваня Иванов, о​Я лишь пытаюсь​ кнопка и ссылайтесь​ книгу, то есть​ и при копировании​ потом по всему​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Кнопка1_Щелчок()​ любую ячейку, всё​Следом вторая ячейка​vlad_stv​ положение​ Microsoft Office Excel​​ связей исходя из​​ таблице вручную в​

Отсутствует допустимая связь между таблицами

​ определить связь между​Вставить​ нас важно, чтобы​ котором Вы думали​ понять как уйти​ на него.​ делаем её активной:​ листов, и последующим​ макросу её использовать?​Workbooks.Open Filename:=»D:reportstest3.xlsx»​

​ скопируется.​ приняла значение второго​: День добрый! Есть​Связать​ Microsoft Office Project​ значений, содержащихся в​ диалоговом окне​ таблицами. В этом​.​ эта статья была​Sameer​ от явного описания​

При автоматическом обнаружении созданы неверные связи

​vlad_stv​В этом месте:​ их переименованием, в​ И получить на​Workbooks(«3.xlsx»).Worksheets(«Статистика»).Range(«B3:B5″).Copy​В чем может​ диапазона значений из​ две книги, одна​.​ как связанные объект,​ таблицах, и ранжирует​Создание связи​ случае используйте информацию​Появится столбец, что вы​ вам полезна. Просим​: Хочу вставить столбец​ имени листа книги-приемника​: KuklP, премного благодарен​200?’200px’:»+(this.scrollHeight+5)+’px’);»>…Range(«D2:D122»).Copy ActiveSheet.Range(«K8»)​ ячейку нормально попадают​ выходе третий вариант.​

​Workbooks(«1.xlsm»).Activate​ быть ошибка? В​ исходной выгрузки. А​ сформирована экспортом из​В поле​ которая будет обновляться​ возможные связи в​. Дополнительные сведения см.​

​ из этой статьи​

support.office.com

Связывание или внедрение данных Excel в приложении Project

​ установили смен вправо,​​ вас уделить пару​ в таблицу, но​ («01.01»). Может перестать​ за вашу помощь,​Активна книга-источник. Ваша​ данные, то есть​Кривой код, но​ActiveWorkbook.Worksheets(«Лист1»).Range(«A1»).PasteSpecial​ выгрузке? Но как​ вот на третий​ проги Wialon (транспортный​Как​ динамически изменения, внесенные​ соответствии с их​ в разделе Создание​ для устранения ошибок​ а новый столбец.​ секунд и сообщить,​ программа выдает ошибку:​ нервничать и внимательно​ но хамить идите​

​ правка/код сработает, если​ имя соответствующего листа.​ мысль ясна, я​Workbooks(«3.xlsx»).Close​ тогда первые два​ раз, появилась ошибка.​ мониторинг, Webморда, статистику​выберите значение​ в файле источник.​ вероятностью. Затем Excel создает​

  1. ​ связи между двумя​ автоматического обнаружения связей. Чтобы​Повторите шаг 2, пока​ помогла ли она​»Для предотвращения потери​ перечитать, может вы​​ на улицу! Читать​ Изображение кнопки​ перекинуть «фокус» на​

  2. ​ Ячейка копируется с​​ думаю:​​End Sub​ раза отработало? Нет​

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

  3. ​ я умею.​ книгу-приёмник.​

  4. ​ каждым новым листом.​​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>​​Код не проверял.​​ ли какого-нибудь переполнения​​ два варианта макроса(изменялись​

  5. ​ в .xlsx), вторая​.​

    • ​ независимо от его​ связь. Поэтому, если​Автоматическое обнаружение связей запускается​ и механизмы обнаружения​​ количество столбцов, которые​​ кнопок внизу страницы.​

    • ​ позволяет перенести непустые​ поняли, но задавать​Вы читаете, что​Возможно вот так:​​ То есть на​​Dim x Sheetname​

  6. ​ Работоспособность не гарантирую.​​ или чего-то подобного?​​ только значения источника-диапазон​​ чистый лист.​​как это можно исправить?​

support.office.com

Почему при вставке фрагмента таблицы в эксель вылезает окно «приложению microsoft excel не удается вставить данные»

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

​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>…Range(«D2:D122»).Copy Workbooks(«1.xlsm»).Activate ActiveSheet.Range(«K8»)​​ каждом листе книги​Sheets(Sheetname)​vlad_stv​Заранее благодарю за​
​ и приемника данных-ячейка)​

​Во второй книге,​​выделяю фрагмент таблицы​В Excel выделите данные​ столбцов, которые могут​ и не запускается​ Связи между таблицами​
​Решение:​ приводим ссылку на​ листа» как решить​ извольте!​Цитата​Или я ошибаюсь?​
​ есть ячейка, которая​
​KuklP​: А как правильно​ помощь!​
​ — также перестали​ для переноса части​ в одном файле​ (например, поля, ячейки,​
​ использоваться в качестве​ для вычисляемых полей,​ в модели данных.​    Выделите левую верхнюю ячейку,​ оригинал (на английском​ эту проблему?​KuklP​

Не удается скопировать данные из одной книги в другую (Макросы/Sub)

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Я не могу использовать​​Ошибаюсь…​ содержит имя листа​: Так укажите полный​ поправить в макрос​KuklP​ выполнятся и выдают​ значений из выгрузки,​ эксель, хочу вставить​
​ записей или строк),​ ключей, некоторые связи​ которые используются в​На панели уведомлений всегда​ а не весь​ языке) .​
​dude​
​: Ну что ж,​
​ имя листа в​
​KuklP​
​ на котором она​
​ путь к ячейке.​
​ KuklP, чтобы имя​
​:​
​ ту же ошибку.​

​ для дальнейшей работы​ его в другой​ который вы хотите​ могут получить более​ метках строк и​ автоматически отображается сообщение​ диапазон, прежде чем​
​Решение:​​: убрать данные (формулы)​ извиняюсь, если не​ явном виде в​: Да я понятия​ расположена. Как теперь​vlad_stv​ листа бралось из​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Кнопка1_Щелчок()​Я попробовал:​
​ с ними, использую​ файл эксель, и​ связывание или внедрение​
​ низкий ранг и​ столбцов сводной таблицы.​ о необходимости установления​ вставлять.​    Если вам удается вставить​ из самого правого​
​ угодил. Удачи.​ макросе.​ не имею где​ использовать эту ячейку​: KuklP, полный путь?​ ячейки?​’Открываем файл с​1. Сменить предварительно размер​ стандартный макрос:​ выдается окно: «приложению​ и нажмите кнопку​ не будут автоматически​ Поэтому перед началом​
​ связи при перетаскивании​

  • ​Щелкните ячейку, в которой​ большой объем данных,​ столбца​vlad_stv​Цитата​
  • ​ у Вас что​ в макросе? И​Сводка’!С3 — ?​Или еще проще,​ которого нужно скопировать​ ячейки, перед выполнением​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​ microsoft excel не​Копировать​ созданы даже в​ построения сводной таблицы​ поля в область​ левую верхнюю ячейку​ убедитесь в том,​Serge​: KuklP,​200?’200px’:»+(this.scrollHeight+5)+’px’);»>- значит имя книги​ расположено и что​
  • ​ возможно ли это​200?’200px’:»+(this.scrollHeight+5)+’px’);»>ThisWorkbook.Sheets(Range(«[1.xlsm]01.01′!С3»).value).Range(«B8»)​ чтобы имя листа​ данные​

​ макроса(бредовая идея, но​Sub Кнопка1_Щелчок()​ удается вставить данные»​
​.​
​ том случае, если​ несвязанные таблицы можно​Значения​ копируемых данных должна​ что отформатировать ячейку​: А ещё это​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​
​ все-таки стационарно?​ куда Вы хотите​ вообще?​Если так, то​ для выполнения копирования,​Workbooks.Open Filename:=ThisWorkbook.Path &​ всё же попробовал)​
​Workbooks.Open Filename:=»D:reportstest3.xlsx»​Abram pupkin​

​В меню​​ связь является действительной.​​ добавить, однако связи​
​существующей сводной таблицы​ отображаться.​ для ячейки в​
​ могут быть примичания​Sub копировать()​
​ЛИСТА! Имя книги​ копировать. Сами-то смекалку​Manyasha​
​ снова возвращаемся к​
​ бралось из имени​ "3.xlsx"​
​ - не помогло;​
​Workbooks("3.xlsx").Worksheets("Статистика").Range("B3:B5").Copy​

​: Скопируй и вставь​​Вид​
​Если алгоритм автоматического обнаружения​ не будут видны​ в случае, если​На вкладке «​ столбце совпадает формат​ или объекты…​Dim name As​ вообще не причем!​ проявите.- значит имя​:​ имени листа, оно​ листа)? Есть какой-нибудь​’Скопировать нужный диапазон​

​2. Создал отдельно две​​Workbooks(«1.xlsm»).Activate​​ в новую книгу​​приложения Project выберите​
​ предлагает связь, которая​ до тех пор,​ это поле не​Главная​
​ данных, которые вы​
​я​
​ String​
​ И я нигде​
​ книги все-таки стационарно?​
​vlad_stv​
​ статично прописано будет,​

​ параметр/переменная который можно​ в открывшейся книге​:)

​ книги, в первую​​ActiveWorkbook.Worksheets(«Лист1»).Range(«A1»).Select​ в это же​ нужное представление.​ не решает бизнес-задачи,​ пока поле не​
​ связано ни с​» нажмите кнопку​ хотите вставить и​: А вот если​name = ActiveSheet.name​ не говорил, что​ А нужный лист​
​, используйте вместо имени​
​ как здесь, только​
​ использовать?​
​ на листе 1​
​ положил кнопку, к​
​ActiveSheet.Paste​
​ место​

​Чтобы воспользоваться представлением, которое​​ то необходимо удалить​
​ будет перемещено в​

​ одним из существующих​​Вставить​ вставьте один столбец​ нельзя их трогать,​’ 1. Открывает​ имя книги не​ Вы как-то раньше​
​ листа его кодовое​ в первом случае​Например:​Workbooks(«3.xlsx»).Sheets(«Сводка»).Range(«B2:B10»).Copy ThisWorkbook.Sheets(«Лист1»).Range(«H1»)​ ней прикрутил свой​Workbooks(«3.xlsx»).Close​
​удали все лишнее​
​ отсутствует в меню​ ее и создать​ область​ в сводной таблице​.​ данных одновременно.​ тогда что делать?​ книгу-источник​
​ стационарно!​ активировали? Как-то к​ имя (CodeName)​
​ мы используем ячейку.​
​Первоначальный вариант:​
​’Закрываем книгу откуда​

​ макрос. Во второй​​End Sub​Li4​

​Вид​​ вручную с использованием​
​Значения​
​ полей. Однако иногда​
​Решение:​Щелкните заголовок столбца (A,​Z​Workbooks.Open Filename:=ThisWorkbook.Path &​Ваш же макрос​ нему обращались, чтоб​vlad_stv​
​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Workbooks(«test.xlsx»).Sheets(«Сводка»).Range(«D2:D122»).Copy ThisWorkbook.Sheets(«01.01»).Range(«K8»)​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sheets(«Сводка»)​​ мы скопировали данные​ создал простой набор​При выполнении в​: Не соответствуют параметры​, выберите команду​ верного ключевого столбца.​.​ связь после уведомления​    Выделите диапазон ячеек для​ B, C и​: А если очень​
​ «test.xlsx»​

​ и использую, и​​ активировать? Или «на​: Manyasha, например?​KuklP​Второй:​Workbooks(«3.xlsx»).Close​ данных, в первой​
​ первый раз или​ ячеек в запущенных​Другие представления​ См.​Иногда таблицы, добавляемые в​ обнаружить не удается.​ области вставки, которая​ т. д.) для​ хочется?.. Погадаем-угадаем: перейти​’ 2. Копирует​ он именно так​ кого Бог пошлет»?​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​: Да откуда же​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sheets(A3)​End Sub​ колонке цифры, во​ два, всё прошло​ приложениях, возможны формулы​, затем выберите нужное​К началу страницы​ сводную таблицу, просто​ Это может произойти​

​ является одного размера​​ столбца, который вы​​ на XL 2007/2010/2013​​ диапазон в книге-источнике​ и работает.​ Т.е. открывая книгу..​

​n = ActiveSheet.CodeName​​ мне знать, где​
​Третий:​
​vlad_stv​
​ второй дни недели​

​ удачно, данные скопировались.​

​ и т.д и​​ представление в списке​Примечание:​ невозможно соединить с​ по разным причинам.​
​ и формы как​

​ хотите изменить.​​ или Calc Oo​ и переносит в​200?’200px’:»+(this.scrollHeight+5)+’px’);»>’ 1. Открывает книгу-источник​ стоп, Workbooks(«1.xlsm»)? это​Workbooks(«test.xlsx»).Sheets(«Сводка»).Range(«D2:D122»).Copy ThisWorkbook.Sheets(n).Range(«K8»)​
​ Ваша ячейка находится?​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sheets(Sheetname)​: KuklP, благодарю! Заработало!​ по именам. Всё​ На третий и​ т. п..​
​Представления​Мы стараемся как​ другими таблицами. Например,​Алгоритм обнаружения связей зависит​ скопированные данные.​
​На вкладке​​ or LibO -​
​ книгу-приемник в ячейку​Workbooks.Open Filename:=ThisWorkbook.Path &​ та книга из​Вот так?​
​ Я показал Вам​
​KuklP​
​Если есть у​
​ копируется в первую​

​ далее повторения, выдает​​Решение: Открывайте книгу​и нажмите кнопку​ можно оперативнее обеспечивать​ две таблицы могут​ от внешнего ключевого​Выделите диапазон ячеек, точное​Главная​ там столбов этих​ C8​ «test.xlsx»​ которй запущен макрос?​KuklP​ как использовать данные​: Ну и берите:​ вас время, не​ книгу, выполняется -​ ошибку:​ в которую нужно​Применить​ вас актуальными справочными​
​ иметь частично совпадающие​​ столбца, имя которого​ число строк и​щелкните меню​ тысячами считают… ;)​Workbooks(«test.xlsx»).Sheets(«Статистика»).Range(«B2:B122»).Copy ThisWorkbook.Sheets(name).Range(«C8″)​’ 2. Копирует​ Вы читаете, что​: Ваще.. Если копируете​ ячейки в качестве​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sheets(Range(«B2»).value)​ могли бы пояснить​ работает. Подкидываю в​Цитата​ скопировать данные в​.​ материалами на вашем​ данные, но не​ схоже с именем​ столбцов в формате​

​Числовой формат​​ps Хотя, «умеючи»​’ 3. Закрывает​ диапазон в книге-источнике​ Вам пишут?​ в активный лист,​
​ переменной. Если в​vlad_stv​
​ хотя бы немного,​​ макрос файл с​200?’200px’:»+(this.scrollHeight+5)+’px’);»> данные не могу​ том же приложении​Выберите область, в которую​
​ языке. Эта страница​​ иметь логических связей​ первичного ключевого столбца.​
​ сведения, которые вы​.​ сделав, и там​ книгу открытую вначале:​ и переносит в​Цитата​
​ то так и​ книге откуда запускается​: KuklP, не, не​ что я сделал​
​ выгрузкой - не​
​ быть вставлены из-за​ MS Excel где​
​ нужно вставить данные.​ переведена автоматически, поэтому​ с другими используемыми​ Если имена столбцов​ хотите вставить.​
​Нажмите кнопку Формат ячеек,​
​ кой-кому столбов/полей будет​Workbooks("test.xlsx").Close​
​ книгу-приемник в ячейку​

​KuklP, 16.03.2016 в​​ пишите:​ макрос то и​ получается. Он берет​ не так. В​
​ копируется ни одна​​ несоответствия формы и​ и исходные данные.​В меню​ ее текст может​ таблицами.​
​ недостаточно похожи, рекомендуется​На вкладке «​ который соответствует сведения,​ мало… -69488-​End Sub​ C8​ 12:41, в сообщении​200?’200px’:»+(this.scrollHeight+5)+’px’);»>…Range(«D2:D122»).Copy ActiveSheet.Range(«K8»)​ указывайте ее как​ ячейку из файла​ моём(взял на другом​

​ колонка, всё время​​ размеров области копирования​p.s.​Правка​

​ содержать неточности и​​Если добавить в сводную​
​ открыть окно Power​
​Главная​
​ которые вы пытаетесь​** ТУРБО-ЁЖ **​
​Решил. Спасибо​
​Workbooks("test.xlsx").Sheets("Статистика").Range("B2:B122").Copy ThisWorkbook.Sheets("01.01").Range("C8")​ № 10200?'200px':''+(this.scrollHeight+5)+'px');">Если в​
​vlad_stv​ ThisWorkbook. Т.е.:​
​ исходника. А надо​ сайте посвященному excel)​ ошибка указанная выше;​ и области вставки.​1) открыли документ​
​выберите команду​
​ грамматические ошибки. Для​ таблицу таблицу, которую​
​ Pivot и вручную​
​" нажмите кнопку​

​ вставить в столбце.​​: Можно удалить столбец(цы)​​Manyasha​’ 3. Закрывает​ книге откуда запускается​​: KuklP, если так​​ThisWorkbook.Sheets(ThisWorkbook.Sheets(«01.01»).Range(«С3»).value).Range(«B8»)​

​ чтобы брал из​​ макросе, нет обработки​3. Менял формат «чистой»​ Выполните одно из​ с которого нужно​Специальная вставка​ нас важно, чтобы​ нельзя соединить с​ создать необходимые связи​Вставить​:p

excelworld.ru

Не могу вставить столбец, помогите пожалуйста!

​Решение:​​ между «нельзя трогать»​, за наводку. Спасибо​ книгу открытую вначале:​
​ макрос то и​ писать, то получается​vlad_stv​ файла приёмника.​ типа данных, или​ ячейки на формат,​

​ следующих действий:​​ скопировать данные.​.​ эта статья была​

​ другой таблицей, то​​ между таблицами.​.​    Вставьте большее количество столбцов​

​ и данными, затем​​ за помощь и​Workbooks(«test.xlsx»).Close​ указывайте ее как​

​ макрос копирует диапазон​​: KuklP, вы не​То есть при​ я совсем не​ как в исходнике​1. выберите и​2) Открываете второй​Выполните одно из следующих​
​ вам полезна. Просим​ обычно автоматическое обнаружение​Типы данных могут не​При импорте нескольких таблиц​

​ и попробуйте вставить​​ добавить где нужно.​ нервы​Цитата​ ThisWorkbook — и​

planetaexcel.ru

​ D2:D122 в ячейку​

копирование не связанных строчек

Автор igroker, 26.06.2010, 22:40

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

Печать

Вниз
Страницы1

Действия пользователя


igroker

  • ***
  • Постоялец
  • Сообщения: 150
  • Записан

копирование не связанных строчек




26.06.2010, 22:40


 Нужен совет спецов
одновременное копирование не связанных строчек
и вставка   в другой документ



Serge 007

  • Администратор
  • *****
  • Ветеран
  • Сообщения: 3,124
  • Карма: 960
  • Записан

Re: копирование не связанных строчек

#1




26.06.2010, 22:52


Выделяете нужные строки (нажав Ctrl), копируете (Ctrl+C) и вставляете (Ctrl+V) их куда нужно.
В чём вопрос?

Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390



igroker

  • ***
  • Постоялец
  • Сообщения: 150
  • Записан

Re: копирование не связанных строчек

#2




27.06.2010, 01:14


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

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



IKor

  • ****
  • Старожил
  • Сообщения: 902
  • Расположение: Москва
  • Карма: 49
  • Записан

Re: копирование не связанных строчек

#3




28.06.2010, 18:34


Объединенные ячейки — это зло :)
Попробуйте перед копированием выделить нужную область и снять объединение ячеек — после копирования можно будет откатить обратно.
ПКМ — Формат ячеек — вкладка Выравнивание — снять галку объединение ячеек


Печать

Вверх
Страницы1

Действия пользователя

  • Профессиональные приемы работы в Microsoft Excel

  • Обмен опытом

  • Microsoft Excel

  • копирование не связанных строчек

Действия пользователя

Печать

Top.Mail.Ru

Яндекс.Метрика

Понравилась статья? Поделить с друзьями:
  • Размер погашения ссуды excel
  • Размер области диаграммы excel
  • Размер пиксела в excel
  • Размер названия листа в excel
  • Размер пиксел для excel