Отдельные ячейки в новую таблицу

Дата: Пятница, 18.05.2018, 05:47 | Сообщение № 1

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

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

Сообщений: 13

Репутация: 0 ±

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

Excel 2007

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

Прикрепленный файл: Желтые ячейки на новый лист/книгу
Нужные данные: 1) E12 номер
2) D14 дата
3) D17 площадь
4) G70 имя

К сообщению приложен файл: ______.xlsx (16.4 Kb)

Сообщение отредактировал Mertc - Пятница, 18.05.2018, 11:44

китин

Дата: Пятница, 18.05.2018, 06:53 | Сообщение № 2

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

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

Сообщений: 7034

Репутация: 1079 ±

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

Excel 2007;2010;2016

ВПР вам в помощь. точнее при наличии файла примера, согласно ПРАВИЛАМ

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

Pelena

Дата: Пятница, 18.05.2018, 10:03 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19513

Репутация: 4632 ±

Замечаний: ±

Excel 365 & Mac Excel

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Пятница, 18.05.2018, 10:20 | Сообщение № 4

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

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

Сообщений: 13

Репутация: 0 ±

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

Excel 2007

Pelena, просто как образец что они все в столбик пойдут. :'(

Дата: Пятница, 18.05.2018, 10:59 | Сообщение № 5

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

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

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

Excel 2010

Цитата Mertc, 18.05.2018 в 05:47, в сообщении № 1 ()

Данные находятся не по порядку, как по столбцам так и по строкам.

Опишите более четко структуру листа "Дано". Все первичные документы, которые там размещены, имеют одинаковую структуру в плане их размера по строкам и столбцам и расположения полей?
Если нет, то нужно поля Кадастровый номер, Дата присвоения, Площадь, ФИО вычислять по каким-то им присущим атрибутам. Для этого нужно понимать варианты их форматов и взаимного расположения

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

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

Дата: Пятница, 18.05.2018, 11:15 | Сообщение № 6

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

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

Сообщений: 13

Репутация: 0 ±

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

Excel 2007

abtextime, Лист дано - это и есть реальный документ, я менял в нем только данные, структуру не трогал.
У меня будет условно 200 таких документов(они все одинаковые, меняются только данные), желтые ячейки с каждого из них нужно будет перенести в отдельный лист или книгу.

Дата: Пятница, 18.05.2018, 11:29 | Сообщение № 7

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

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

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

Excel 2010

На листе Дано данные по одному помещению?
Кадастровый номер всегда в ячейке E13?
Дата присвоения кадастрового номера всегда в ячейке D14?
Площадь всегда в ячейке D15?
ФИО вам кто нужен? Получатель выписки? Или Правообладатель? Они тоже по статичным адресам ячеек находятся?

Отвечая на Ваш вопрос "Можно ли сделать подобное?" - ответ - "Можно", но любому, кто возьмется Вам помочь, нужна более подробная информация.

Делать макросом, входной параметр - маска файлов, где расположены данные, если они расположены в разных файлах. Если эти 200 - просто листы одной книги - то еще проще.

Дата: Пятница, 18.05.2018, 11:43 | Сообщение № 8

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

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

Сообщений: 13

Репутация: 0 ±

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

Excel 2007

abtextime, это оригинальный документ! Просто с левыми данными.
Все данные всегда в одних и тех же ячейках. Четвертая желтая(нужная мне) ячейка с именем находится в G70.
Нужные данные: 1) E12 номер
2) D14 дата
3) D17 площадь
4) G70 имя

Дата: Пятница, 18.05.2018, 11:46 | Сообщение № 9

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

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

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

Excel 2010

Документы будут в отдельных файлах? По одному листу в каждом?

Дата: Пятница, 18.05.2018, 12:01 | Сообщение № 10

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

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

Сообщений: 13

Репутация: 0 ±

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

Excel 2007

abtextime, да, это документ на одну единицу, единиц условно 200.

Дата: Пятница, 18.05.2018, 12:13 | Сообщение № 11

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

Ранг: Ветеран

Сообщений: 828

Репутация: 117 ±

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

Excel 2010

Mertc, если с макросами сами "дружите", то посмотрите, например, http://excelvba.ru/code/CombineFiles

поменяйте там этот кусок
[vba]

Код

Set sh = WB.Worksheets(1)    ' будем брать данные с первого листа
            ' берем диапазон ячеек с ячейки B1 до последней заполненной в столбце B
            Set ra = sh.Range(sh.Range("b1"), sh.Range("b" & sh.Rows.Count).End(xlUp))

            ' ==== переносим данные в наш файл (shb - кодовое имя листа, куда помещаем данные)
            shb.Range("a" & shb.Rows.Count).End(xlUp).Offset(1).Resize(, ra.Rows.Count).Value = _
            Application.WorksheetFunction.Transpose(ra.Value)
            ' ==== конец обработки данных из очередного файла

            WB.Close False: DoEvents    ' закрываем обработанный файл без сохранения изменений
            pi.Log vbTab & "Файл успешно обработан."

            ' перемещаем обработанный файл из папки InvoiceFolder$ в папку ArchieveFolder$
            Name Filename As ArchieveFolder$ & Dir(Filename, vbNormal)

[/vba]

на вашу задачу

Если нет, ждите, Вам обязательно помогут, вопрос небольшого времени

Дата: Пятница, 18.05.2018, 12:15 | Сообщение № 12

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

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

Сообщений: 13

Репутация: 0 ±

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

Excel 2007

abtextime, спасибо, попробую. Но прямо скажем я буду первый раз лезть в макросы.