ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / БД Excel удаление повторяющихся записей?
27 сообщений из 27, показаны все 2 страниц
  все  
БД Excel удаление повторяющихся записей?
    #33310174
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dartvaider
Участник
Есть документ Excel в нем очень большая куча записей - примерно 50 000 строк!
Записи отсортированы в алфавитном порядке и совпадений очень много!
Как можно сравнивать все строки в БД и удалять те, которые совпали, или удалять ту, которая уже повторилась и остовлять ту, с которой повторилась?

Пример таков?
Иванов Иван Иванович пр.Ивинова 10,кв 16
Иванов Иван Иванович пр.Ивинова 10,кв 16
Петров Петр Петорович пр.Петрова 10,кв 16
Петров Петр Петорович пр.Петрова 10,кв 16
Петров Петр Петорович пр.Петрова 10,кв 16
...............................................................

можно ли как нибуть удалить тех, кто повторился?
чтобы получился такой вид:
Иванов Иван Иванович пр.Ивинова 10,кв 16
Петров Петр Петорович пр.Петрова 10,кв 16


пробывал через функцию совпадения, но не сравнивать же 50 000 в ручную :(

=СОВПАД(A1;A2)

Можно ли как либо сравнить глабально?
...
Рейтинг: 0 / 0
06.10.2005, 19:36:07
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33310283
Фотография panch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
panch
Участник
А если сделать итоги по этому столбцу
...
Рейтинг: 0 / 0
06.10.2005, 21:27:14
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33310345
Фотография panch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
panch
Участник
panchА если сделать итоги по этому столбцу
итоги - не много не то:)
а вто с помощью сводной таблицы все получается
...
Рейтинг: 0 / 0
06.10.2005, 22:44:05
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33310578
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Данные -> Фильтр -> Расширенный фильтр.
...
Рейтинг: 0 / 0
07.10.2005, 08:33:05
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33311483
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dartvaider
Участник
Пользователь2Данные -> Фильтр -> Расширенный фильтр.

Большое СПАСИБО!!!!!!!
ВЫ МНЕ несказанно помогли,если бы раньше зашел на форум- было бы лучше :) т.к. народ обрабатывал в ручную 100 000 записей, а я узнал об этом практически в последний день ,но следующий раз будет легче :)Ещё раз спасибо!РУЛЬНЫЙ ФОРУМ!
...
Рейтинг: 0 / 0
07.10.2005, 13:29:06
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33311939
Фотография panch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
panch
Участник
Пользователь2Данные -> Фильтр -> Расширенный фильтр.

А в моем екселе так задвоенные записи не удаляются
просто строки лишние скрываются
и количество записей в таблице не меняется
почему такое получается
...
Рейтинг: 0 / 0
07.10.2005, 15:24:25
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33312296
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dartvaider
Участник
panch Пользователь2Данные -> Фильтр -> Расширенный фильтр.

А в моем екселе так задвоенные записи не удаляются
просто строки лишние скрываются
и количество записей в таблице не меняется
почему такое получается

Чё то я понять тоже немогу как оно работает :( но то не важно!
...
Рейтинг: 0 / 0
07.10.2005, 16:57:18
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33312395
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
Не удаляется, потому што эта приблуда называется "Фильтр", а не "Удалятор"!
:))
...
Рейтинг: 0 / 0
07.10.2005, 17:24:33
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33312707
Фотография panch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
panch
Участник
Letter_DНе удаляется, потому што эта приблуда называется "Фильтр", а не "Удалятор"!
:))

фильтр - не совсе удачное у них слово
какое-то не русское
бывали случаи приходилось юзверям долго объяснять что же это такое
надо было назвать "отсееватель"
...
Рейтинг: 0 / 0
07.10.2005, 20:40:07
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33312808
sraider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sraider
Участник
dartvaiderМожно ли как либо сравнить глабально?

Может проде загнать этот лист в Access, быстро сделать там все, что надо, и обратно вернуть в Excel? ;-)
...
Рейтинг: 0 / 0
07.10.2005, 23:55:41
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33313562
Фотография panch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
panch
Участник
sraider dartvaiderМожно ли как либо сравнить глабально?

