Преобразование столбца словосочетаний.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Преобразование столбца словосочетаний. (Формулы/Formulas)

Данил777

Дата: Четверг, 08.02.2018, 02:55 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

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

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

Excel 2016

Здравствуйте! Есть столбец словосочетаний и не только. Который нужно преобразовать в столбец с отсортированными словами из которых удалены дубли. Символ разделения является пробел. Есть ли возможность сделать такое автоматически? Если да то прошу помочь. В программе я не разбираюсь поэтому не судите строго.

К сообщению приложен файл: 6535559.xlsx (14.2 Kb)

Ответить

Pelena

Дата: Четверг, 08.02.2018, 10:38 | Сообщение № 2

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

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

Сообщений: 19184

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Мало, что понятно из примера. Вручную покажите в файле желаемый результат

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Данил777

Дата: Четверг, 08.02.2018, 12:21 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

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

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

Excel 2016

Pelena, Здравствуйте! В файле примере в столбце А - исходные данные, а в столбце В - результат. А вручную я сначала этот столбец А выделяю и разделяю функцией "текст по столбцам" разделителем использую пробел. Затем все отдельные слова что получились я копирую в один столбец. Далее его выделяю и сортирую используя функцию "сортировка от А до Я" и затем удаляю дубли. И это у меня получается столбец В. то что мне и нужно.

Ответить

abtextime

Дата: Четверг, 08.02.2018, 15:36 | Сообщение № 4

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

Ранг: Ветеран

Сообщений: 828

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

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

Excel 2010

Посмотрите (блоком сортировке в массиве не заморочился, просто дернул код из макрорекордера

Перед запуском макроса выделите ячейки в первом столбце (работает по диапазону Selection)

Результат работы пишет во второй столбец

[vba]

Код

Public Sub Разбор()

Dim W() As String
Dim A(0 To 1000) As String

Counter = 0

For i = 1 To Selection.Rows.Count

W = Split(Selection.Cells(i, 1).Value)

For j = 0 To UBound(W)

For k = 1 To Counter
If W(j) = A(k) Then Exit For
Next k

If k = Counter + 1 Then A(Counter) = W(j)
If k = Counter + 1 Then Counter = k

Next j

Next i

For i = 0 To Counter
Selection.Cells(i + 1, 2).Value = A(i)
Selection.Cells(i + 1, 2).NumberFormat = "@"
Next i

    Columns("B:B").Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B1:B10000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("B1:B10000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

[/vba]