Выборочно объеденить ячейки в двух файлах

Дата: Вторник, 09.07.2013, 13:10 | Сообщение № 1

Группа: Гости

Добрый день. Помогите пожалуйста cry

Имеются два файла эксель.
Первый файл - установленное ПО и его версии в разрезе ПО(т.е. одна(!) строчка winword-версия)
Второй файл - установленное ПО и компы, на которых оно установлено, в виде winword-комп1, winword-комп2 и тд. Т.е. много строк для одного ПО.
Мне надо объединить эти два файла так, чтобы все это пришло к виду winword- комп1, комп2 и тд в одной(!) строке. Одно ПО-одна строка

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

Блок схема

Начало цикла i=1, пока i<=45593
Присвоить переменной А1 значение(!) ячейки А(i+1) из файла 1
Найти полное совпадение А1 в файле 1 и объединить ячейки с потерей данных(1 столбец!)
Найти полное совпадение переменной А1 в файле 2
Присвоить переменной А2=А(k) –номер ячейки с найденным значением в файле 2

Начало цикла x=1, пока А(x+1)=А1 (файл 1)
m=x+1
В файле 1 объединить ячейки С(m)(без потери даных)
Присвоить переменной С1 значение объединенных ячеек
Конец цикла

Присвоить переменно n =m-1 (кол-во циклов)
Скопировать С1 в файл 2 С(k), где А(k)=А2
Скопировать в Е(k) n, где А(k)=А2

Конец цикла

Буду очень благодарна помощи, советам, сочувствую, чему-нибудь biggrin

Файлы огромные, на фирме более 1 000 компов

Для примера
Файл1 - http://files.mail.ru/1BE86E5974BC4F0684432E6D6A679BCB
Файл2 - http://files.mail.ru/74438DDAA758439CA58E323FF42B00B4

Добрый день. Помогите пожалуйста cry

СообщениеДобрый день. Помогите пожалуйста cry

Автор - Наталия
Дата добавления - 09.07.2013 в 13:10

Serge_007

Дата: Вторник, 09.07.2013, 13:12 | Сообщение № 2

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата (Наталия)

С VBA столкнулась час назад »

Почему топик не в соответствующей ветке?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 09.07.2013, 13:18 | Сообщение № 3

Группа: Гости

Простите, ветка же "Вопросы по Exсel", у меня вопрос по экселям...
Перенесите пожалуйста в нужную ветку, если я ошиблась.

Спасибо

Serge_007

Дата: Вторник, 09.07.2013, 13:20 | Сообщение № 4

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата (Наталия)

ветка же "Вопросы по Exсel", у меня вопрос по экселям »

И где этот вопрос?
По VBA вижу вопрос, по Excel - нет

Перенёс

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 09.07.2013, 16:54 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 398

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

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

Цитата (Наталия)

Написала блок-схему как вижу я это действо »

Так блок-схемы писали при Царе-Косаре. biggrin

Лучше покажите на примере Ваших файла 1 и файла 2 то, что Вы реально хотите видеть в итоге!

Poltava

Дата: Вторник, 09.07.2013, 17:39 | Сообщение № 6

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

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

Сообщений: 232

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

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

Да неплохо бы увидеть результирующий файл! Тут как по мне и без макросов обойтись можно зачем VBA по пустякам беспокоить

Дата: Вторник, 09.07.2013, 19:01 | Сообщение № 7

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

Ранг: Обитатель

Сообщений: 398

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

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

Цитата (Poltava)

зачем VBA по пустякам беспокоить »

"На вкус и цвет товарищей нет..."
Чем лучше многоэтажные формулы? biggrin

Дата: Среда, 10.07.2013, 17:04 | Сообщение № 8

Группа: Гости

Спасибо большое за ответы!!
Морально приготовилась что тема "умрет"

Вот итоговый файл, который я хочу увидеть
http://files.mail.ru/BAC3B38A04024068ACD4C93D4EA1138D

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

Poltava

Дата: Среда, 10.07.2013, 17:30 | Сообщение № 9

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

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

Сообщений: 232

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

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

Пока задача ясна не до конца! Дайте корректные примеры! пока я не вижу не в одном файле конструкции winword-комп1, winword-комп2. так же не вижу принципиальной разницы между файлом два и итоговым! опишите подробней и дайте корректные примеры! то есть то как есть сейчас как нужно но только на примере одних и тех же данных, а то у вас в первом файле фотошоп, а во втором бугалтерия и неодной похожей позиции чтоб понять как есть и как нужно! Ну и для затравки, у вас неправильно посчитано количество компов! там их 18 а не 19! для расчета предлагаю такую формулу

Код

=ДЛСТР(СЖПРОБЕЛЫ(F2))-ДЛСТР(ПОДСТАВИТЬ(F2;" ";""))+1

Сообщение отредактировал Poltava - Среда, 10.07.2013, 17:32

Дата: Среда, 10.07.2013, 20:00 | Сообщение № 10

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

Ранг: Обитатель

Сообщений: 398

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

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