Может проде загнать этот лист в Access, быстро сделать там все, что надо, и обратно вернуть в Excel? ;-)

а если MSOffice куплен без лецензии на Access?
дешевле пару студентов нанять чтобы они вручную
так все перелопатили чем что-то там из ПО докупать
...
Рейтинг: 0 / 0
09.10.2005, 14:55:21
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33313617
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vallot
Гость
Попробуй это, думаю многим пригодится.
Это для колонки А, если их больше, то немного надо добавить код!
========================================
Option Explicit
Private Sub CommandButton1_Click()
Dim i, j
For i = 1 To 50000
For j = i + 1 To 50000
If Sheet1.Cells(j, 1) = "" Then GoTo v
'-----------------------------------------------------------
If (Sheet1.Cells(i, 1) = Sheet1.Cells(j, 1)) Then
'-----------------------------------------------------
Sheet1.Cells(j, 1) = ""

v:
End If
Next j
Next i
'===========================================================
For i = 1 To 50000
If Sheet1.Cells(i, 1) = 0 Then
For j = i + 1 To 50000
If Not Sheet1.Cells(j, 1) = 0 Then
'-----------------------------------------------------------
Sheet1.Cells(i, 1) = Sheet1.Cells(j, 1)
Sheet1.Cells(j, 1) = ""


Exit For
End If
Next j
End If
Next i
'------------------------------------------------


End Sub
...
Рейтинг: 0 / 0
09.10.2005, 16:32:08
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33313724
sraider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sraider
Участник
vallotFor i = 1 To 50000
;-) Посмешил...

PS. ActiveSheet.UsedRange.Rows.Count
...
Рейтинг: 0 / 0
09.10.2005, 20:12:30
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33313914
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vallot
Гость
sraider[quot vallot]For i = 1 To 50000
;-) Посмешил...

А я и не спорю, сам смеялся(!), у меня ведь всего 50 строк( в моей программе было) и мне не мешало , вот я и добавил три нуля!

Интересно, а если у него и в самом деле 50 000 строк , это намного быстрее??
Проверю! Но все равно спасибо!
...
Рейтинг: 0 / 0
10.10.2005, 08:29:13
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33314578
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dartvaider
Участник
panch sraider dartvaiderМожно ли как либо сравнить глабально?

Может проде загнать этот лист в Access, быстро сделать там все, что надо, и обратно вернуть в Excel? ;-)

а если MSOffice куплен без лецензии на Access?
дешевле пару студентов нанять чтобы они вручную
так все перелопатили чем что-то там из ПО докупать

Угу у меня всего 240 тыс записей :) я думаю пару студентов пальца постерают, и глаза посадят , пока найдут и удалят лишнее :)
...
Рейтинг: 0 / 0
10.10.2005, 12:09:24
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33315331
Фотография panch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
panch
Участник
dartvaider panch sraider dartvaiderМожно ли как либо сравнить глабально?

Может проде загнать этот лист в Access, быстро сделать там все, что надо, и обратно вернуть в Excel? ;-)

а если MSOffice куплен без лецензии на Access?
дешевле пару студентов нанять чтобы они вручную
так все перелопатили чем что-то там из ПО докупать

Угу у меня всего 240 тыс записей :) я думаю пару студентов пальца постерают, и глаза посадят , пока найдут и удалят лишнее :)


пальца постирают - других наймем.
...
Рейтинг: 0 / 0
10.10.2005, 15:29:59
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33316017
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dartvaider
Участник
panch dartvaider panch sraider dartvaiderМожно ли как либо сравнить глабально?

Может проде загнать этот лист в Access, быстро сделать там все, что надо, и обратно вернуть в Excel? ;-)

а если MSOffice куплен без лецензии на Access?
дешевле пару студентов нанять чтобы они вручную
так все перелопатили чем что-то там из ПО докупать

