Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Найти уникальные слова в ячейках - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Найти уникальные слова в ячейках
mishura08 Дата: Пятница, 30.06.2023, 11:14 | Сообщение № 1
Группа: Проверенные
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 40% ±

2021
Здравствуйте!
Помогите пожалуйста разобраться.. Какая формула бы решила задачу с условиями:
- Есть 2000 уникальных ячеек в столбце А, в виде текста + цифр + символов по типу "амперсанд"
И надо найти уникальные слова и записать их в столбец С.
Файл пример приложил.
Огромная благодарность форуму!
К сообщению приложен файл: 9540283.xlsx (23.8 Kb)
 
Ответить
СообщениеЗдравствуйте!
Помогите пожалуйста разобраться.. Какая формула бы решила задачу с условиями:
- Есть 2000 уникальных ячеек в столбце А, в виде текста + цифр + символов по типу "амперсанд"
И надо найти уникальные слова и записать их в столбец С.
Файл пример приложил.
Огромная благодарность форуму!

Автор - mishura08
Дата добавления - 30.06.2023 в 11:14
Hugo Дата: Пятница, 30.06.2023, 12:09 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
В новых версиях есть всякие текстсплит() и фильтр(), у меня нет.
Я бы делал несложным макросом на словаре, если уж так принципиально формулой - тогда массивной UDF, но это больше писать.
У Вас какая версия Экселя?


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеВ новых версиях есть всякие текстсплит() и фильтр(), у меня нет.
Я бы делал несложным макросом на словаре, если уж так принципиально формулой - тогда массивной UDF, но это больше писать.
У Вас какая версия Экселя?

Автор - Hugo
Дата добавления - 30.06.2023 в 12:09
dmitriyaleksandrovichni Дата: Пятница, 30.06.2023, 12:10 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 40% ±

13
mishura08, Скопировать столбец А, вставить в столбец С.
Далее выделяете столбец С, переходите в меню в раздел "Данные" - "Удалить дубликаты" (сортировать в пределах указанного выделения)
То? Или вам другое что-то надо?


Шлюхогон42
 
Ответить
Сообщениеmishura08, Скопировать столбец А, вставить в столбец С.
Далее выделяете столбец С, переходите в меню в раздел "Данные" - "Удалить дубликаты" (сортировать в пределах указанного выделения)
То? Или вам другое что-то надо?

Автор - dmitriyaleksandrovichni
Дата добавления - 30.06.2023 в 12:10
Hugo Дата: Пятница, 30.06.2023, 12:13 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Тогда уж текст по столбцам чтоб выделить отдельно все слова, затем их скопировать все в один столбец, и затем удалить дубликаты.
Вполне рабочий вариант для разовой задачи.


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеТогда уж текст по столбцам чтоб выделить отдельно все слова, затем их скопировать все в один столбец, и затем удалить дубликаты.
Вполне рабочий вариант для разовой задачи.

Автор - Hugo
Дата добавления - 30.06.2023 в 12:13
dmitriyaleksandrovichni Дата: Пятница, 30.06.2023, 12:18 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 40% ±

13
mishura08, Вот сейчас понял, что вам нужны слова, а не уникальные ячейки.
Ок, чуть посложнее и подольше
Вставляете значения из столбца А в столбец на другой вкладке (чтобы не запутаться)
Далее в том же разделе "Данные" находите инструмент "Текст по столбцам" - с разделителями - символом разделителем является - пробел - далее и готово
Далее надо всю эту красоту собрать в один столбец методом "копировать-вставить" и уже применить к этому столбцу "удалить дубликаты"


Шлюхогон42
 
Ответить
Сообщениеmishura08, Вот сейчас понял, что вам нужны слова, а не уникальные ячейки.
Ок, чуть посложнее и подольше
Вставляете значения из столбца А в столбец на другой вкладке (чтобы не запутаться)
Далее в том же разделе "Данные" находите инструмент "Текст по столбцам" - с разделителями - символом разделителем является - пробел - далее и готово
Далее надо всю эту красоту собрать в один столбец методом "копировать-вставить" и уже применить к этому столбцу "удалить дубликаты"

Автор - dmitriyaleksandrovichni
Дата добавления - 30.06.2023 в 12:18
Nic70y Дата: Пятница, 30.06.2023, 12:31 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8821
Репутация: 2298 ±
Замечаний: 0% ±

