Вставка объединённой ячейки в обычную

[Кардаган]

Здравствуйте.
И снова я к Вам. Прикладываю файл-пример. Там у меня в жёлтой ячейке число 5. Я копирую эту ячейку. Как мне её вставить в зелёную ячейку так, чтобы вставилась только одна ячейка. Простой вставкой вставляются 5 ячеек (столько ячеек объединено в одну). Войти в ячейку и скопировать число - не вариант. Специальная вставка-значения также вставляет 5 ячеек? Как быть?

[27102014]

не совсем понятно зачем Вы это делаете

Попробуйте формулу ЗНАЧЕН (объединенная ячейка)

[Кардаган]

Сообщение от 27102014

не совсем понятно зачем Вы это делаете

Попробуйте формулу ЗНАЧЕН (объединенная ячейка)

А без формулы?

А делаю я это, так как копируемая объединённая ячейка находится в одном файле, а ячейка, в которую нужно вставить - в другом. Просто для примера я всё поместил в один файл.

[27102014]

Сформулируйте задачу более конкретно - зачем Вам это?
Почему не можете скопировать нужный диапазон объединенных ячеек, вставить как значения куда нужно?
Можно настроить связь между файлами, можно подтянуть значения макросом и другое, насколько хватит фантазии

[Кардаган]

Так "нужный диапазон" есть объединённая ячейка. Мне надо объединённую ячейку в одном файле скопировать в другой в обычную ячейку без объединения.
А вставляя как значения вставляется не одна ячейка, а, для моего примера, 5 ячеек в строчку.

[27102014]

И что? можете же вставить не прямо в нужную ячейку (если она в таблице, например), а рядом, а потом переместить куда нужно


Или уберите объединенные ячейки в исходном файле, если есть возможность

[Кардаган]

Сообщение от 27102014

И что? можете же вставить не прямо в нужную ячейку (если она в таблице, например), а рядом, а потом переместить куда нужно

Да так можно, но имхо муторно. Причём не левее, а над. Ведь вставятся 5 ячеек и затрут мои ячейки. Приходится вставлять в чистую строку как значения, а потом копировать ячейку с цифрой одну и вставлять в нужную. Но, как я уже сказал, это довольно муторно (извините за выражение). А сразу вставить в нужную никак нельзя?

[27102014]

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

[Кардаган]

А макросом каким? Пример кода можно, пожалуйста.

[27102014]

Самый примитивный вариант

Sub данные ()

Set wb = Книга1 'откуда взять

'Книга2 куда вставить

Книга2.Sheets ("Лист1").Range ("A1") = wb.Sheets ("Лист1").Range ("A1").Value 

end sub

или просто так

Sub данные ()

Книга2.Sheets ("Лист1").Range ("A1") = Книга1.Sheets ("Лист1").Range ("A1").Value 
 
end sub