Цитата (Наталия, Среда, Сегодня, 17:04 # 8)

Морально приготовилась что тема "умрет"

Почему такой пессимизм?!
Повторюсь, но:

Цитата (Матрёна, Вторник, Вчера, 16:54 # 5)

Лучше покажите на примере Ваших файла 1 и файла 2 то, что Вы реально хотите видеть в итоге!

Вы "выставили" файл "Итог", который просто повторил Ваш файл 2.
Алгоритм получения файла "Итог" на основе файла 1 и файла 2 НЕ "ПРОСМАТРИВАЕТСЯ"!!!

Дата: Четверг, 11.07.2013, 01:07 | Сообщение № 11

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

Ранг: Обитатель

Сообщений: 398

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

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

Наталия!
Совсем не понятно, какую функцию должен выполнить Ваш файл 1 в решении Вашей проблемы.
По-моему, он вообще не нужен.
Полагаю, Вам требуется "разорвать" информацию из каждой ячейки столба F файла 2 на строки, количество которых (строк) равно количеству названий компов, указанных в соответствующей ячейке столба F файла 2.
Имена компов разделены пробелом?

Цитирую одного из уважаемых экспертов EXCEL:
Даже самый простой вопрос можно превратить в огромную проблему.
Достаточно не уметь формулировать вопросы...

Дата: Четверг, 11.07.2013, 10:34 | Сообщение № 12

Группа: Гости

Прощу прощенья за сумбур и непонятное изложение проблемы.
Исправляюсь.

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

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

Именно этот процесс объединения ячеек и копирования в соответствующую колонку файла два я и хотела бы автоматизировать.

Код макроса прилагаю.
[qoute]
Sub Mak()
Dim c As Range
Dim s As String

For Each c In Selection
If s = "" Then
s = c
Else
s = s & " " & c
c.ClearContents
End If
Next c
With Selection
.Range("A1") = s
.Merge
End With
End Sub
[/qoute]

Файл 1 - http://files.mail.ru/A17A6DDF779844ECA3012B27E91541A9
Файл 2 - http://files.mail.ru/0B571685197B4AEC81731E738066A1CD
Файл_Итог - http://files.mail.ru/E9F4CD3886FE40EDBBCD8975E7BD29DA

[b]Poltava[/b]
Спасибо, это моя ошибка, пропустила пробел в именах, их там 19
И спасибо большое за формулу, как я поняла, она считает пробелы и прибавляет один(т.к. последнее имя не имеет за собой пробела?)?

[b]Матрёна[/b]

Спасибо, я постаралась исправится. Пессимизм т.к. я слишком мало понимаю(но стараюсь исправится...), а люди не очень любят помогать "с нуля"... smile

Имена машин в файле 1 пробелом не разделены. Макрос это делает. До этого я в ворде меняла абзац на пробел. Т.е. копировала все имена машин в ворд, и через "заменить все" меняла абзац на пробел, после чего копировала в файл-итог(модифицированный файл 2)

Файл два мне нужен, т.к. там версии ПО, а так же каждое ПО в единственном экземпляре(одно ПО=одна строчка). Поэтому его я взяла за основу и стала с ним "работать"

Еще раз спасибо всем большое за помощь!!

СообщениеПрощу прощенья за сумбур и непонятное изложение проблемы.
Исправляюсь.

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

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

Именно этот процесс объединения ячеек и копирования в соответствующую колонку файла два я и хотела бы автоматизировать.

Код макроса прилагаю.
[qoute]
Sub Mak()
Dim c As Range
Dim s As String

For Each c In Selection
If s = "" Then
s = c
Else
s = s & " " & c
c.ClearContents
End If
Next c
With Selection
.Range("A1") = s
.Merge
End With
End Sub
[/qoute]

Файл 1 - http://files.mail.ru/A17A6DDF779844ECA3012B27E91541A9
Файл 2 - http://files.mail.ru/0B571685197B4AEC81731E738066A1CD
Файл_Итог - http://files.mail.ru/E9F4CD3886FE40EDBBCD8975E7BD29DA

[b]Poltava[/b]
Спасибо, это моя ошибка, пропустила пробел в именах, их там 19
И спасибо большое за формулу, как я поняла, она считает пробелы и прибавляет один(т.к. последнее имя не имеет за собой пробела?)?

[b]Матрёна[/b]

Спасибо, я постаралась исправится. Пессимизм т.к. я слишком мало понимаю(но стараюсь исправится...), а люди не очень любят помогать "с нуля"... smile

Автор - Наталия
Дата добавления - 11.07.2013 в 10:34

Дата: Четверг, 11.07.2013, 14:24 | Сообщение № 13

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

Ранг: Обитатель

Сообщений: 398

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

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

Наталия!
См. вариант - макрос.
Макрос прост, как советский трЁльник:
1. "просит" файл-мониторинг (в Вашей терминологии - файл 1),
1.1. копирует инфо на лист "MONITOR", закрывает файл-мониторинг,
1.2. инфо на листе "MONITOR" сортирует (2 уровня: столб А (столб С)),
2. "чистит" лист "OTCHET", начиная со 2 строки,
2.1. строит нужную картинку на листе "OTCHET".

P.S.
Полагаю, колонки (см. ниже) - "рукопашные":
1. Необходимость лицензии,
2. Latest Version,
3. Оldest Version.

К сообщению приложен файл: FOR_NATALY.rar (19.8 Kb)

Сообщение отредактировал Матрёна - Четверг, 11.07.2013, 14:26

Дата: Пятница, 12.07.2013, 12:21 | Сообщение № 14

Группа: Гости

Матрена, спасибо огромное!!!! respect