Excel 2010
удалить дубликаты

Цитата dmitriyaleksandrovichni, 30.06.2023 в 12:18, в сообщении № 5 ()
удалить дубликаты
и получатся: Повторяющиеся слова: (B) + уникальные


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 30.06.2023, 12:33
 
Ответить
Сообщение
удалить дубликаты

Цитата dmitriyaleksandrovichni, 30.06.2023 в 12:18, в сообщении № 5 ()
удалить дубликаты
и получатся: Повторяющиеся слова: (B) + уникальные

Автор - Nic70y
Дата добавления - 30.06.2023 в 12:31
Serge_007 Дата: Пятница, 30.06.2023, 12:33 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Игорь, привет

Я думал в цикле использовать Split и Find, после чего собрать в один столбец ненайденные)
Я бы делал несложным макросом на словаре
Можешь написать? Интересно как это делается на Scripting.dictionary


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеИгорь, привет

Я думал в цикле использовать Split и Find, после чего собрать в один столбец ненайденные)
Я бы делал несложным макросом на словаре
Можешь написать? Интересно как это делается на Scripting.dictionary

Автор - Serge_007
Дата добавления - 30.06.2023 в 12:33
Hugo Дата: Пятница, 30.06.2023, 12:45 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Можешь написать?

Привет, Сергей.
Можно и в коллекцию собирать, но там чуть больше кода.
[vba]
Код
Sub tt()
Dim a, i&, el
a = [a1].CurrentRegion.Columns(1).Value

With CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(a)
        For Each el In Split(a(i, 1), " ")
        .Item(el) = 0&
        Next
    Next
    [b2].Resize(.Count) = Application.Transpose(.keys)
End With

End Sub
[/vba]

Правда у Application.Transpose() есть лимит на количество, надёжнее в цикле переложить в вертикальный массив и выгрузить уже его, но для примера хватает.
https://chat.openai.com/share/20fdbfff-0f5f-4c66-8f10-8e5294fd6b7a


excel@nxt.ru
webmoney: E265281470651 Z422237915069


Сообщение отредактировал Hugo - Пятница, 30.06.2023, 12:51
 
Ответить
Сообщение
Можешь написать?

Привет, Сергей.
Можно и в коллекцию собирать, но там чуть больше кода.
[vba]
Код
Sub tt()
Dim a, i&, el
a = [a1].CurrentRegion.Columns(1).Value

With CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(a)
        For Each el In Split(a(i, 1), " ")
        .Item(el) = 0&
        Next
    Next
    [b2].Resize(.Count) = Application.Transpose(.keys)
End With

End Sub
[/vba]

Правда у Application.Transpose() есть лимит на количество, надёжнее в цикле переложить в вертикальный массив и выгрузить уже его, но для примера хватает.
https://chat.openai.com/share/20fdbfff-0f5f-4c66-8f10-8e5294fd6b7a

Автор - Hugo
Дата добавления - 30.06.2023 в 12:45
msi2102 Дата: Пятница, 30.06.2023, 12:49 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 414
Репутация: 129 ±
Замечаний: 0% ±

Excel 2007
можно макросом
[vba]
Код
Sub Макрос2()
Dim arr1, arr2, m, n As Long, y As String
arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
ReDim arr2(LBound(arr1) To UBound(arr1), 1 To 1)
For n = LBound(arr1) To UBound(arr1)
    arr2(n, 1) = Split(Trim(arr1(n, 1)), " ")
    For Each m In arr2(n, 1)
        If Not dic1.exists(m) Then
            dic1.Add m, m
        Else
            If Not dic2.exists(m) Then dic2.Add m, m
        End If
    Next
Next
For n = LBound(arr2) To UBound(arr2)
    For Each m In arr2(n, 1)
        If dic2.exists(m) Then y = y & "; " & m
    Next
    arr2(n, 1) = Mid(y, 3): y = ""
Next
[b2].Resize(UBound(arr2), 1) = arr2
End Sub
[/vba]
PS наверное неправильно понял задание, вывел напротив каждой ячейки слова которые имеют повторение в остальном массиве
К сообщению приложен файл: 9540283.xlsm (25.4 Kb)


Сообщение отредактировал msi2102 - Пятница, 30.06.2023, 12:53
 