Угу у меня всего 240 тыс записей :) я думаю пару студентов пальца постерают, и глаза посадят , пока найдут и удалят лишнее :)


пальца постирают - других наймем.

А может быть нанять пару студентов дабы нашли по форумам как это сделать макросом, или какими либо другими средствами? :)
...
Рейтинг: 0 / 0
10.10.2005, 20:20:52
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33316241
NoSpam
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NoSpam
Участник
http://lists.evolt.org/archive/Week-of-Mon-20050502/172284.html
-------------------------------------------------------------------------
>Is there a relatively quick way to get rid of the duplicates
>in excel without doing in manually? We're talking about 6,000 names
>here.

Bruce,

Learned this from a co-worker who claims there isn't an automated way to
delete/find duplicates:

Add an extra column next to your email column, let's assume your email is in
column A, and that new column is column B. (Data goes from A1 -> A6000).

Sort the data by column A, so all your email addresses are sorted.

In column B1, enter in the value FALSE.
###################################################
В нашем случае вставляем "ЛОЖЬ"
###################################################
In column B2, enter the formula (without quotes)
"=A1=A2"

Copy that formula in data cells B3->B6000

Now that B column has values telling you if the current row has the same
value as the previous row.

Now, select all the data in column B, and re-paste it into that column using
Paste Special -> Paste: Values. (Make sure you choose the actual values and
not the formula). This will allow you to sort on column B in the next step.

Now, take all your data, and sort it by column B.

The top set of values in column B will be "FALSE", meaning that these were
the original values.

The bottom set will be "TRUE" meaning that these were duplicate values.

Just delete all rows whose value in column B is TRUE.

HTH,

Roger
...
Рейтинг: 0 / 0
11.10.2005, 06:35:37
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33319049
mihmih
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mihmih
Участник
РУЛЬНЫЙ ФОРУМ!
Не форум, а люди :)
...
Рейтинг: 0 / 0
12.10.2005, 10:12:43
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33319283
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Processor
Участник
С этого поста разговор ушел в сторону:
sraiderМожет проще загнать этот лист в Access, быстро сделать там все, что надо, и обратно вернуть в Excel? ;-)Не надо изобретать велосипед.
Достаточно скопировать отфильтрованные записи на другой лист:
в момент копирования и произойдет "отсеивание".
Говоря терминами БД, будет создан справочник с уникальными записями.
В дальнейшем его надо использовать для выборки данных из исходного листа.
...
Рейтинг: 0 / 0
12.10.2005, 11:22:11
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33331756
Фотография dartvaider
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dartvaider
Участник
ProcessorС этого поста разговор ушел в сторону:
sraiderМожет проще загнать этот лист в Access, быстро сделать там все, что надо, и обратно вернуть в Excel? ;-)Не надо изобретать велосипед.


Объём слишком большой ! при вставлении на другой лист ошибка .....
...
Рейтинг: 0 / 0
18.10.2005, 21:05:29
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33331762
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Вы меня извините, но "БД Excel" это как на трехколесном велосипеде выехать на Формулу-1.
...
Рейтинг: 0 / 0
18.10.2005, 21:11:46
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33331810
Фотография panch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
panch
Участник
dartvaider ProcessorС этого поста разговор ушел в сторону:
sraiderМожет проще загнать этот лист в Access, быстро сделать там все, что надо, и обратно вернуть в Excel? ;-)Не надо изобретать велосипед.


Объём слишком большой ! при вставлении на другой лист ошибка .....

1.надо срочно добавить RAM
2.в алгоритме который тут изложил не по русски
Nospam
ничего копировать не надо...
...
Рейтинг: 0 / 0
18.10.2005, 22:00:06
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33332883
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
sraider vallotFor i = 1 To 50000
;-) Посмешил...

PS. ActiveSheet.UsedRange.Rows.Count

Как мне подсказали на этом форуме в таких случаях загоняю в массив нужной размерности, там (в памяти) все крутитсь и получаю результат через секунды !!!
...
Рейтинг: 0 / 0
19.10.2005, 13:02:57
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33337267
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vallot
Гость
talgat sraider vallotFor i = 1 To 50000
;-) Посмешил...

