Данные из нескольких ячеек вставить в одну...

[sonata]

Данные из нескольких ячеек вставить в одну...
Вопрос следующий:
Есть таблица в Excel c различными полями.
Из нее приходится копировать различные данные, кот. нах-ся
в разных местах. Так вот, можно ли придумать такую кнопку,
которая копирует значение выделенных ячеек, но не просто копирует,
а производит операцию СЦЕПИТЬ(), для того, чтобы потом данные из нескольких
ячеек вставить в одну...
В голову приходит следующая мысль:
Dim myRange1 As Range
Set myRange1 = Application.Selection
Но вот, как потом оформить функцию СЦЕПИТЬ()?

[RayShade]

Можно сделать так:



Sub MyCopy()

Dim data As New DataObject

For Each cll In Selection

myvle = myvle & cll.Value

Next cll

data.SetText myvle

data.PutInClipboard

End Sub

[sonata]

Ругается на :
data As New DataObject

[RayShade]

Хм.. Подключи Micorosoft Forms 2.0 Library в Tools\References

[sonata]

Супер! Все заработало!
Я даже не ожидала, что настолько простой окажется код!
Огромное спасибо!!!!!!!

[sonata]

И еще, как эту эту весьма полезную программку сделать как
надстройку, чтобы она подключалась ко всем excel-м файлам?

[RayShade]

Создай чистую книгу.

В ней создай этот макрос.

Сохрани книгу как Excel Add-in (*.xla)

И потом пожключи ее через меню Tools\Add-ins

[sonata]

Все сделала.
Создала пустую книгу, создала в ней лист Class1
Сохранила как надстройку, а как теперь ее вызвать?

[RayShade]

Я ж написал - в меню Tools\Addins и вперед