Сравнение столбцов в Excel

[Laa911]

Можно вас попросить создать еще один точно такой же листок на котором будут
только пересекающиеся слова вхождения..
в первой строчке их будет 6023, на втором 5825 и т.д.

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

Попробуйте выполнить функцию удалить дубликаты..
Не находт в пандоре Еxcell дубликатов... ;-(

[doober]

Посмотрю позже

Смотрите
Все тот же лист Pandora
строка 3
строка 14986

[Laa911]

Блин во пень, недумал что прога к некторым словам прибавит пробел...
т.е слов одинаковых нет...
А как вы их нашли если не скерет?
Чичас почищу пробелы... ;-))))
Спасибо за наводку

[doober]

А это как объясните.Макрос ругаться начал,говорит есть повторы

Это с поста с картинкой.
А если честно в таблице видны повторы
Я спокойно подумаю.как лучше сделать,время точно +1минута как минимум.Но я думаю это уже не критично

[Laa911]

Это так хитро фильтрует что видно дубликаты? - научите как это делать. я не нашел ;-(

Ну если на моем нотке это делается 1 минуту и если + еще 1 минута это точно будет супеееер

Сижу жду ;-)

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

[doober]

Чтобы не ганять метры отправляю модуль.Замение его.
У меня совпадений намного больше чем у вас.Верхняя строка-количество совпадений по столбцам.Еще один лист добавляется-как просили

[doober]

Сообщение от Laa911

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

Первоисточник информации что с себя представляет ?

[Laa911]

Сообщение от doober

Первоисточник информации что с себя представляет ?

Файл тхт из нотепада (иногда кодировка utf8)

[Laa911]

Сообщение от doober

Чтобы не ганять метры отправляю модуль.Замение его.
У меня совпадений намного больше чем у вас.Верхняя строка-количество совпадений по столбцам.Еще один лист добавляется-как просили

Attribute VB_Name = "Module1"
Syntax Error

А если убить эту строчку то вылетает
Run-time на kill path

блин ;-(

[doober]

Public Sub CREA()
Dim Dbase As Database, NewWs As Workspace 'Описание БД и рабочей области
Dim dbOpts As Long, dbName As String, tbWorker As TableDef
Dim F1, F2
Dim Ind1 As Index

MY_Path = ThisWorkbook.Path & "\"
'On Error Resume Next   разкомментируйте эту строку

Забыл после проверки
Импорт модулей во вложении