Разединение данных из ячейки ????

[EducatedFool]

Вот сейчас вроде всё...

Кнопки полностью убрал, все действия через контекстное меню ячеек
(в зависимости от количества выделенных ячеек - одна или несколько - добавляются разные пункты)

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

Объединение артикулов из нескольких ячеек работает только для идущих подряд ячеек
Если выделить несмежные диапазоны (удерживая при выделении клавишу Control), при объединении вылетит ошибка...
Исправить это можно, но только если очень нужно...

[stbo]

спасибо

[stbo]

Ещё дин вопросик, а вот если артикли не в столбце а в строчке находятся? точнее один макрос для обоих вариантов. это возможно?
Точнее сказать, что для вас, по моему, не возможного не существует. Вопрос возможности относится только к выделению времени чтобы это сделать

[EducatedFool]

а вот если артикли не в столбце а в строчке находятся

Хорошо хоть не по диагонали на разных листах разных книг...

точнее один макрос для обоих вариантов. это возможно?

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

И какой макрос Вам нужен? Вообще-то в предыдущем примере их несколько. Один объединяет строки, другой разбивает строки, третий окрашивает повторяющиеся артикулы и т.д.

Какое действие Вас интересует в случае со строками?

В любом случае, прикрепите к сообщению свой файл с подробным описанием того, какие ячейки (группы ячеек) с артикулами придётся обрабатывать, как при обработке должны изменяться смежные с обрабатываемыми ячейки, и т.д.

[stbo]

ну по диагонале, мысль интересая

[stbo]

ну вот так......

[EducatedFool]

Не совсем понятные комментарии...

все артикли расположены в одной строчке, выделяются, и …. объединются в одной ячейче

Ну и в чём проблема?
В коде давно присутствует макрос JoinCells, кторый только тем и занимается, что объединяет (в записью результата в выделенную ячейку) артикулы из 20 ячеек, находящихся правее выделенной ячейки.

Sub JoinCells()
    Application.ScreenUpdating = False
    On Error Resume Next
    Selection.Clear
    For Each ce In Selection.Cells
        Set ra = ce.Offset(0, 1).Resize(, 20)
        CellValue = ""
        For Each racells In ra.Cells
            If Len(racells.Value) > 1 Then CellValue = CellValue & racells.Value & vbLf
        Next racells
        ce.Value = Left(CellValue, Len(CellValue) - 1)
    Next ce
    Application.ScreenUpdating = True
End Sub

К тому же, что именно вы намереваетесь выделять?
Ячейку, в которой должен появиться результат объединения (как в случае с макросом JoinCells),
или диапазон ячеек, которые должны быть объединены?

Как можно распознать границы диапазона (в строке), содержащего ячейки, предназначенные для объединения?


Вообще, хотелось бы увидеть комментарии примерно такого вида:

Выделяем ячейку a5, содержащую несколько артикулов, выбираем в контекстном меню (или нажимаем кнопку) "Распределить артикулы по одной строке", после чего отдельные артикулы должны появиться в ячейках с5...к5, при этом содержимое ячейки а5 должно быть очищено.

И так для каждого необходимого Вам действия.

После этого будем сочинять код дальше.

[stbo]

да. попытаюсь.
1. Объединение артиклей выделенных в столбце (диапазон А3-А14) выделить, выбираю "объединить" и получаем в А3 все артикли из выбранного диапазона в одной ячейке. Это уже есть и работает!!!!!!!
2 Объединение артиклей выделенных в строке (диапазон С2-М2). Выделить, выбираю " объединить" и получаем в С2 все артикли из выбранного диапазона в одной ячейке. Этого хотелось бы!!!!!!!
Спасибо за ваше терпение.

[EducatedFool]

Объединение артиклей выделенных в строке (диапазон С2-М2). Выделить, выбираю " объединить" и получаем в С2 все артикли из выбранного диапазона в одной ячейке

Реализовано.
Выделяете диапазон e12-k12, после чего выбираете в контекстном меню пункт
Объединить артикулы в одну ячейку - e12

Для выполнения обратного действия выделяете ячейку e12 (должна быть выделена одна ячейка), и выбираете в контекстном меню команду
Разъединить артикулы по ячейкам этой строки

[stbo]

обалдеть!!!! работает как часы!!!! спасибо !!!! это то что нужно!!!