Ответить
Сообщениеможно макросом
[vba]
Код
Sub Макрос2()
Dim arr1, arr2, m, n As Long, y As String
arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
ReDim arr2(LBound(arr1) To UBound(arr1), 1 To 1)
For n = LBound(arr1) To UBound(arr1)
    arr2(n, 1) = Split(Trim(arr1(n, 1)), " ")
    For Each m In arr2(n, 1)
        If Not dic1.exists(m) Then
            dic1.Add m, m
        Else
            If Not dic2.exists(m) Then dic2.Add m, m
        End If
    Next
Next
For n = LBound(arr2) To UBound(arr2)
    For Each m In arr2(n, 1)
        If dic2.exists(m) Then y = y & "; " & m
    Next
    arr2(n, 1) = Mid(y, 3): y = ""
Next
[b2].Resize(UBound(arr2), 1) = arr2
End Sub
[/vba]
PS наверное неправильно понял задание, вывел напротив каждой ячейки слова которые имеют повторение в остальном массиве

Автор - msi2102
Дата добавления - 30.06.2023 в 12:49
Serge_007 Дата: Пятница, 30.06.2023, 12:57 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Hugo, спасибо

у Application.Transpose() есть лимит на количество
Знаю ;)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеHugo, спасибо

у Application.Transpose() есть лимит на количество
Знаю ;)

Автор - Serge_007
Дата добавления - 30.06.2023 в 12:57
Nic70y Дата: Пятница, 30.06.2023, 13:04 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 8821
Репутация: 2298 ±
Замечаний: 0% ±