PS. ActiveSheet.UsedRange.Rows.Count

Как мне подсказали на этом форуме в таких случаях загоняю в массив нужной размерности, там (в памяти) все крутитсь и получаю результат через секунды !!!

Что тебе подсказали? Покажи о чем речь?
...
Рейтинг: 0 / 0
21.10.2005, 12:57:30
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #33339032
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vallot
Гость
Уже не надо, сам нашел этот топик!
...
Рейтинг: 0 / 0
23.10.2005, 08:20:00
| Ответить | Цитировать | Написать  
БД Excel удаление повторяющихся записей?
    #34071793
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
dartvaiderЕсть документ Excel в нем очень большая куча записей - примерно 50 000 строк!
Записи отсортированы в алфавитном порядке и совпадений очень много!
Как можно сравнивать все строки в БД и удалять те, которые совпали, или удалять ту, которая уже повторилась и остовлять ту, с которой повторилась?

Пример таков?
Иванов Иван Иванович пр.Ивинова 10,кв 16
Иванов Иван Иванович пр.Ивинова 10,кв 16
Петров Петр Петорович пр.Петрова 10,кв 16
Петров Петр Петорович пр.Петрова 10,кв 16
Петров Петр Петорович пр.Петрова 10,кв 16
...............................................................

можно ли как нибуть удалить тех, кто повторился?
чтобы получился такой вид:
Иванов Иван Иванович пр.Ивинова 10,кв 16
Петров Петр Петорович пр.Петрова 10,кв 16


пробывал через функцию совпадения, но не сравнивать же 50 000 в ручную :(

=СОВПАД(A1;A2)

Можно ли как либо сравнить глабально?

***

авторWhen you are working with a large data table, it is not uncommon for the table to contain what is essentially duplicate information. To process the information in the table, you may want to remove any of the rows you consider duplicate, thereby paring down the amount of information you need to process.

For instance, let's say that the first cell of each row contains a part number. What if you want to delete any rows that have duplicate part numbers in the first cell? If you need this solution, the following macro is for you:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
Sub DelDupRows()
    Dim rngSrc As Range
    Dim NumRows As Integer
    Dim ThisRow As Integer
    Dim ThatRow As Integer
    Dim ThisCol As Integer
    Dim RightCol As Integer
    Dim J As Integer, K As Integer

    Application.ScreenUpdating = False
    Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)

    NumRows = rngSrc.Rows.Count
    ThisRow = rngSrc.Row
    ThatRow = ThisRow + NumRows -  1 
    ThisCol = rngSrc.Column
    RightCol = ThisCol + rngSrc.Columns.Count -  1 

    'Start wiping out duplicates
    For J = ThisRow To (ThatRow -  1 )
        If Cells(J, ThisCol) > "" Then
            For K = (J +  1 ) To ThatRow
                If Cells(J, ThisCol) = Cells(K, ThisCol) Then
                    Cells(K, ThisCol) = ""
                End If
            Next K
        End If
    Next J

    'Remove rows with empty key cells
    For J = ThatRow To ThisRow Step - 1 
        If Cells(J, ThisCol) = "" Then
            Range(Cells(J, ThisCol), _
              Cells(J, RightCol)).Delete xlShiftUp
        End If
    Next J
    Application.ScreenUpdating = True
End Sub
авторThe macro works on a selection you make before calling it. Thus, if you need to remove duplicate rows from the range D7:G85, simply select that range and then run the macro. It removes the duplicates from the range D7:D85, and then removes all rows in D7:G85 (four columns per row) for which the cell in column D is blank.
Савэт отсюда
...
Рейтинг: 0 / 0
21.10.2006, 15:18:06
| Ответить | Цитировать | Написать  
27 сообщений из 27, показаны все 2 страниц
  все  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / БД Excel удаление повторяющихся записей?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=61&tid=2184101]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 37ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 207ms
total:  307ms
созд. / загр.: 307ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]