Объеденение ячеек без потери данных

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

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

remm

Дата: Среда, 06.02.2013, 11:50 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 6

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

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

ДД!
Есть файл, который хотелось бы преобразовать в нужный мне по структуре. Изучая вопрос, понял, что данное делается с помощью макросов. К сожалению, победить их не удалось (возможно потому, что МАС-офис) или, что более вероятно, кривые руки мои не в состоянии освоить данный функционал. Если подскажете, какой порядок действий нужен, было бы здорово!
Спасибо!

К сообщению приложен файл: packing_2.xls (24.5 Kb)

Сообщение отредактировал remm - Среда, 06.02.2013, 11:53

Ответить

Serge_007

Дата: Среда, 06.02.2013, 12:05 | Сообщение № 2

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Правила читали?
Поиском пользовались?
Объединение ячеек без потери содержимого

ЮMoney:41001419691823 | WMR:126292472390

Ответить

RAN

Дата: Среда, 06.02.2013, 12:08 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата (remm)

возможно потому, что МАС-офис

Pelena, писала, что в огрызочном офисе свои макросы.

Быть или не быть, вот в чем загвоздка!

Ответить

Serge_007

Дата: Среда, 06.02.2013, 12:16 | Сообщение № 4

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Точно
Я не обратил внимание на то что у ТС яблоко...

ЮMoney:41001419691823 | WMR:126292472390

Ответить

remm

Дата: Среда, 06.02.2013, 14:24 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 6

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

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

Так как быть?

Ответить

RAN

Дата: Среда, 06.02.2013, 14:27 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Выбор не велик. Либо огрызок выкинуть, либо искать, кто в огрызочном офисе макросы писать умеет.

Быть или не быть, вот в чем загвоздка!

Ответить

remm

Дата: Среда, 06.02.2013, 14:44 | Сообщение № 7

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

Ранг: Прохожий

Сообщений: 6

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

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

в той теме приложен файл: LoslessMerge.xls
Запустил его в форточке, да все работает, но он объединяет ячейки сливая, а у меня вопрос в том, чтобы данные 2-х ячеек переходили в одну (как в приложенном мной файле)

Ответить

RAN

Дата: Среда, 06.02.2013, 14:47 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Если работает - тогда сюда

Быть или не быть, вот в чем загвоздка!

Ответить

remm

Дата: Среда, 06.02.2013, 15:05 | Сообщение № 9

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

Ранг: Прохожий

Сообщений: 6

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

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

Цитата (RAN)

Если работает - тогда сюда

Цитата (remm)

в той теме приложен файл: LoslessMerge.xls

Цитата (remm)

он объединяет ячейки сливая, а у меня вопрос в том, чтобы данные 2-х ячеек переходили в одну (как в приложенном мной файле)

Там другое решение, или я что то недопонимаю?

Ответить

Формуляр

Дата: Среда, 06.02.2013, 15:39 | Сообщение № 10

Группа: Друзья

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

Сообщений: 832

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

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

Excel 2003, 2013

ну, можно добавить Unmerge - будет "в одну"

Я бы делал так:
1) текстовое копирование в Word
2) автозамена ^p^t на пробел (или чего там надо)
3) копирование обратно

Excel 2003 EN, 2013 EN

Сообщение отредактировал Формуляр - Среда, 06.02.2013, 15:45

Ответить

RAN

Дата: Среда, 06.02.2013, 16:00 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Каюсь, файл не глядел

Себе для аналогичной задачи сделал код (на форме, в составе надстройки)
[vba]

Код

Private Sub CommandButton12_Click()
      Dim arr
      arr = Selection.Columns(1).Value
      If Not IsArray(arr) Then arr = Array(arr)
      Selection.ClearContents
      Selection(1).WrapText = True
      Selection(1) = Join(Application.Transpose(arr))
End Sub

[/vba]

Работает правда с 1 столбцом. Ну и исходя из моих нужд - с выделением.
Собираю все в одну ячейку, а потом другой кнопкой удаляю пустые строки.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 06.02.2013, 16:02

Ответить

remm

Дата: Среда, 06.02.2013, 16:19 | Сообщение № 12

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

Ранг: Прохожий

Сообщений: 6

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

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

Цитата (RAN)

Себе для аналогичной задачи сделал код (на форме, в составе надстройки)

прости, но я немножко деревянный(
Куда это вставлять? Я с этим сталкиваюсь впервые(

Ответить

remm

Дата: Среда, 06.02.2013, 16:21 | Сообщение № 13

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

Ранг: Прохожий

Сообщений: 6

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

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

Цитата (Формуляр)

у, можно добавить Unmerge - будет "в одну"

Я бы делал так:
1) текстовое копирование в Word
2) автозамена ^p^t на пробел (или чего там надо)
3) копирование обратно

Есть более простой способ - "=СЦЕПКА" но там требуется руками удалять пустые ячейки.