Эксель и иже с ним...
Feb. 10th, 2006 05:44 pm![[identity profile]](https://www.dreamwidth.org/img/silk/identity/openid.png){kind=small}
sunnycat.livejournal.com posting in ![[community profile]](https://www.dreamwidth.org/img/silk/identity/community.png){kind=small}
useful_faqУ меня опеноффис. Работаю с экселевскими файлами.
Вопрос - можно ли каким то образом отловить два повторных значения в одном столбце? скажем есть у меня столбец
2
3
4
5
5
6
7
7
7
8
9
10
- вот как в нем отловить 5 5, 7 7 7? кроме как ручками? :)))
Файлик на полторы тыщи строк :(
УТОЧНЯЮ! Я НЕ знаю есть ли там повторы и НЕ знаю какое у них значение. Я лишь предполагаю что они там могут быть...
Вопрос - можно ли каким то образом отловить два повторных значения в одном столбце? скажем есть у меня столбец
2
3
4
5
5
6
7
7
7
8
9
10
- вот как в нем отловить 5 5, 7 7 7? кроме как ручками? :)))
Файлик на полторы тыщи строк :(
УТОЧНЯЮ! Я НЕ знаю есть ли там повторы и НЕ знаю какое у них значение. Я лишь предполагаю что они там могут быть...
no subject
Date: 2006-02-10 05:46 pm (UTC)no subject
Date: 2006-02-10 05:50 pm (UTC)Мне бы "домашиними средствами"...
Но как крайний вариант спасибо, поимею в виду (не было у кошки заботы, придется кошке учить эксель...)
no subject
Date: 2006-02-10 05:50 pm (UTC)Filter for unique records
Select the column or click a cell in the range or list you want to filter.
On the Data menu, point to Filter, and then click Advanced Filter.
Do one of the following.
To filter the range or list in place, similar to using AutoFilter, click Filter the list, in-place.
To copy the results of the filter to another location, click Copy to another location. Then, in the Copy To box, enter a cell reference.
To select a cell, click Collapse Dialog to temporarily hide the dialog box. Select the cell on the worksheet, and then press Expand Dialog .
Select the Unique records only check box.
Note Once you filter for unique values, you can copy them to another worksheet and then archive or delete the original worksheet.
no subject
Date: 2006-02-10 06:00 pm (UTC)no subject
Date: 2006-02-10 06:02 pm (UTC)no subject
Date: 2006-02-10 06:05 pm (UTC)no subject
Date: 2006-02-10 05:50 pm (UTC)no subject
Date: 2006-02-10 05:52 pm (UTC)no subject
Date: 2006-02-10 05:57 pm (UTC)no subject
Date: 2006-02-10 05:59 pm (UTC)no subject
Date: 2006-02-10 06:07 pm (UTC)no subject
Date: 2006-02-10 05:55 pm (UTC)У меня нет родного экселя...
В всплывающем меню появляется "Все", "Стандартные", и все значения этой графы...
no subject
Date: 2006-02-10 05:58 pm (UTC)no subject
Date: 2006-02-10 05:59 pm (UTC)no subject
Date: 2006-02-10 05:52 pm (UTC)no subject
Date: 2006-02-10 05:56 pm (UTC)no subject
Date: 2006-02-10 06:06 pm (UTC)Рисуешь рядом второй столбец, из сплошных единичек.
в третий столбец в ячейку А забиваешь формулу
СУММЕСЛИ($A$1:$A$100000;A1;$B$1:$B$100000)
получаешь колво повторов. и по третьему столбцу можешь и сделать автофильтр.
(интересно есть такая формула в openOffice... $)
no subject
Date: 2006-02-10 06:10 pm (UTC)no subject
Date: 2006-02-10 06:11 pm (UTC)no subject
Date: 2006-02-10 06:19 pm (UTC)Попробуйте так: Добавьте в столбце C последовательность
1
2
3
4
etc.
Сделайте сортировку по столбцу B. Получите отдельно уникальные значения, отдельно повторные. После этого можно вернуть исходный порядок, сделав сортировку по столбцу C.
no subject
Date: 2006-02-10 06:21 pm (UTC)Посмотрел в опен офисе, вроде бы они есть.
Сейчас хелп почитаю.
значение ячеек целочисленные?
no subject
Date: 2006-02-10 06:24 pm (UTC)Спасибо большое, а то у меня что то голова не работает как класс, а ручками такую базу уже не очень обработаешь :(
no subject
Date: 2006-02-10 07:42 pm (UTC)Это в экселе работает, в твоей программе, не знаю.
no subject
Date: 2006-02-10 07:44 pm (UTC)no subject
Date: 2006-02-10 07:48 pm (UTC)Это будет выглядеть так
1 -
2 -
5 -
7 povtor
7
2
6 povtor
6
2
no subject
Date: 2006-02-10 07:45 pm (UTC)no subject
Date: 2006-02-10 07:48 pm (UTC)no subject
Date: 2006-02-10 07:52 pm (UTC)no subject
Date: 2006-02-10 07:53 pm (UTC)no subject
Date: 2006-02-10 07:56 pm (UTC)no subject
Date: 2006-02-10 07:49 pm (UTC)no subject
Date: 2006-02-10 07:52 pm (UTC)no subject
Date: 2006-02-10 07:56 pm (UTC)no subject
Date: 2006-02-10 08:01 pm (UTC)no subject
Date: 2006-02-10 08:04 pm (UTC)Мне оно к сожалению на постоянной основе нужно :(
no subject
Date: 2006-02-10 08:59 pm (UTC)no subject
Date: 2006-02-10 09:30 pm (UTC)Sub Выявление_повторения()
i = 2
Do Until Лист1.Cells(i, 1) = ""
If Лист1.Cells(i, 1) = Лист1.Cells(i - 1, 1) Then
Лист1.Cells(i, 2) = "Повторение" & " " & Лист1.Cells(i, 1)
Лист1.Cells(i - 1, 2) = "Повторение" & " " & Лист1.Cells(i, 1)
End If
i = i + 1
Loop
End Sub
Работает. На любом MO.
no subject
Date: 2006-02-10 10:12 pm (UTC)