Excel 2010
формулы (7 штук)
К сообщению приложен файл: 215_1.xlsx (172.5 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 30.06.2023, 13:08
 
Ответить
Сообщениеформулы (7 штук)

Автор - Nic70y
Дата добавления - 30.06.2023 в 13:04
msi2102 Дата: Пятница, 30.06.2023, 13:24 | Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 414
Репутация: 129 ±
Замечаний: 0% ±

Excel 2007
Наверное опять не так понял, но решил сразу все сделать и повторяющиеся, и неповторяющиеся, и повторяющиеся в ячейке, и неповторяющиеся в ячейке
[vba]
Код
Sub Макрос2()
Dim arr1, arr2, m, n As Long, y As String
arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
ReDim arr2(LBound(arr1) To UBound(arr1), 1 To 1)
For n = LBound(arr1) To UBound(arr1)
    arr2(n, 1) = Split(Trim(arr1(n, 1)), " ")
    For Each m In arr2(n, 1)
        If Not dic1.exists(m) Then
            dic1.Add m, m
        Else
            If Not dic2.exists(m) Then dic2.Add m, m
        End If
    Next
Next
For n = LBound(arr2) To UBound(arr2)
    For Each m In arr2(n, 1)
        If dic2.exists(m) Then y = y & "; " & m
    Next
    arr2(n, 1) = Mid(y, 3): y = ""
Next
[b2].Resize(UBound(arr2), 1) = arr2
End Sub

Sub Макрос3()
Dim arr1, m, n As Long, y As String
arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
For n = LBound(arr1) To UBound(arr1)
    For Each m In Split(Trim(arr1(n, 1)), " ")
        If Not dic1.exists(m) Then
            dic1.Add m, m
        Else
            If Not dic2.exists(m) Then dic2.Add m, m
        End If
    Next
Next
ReDim arr1(1 To dic2.Count, 1 To 1)
n = 1
For Each m In dic2
    arr1(n, 1) = m: n = n + 1
Next
[d2].Resize(UBound(arr1), 1) = arr1
End Sub

Sub Макрос4()
Dim arr1, m, n As Long, y As String
arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
For n = LBound(arr1) To UBound(arr1)
    For Each m In Split(Trim(arr1(n, 1)), " ")
        If Not dic1.exists(m) Then
            dic1.Add m, m
        Else
            If Not dic2.exists(m) Then dic2.Add m, m
        End If
    Next
Next
For Each m In dic2
    If dic1.exists(m) Then dic1.Remove (m)
Next
ReDim arr1(1 To dic1.Count, 1 To 1)
n = 1
For Each m In dic1
    arr1(n, 1) = m: n = n + 1
Next
[e2].Resize(UBound(arr1), 1) = arr1
End Sub

Sub Макрос5()
Dim arr1, arr2, m, n As Long, y As String
arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
ReDim arr2(LBound(arr1) To UBound(arr1), 1 To 1)
For n = LBound(arr1) To UBound(arr1)
    arr2(n, 1) = Split(Trim(arr1(n, 1)), " ")
    For Each m In arr2(n, 1)
        If Not dic1.exists(m) Then
            dic1.Add m, m
        Else
            If Not dic2.exists(m) Then dic2.Add m, m
        End If
    Next
Next
For Each m In dic2
    If dic1.exists(m) Then dic1.Remove (m)
Next
For n = LBound(arr2) To UBound(arr2)
    For Each m In arr2(n, 1)
        If dic1.exists(m) Then y = y & "; " & m
    Next
    arr2(n, 1) = Mid(y, 3): y = ""
Next
[c2].Resize(UBound(arr2), 1) = arr2
End Sub
[/vba]
К сообщению приложен файл: 2858410.xlsm (30.2 Kb)


Сообщение отредактировал msi2102 - Пятница, 30.06.2023, 14:48
 
Ответить
СообщениеНаверное опять не так понял, но решил сразу все сделать и повторяющиеся, и неповторяющиеся, и повторяющиеся в ячейке, и неповторяющиеся в ячейке
[vba]
Код
Sub Макрос2()
Dim arr1, arr2, m, n As Long, y As String
arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
ReDim arr2(LBound(arr1) To UBound(arr1), 1 To 1)
For n = LBound(arr1) To UBound(arr1)
    arr2(n, 1) = Split(Trim(arr1(n, 1)), " ")
    For Each m In arr2(n, 1)
        If Not dic1.exists(m) Then
            dic1.Add m, m
        Else
            If Not dic2.exists(m) Then dic2.Add m, m
        End If
    Next
Next
For n = LBound(arr2) To UBound(arr2)
    For Each m In arr2(n, 1)
        If dic2.exists(m) Then y = y & "; " & m
    Next
    arr2(n, 1) = Mid(y, 3): y = ""
Next
[b2].Resize(UBound(arr2), 1) = arr2
End Sub

Sub Макрос3()
Dim arr1, m, n As Long, y As String
arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
For n = LBound(arr1) To UBound(arr1)
    For Each m In Split(Trim(arr1(n, 1)), " ")
        If Not dic1.exists(m) Then
            dic1.Add m, m
        Else
            If Not dic2.exists(m) Then dic2.Add m, m
        End If
    Next
Next
ReDim arr1(1 To dic2.Count, 1 To 1)
n = 1
For Each m In dic2
    arr1(n, 1) = m: n = n + 1
Next
[d2].Resize(UBound(arr1), 1) = arr1
End Sub

Sub Макрос4()
Dim arr1, m, n As Long, y As String
arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
For n = LBound(arr1) To UBound(arr1)
    For Each m In Split(Trim(arr1(n, 1)), " ")
        If Not dic1.exists(m) Then
            dic1.Add m, m
        Else
            If Not dic2.exists(m) Then dic2.Add m, m
        End If
    Next
Next
For Each m In dic2
    If dic1.exists(m) Then dic1.Remove (m)
Next
ReDim arr1(1 To dic1.Count, 1 To 1)
n = 1
For Each m In dic1
    arr1(n, 1) = m: n = n + 1
Next
[e2].Resize(UBound(arr1), 1) = arr1
End Sub

Sub Макрос5()
Dim arr1, arr2, m, n As Long, y As String
arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
ReDim arr2(LBound(arr1) To UBound(arr1), 1 To 1)
For n = LBound(arr1) To UBound(arr1)
    arr2(n, 1) = Split(Trim(arr1(n, 1)), " ")
    For Each m In arr2(n, 1)
        If Not dic1.exists(m) Then
            dic1.Add m, m
        Else
            If Not dic2.exists(m) Then dic2.Add m, m
        End If
    Next
Next
For Each m In dic2
    If dic1.exists(m) Then dic1.Remove (m)
Next
For n = LBound(arr2) To UBound(arr2)
    For Each m In arr2(n, 1)
        If dic1.exists(m) Then y = y & "; " & m
    Next
    arr2(n, 1) = Mid(y, 3): y = ""
Next
[c2].Resize(UBound(arr2), 1) = arr2
End Sub
[/vba]

Автор - msi2102
Дата добавления - 30.06.2023 в 13:24
Gustav Дата: Пятница, 30.06.2023, 19:37 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2763
Репутация: 1140 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
для разовой задачи

Если задача "совсем разовая" и нужен конкретный разовый результат, который можно куда-то скопировать и работать дальше, то рекомендую воспользоваться услугами свободных (от лицензионных комплексов) Таблиц Google. Для этого скопировать колонку A из Excel в Гугл Таблицу, а потом в ячейку B1 ввести такую формулу:
[vba]
Код
={"Повторяющиеся слова:"; SORT( UNIQUE( TRANSPOSE( SPLIT( TEXTJOIN(" ";;A2:A);" "))))}
[/vba]
В современных версиях Excel (если к ним есть доступ) формула будет почти такой же.


МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение
для разовой задачи

Если задача "совсем разовая" и нужен конкретный разовый результат, который можно куда-то скопировать и работать дальше, то рекомендую воспользоваться услугами свободных (от лицензионных комплексов) Таблиц Google. Для этого скопировать колонку A из Excel в Гугл Таблицу, а потом в ячейку B1 ввести такую формулу:
[vba]
Код
={"Повторяющиеся слова:"; SORT( UNIQUE( TRANSPOSE( SPLIT( TEXTJOIN(" ";;A2:A);" "))))}
[/vba]
В современных версиях Excel (если к ним есть доступ) формула будет почти такой же.

Автор - Gustav
Дата добавления - 30.06.2023 в 19:37
jakim Дата: Пятница, 30.06.2023, 20:35 | Сообщение № 14
Группа: Друзья
Ранг: Старожил
Сообщений: 1205
Репутация: 313 ±
Замечаний: 0% ±

Excel 2010
Может я не совсем правильно понял задачу, но предлагаю вариант с PQ.
К сообщению приложен файл: 7885146.xlsx (41.6 Kb)
 
Ответить
Сообщение
Может я не совсем правильно понял задачу, но предлагаю вариант с PQ.

Автор - jakim
Дата добавления - 30.06.2023 в 20:35
Hugo Дата: Пятница, 30.06.2023, 20:43 | Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
jakim, а где hombres?
Последний шаг наверное лишний, но я не берусь учить...
P.S. вообще тогда уж нужно было бы оставить только те у кого 1. Т.е. согласно запросу - найти уникальные! Все остальные не уникальны... ))


excel@nxt.ru
webmoney: E265281470651 Z422237915069


Сообщение отредактировал Hugo - Пятница, 30.06.2023, 21:00
 
Ответить
Сообщениеjakim, а где hombres?
Последний шаг наверное лишний, но я не берусь учить...
P.S. вообще тогда уж нужно было бы оставить только те у кого 1. Т.е. согласно запросу - найти уникальные! Все остальные не уникальны... ))

Автор - Hugo
Дата добавления - 30.06.2023 в 20:43
msi2102 Дата: Пятница, 30.06.2023, 23:35 | Сообщение № 16
Группа: Проверенные
Ранг: Обитатель
Сообщений: 414
Репутация: 129 ±
Замечаний: 0% ±

Excel 2007
Т.е. согласно запросу - найти уникальные!
Согласен, а файл с примером открываешь, а там в таблице столбец "Повторяющиеся слова" %)
 
Ответить
Сообщение
Т.е. согласно запросу - найти уникальные!
Согласен, а файл с примером открываешь, а там в таблице столбец "Повторяющиеся слова" %)

Автор - msi2102
Дата добавления - 30.06.2023 в 23:35
mishura08 Дата: Суббота, 01.07.2023, 08:38 | Сообщение № 17
Группа: Проверенные
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 40% ±

2021
Благодарю всех!
 
Ответить
СообщениеБлагодарю всех!

Автор - mishura08
Дата добавления - 01.07.2023 в 08:38
jakim Дата: Суббота, 01.07.2023, 09:06 | Сообщение № 18
Группа: Друзья
Ранг: Старожил
Сообщений: 1205
Репутация: 313 ±
Замечаний: 0% ±

Excel 2010
Добавил таблицу с единцами.
К сообщению приложен файл: 0967535.xlsx (46.8 Kb)
 
Ответить
СообщениеДобавил таблицу с единцами.

Автор - jakim
Дата добавления - 01.07.2023 в 09:06
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!