Макрос для копирования

[knyz]

Нужен макрос для копирования содержимого ячейки, обратите внимание что только содержимого а не всей ячейки. Зараннее благодарен.



--------- примечание модератора - вдруг кому пригодится --------------

Надстройка LOOKUP предназначена для сравнения и подстановки значений в таблицах Excel.

Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
надстройка «Lookup» поможет сделать это нажатием одной кнопки.

В настройках программы можно задать:

• где искать сравниваемые файлы (использовать уже открытый файл, загружать файл по заданному пути, или же выводить диалоговое окно выбора файла)
• с каких листов брать данные (варианты: активный лист, лист с заданным номером или названием)
• какие столбцы сравнивать (можно задать несколько столбцов)
• значения каких столбцов надо копировать в найденные строки (также можно указать несколько столбцов)

Скачать надстройку для сравнения таблиц Excel и копирования данных из одинаковых строк

[IgorGO]

Копируем ячейку-источник обычным образом.
Правой кнопкой на ячейку-приемник. Кликаем "Специальная вставка", выбираем "только значение". Вставляем.
обратите внимание - копируется только содержимое.

[knyz]

Мне нужно с помощью макроса...

[VictorM]

Нужен макрос для копирования содержимого ячейки

Sub Макрос1()
    Range("A1").Copy
    Range("A10").PasteSpecial Paste:=xlPasteValues
End Sub

обратите внимание что только содержимого

[knyz]

Есть такой код :
'слияние ячеек без удаления текста
Sub MergeToOneCell()
Const sDELIM As String = ", "
Dim rCell As Range
Dim sMergeStr As String
If TypeName(Selection) <> "Range" Then Exit Sub
If Not Status Then Exit Sub
Call SaveUndoInfo(Selection)
With Selection
For Each rCell In .Cells
sMergeStr = sMergeStr & sDELIM & rCell.Text
Next rCell
Application.DisplayAlerts = False
.Merge Across:=False
Application.DisplayAlerts = True
.Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))
ActiveCell.Formula = Mid(sMergeStr, 1 + Len(sDELIM))
Selection.Copy
End With

End Sub

Так он мне в конце в буфер всю ячейку копирует, а мне надо вставить в ворд только содержимое.

Обратите внимание что вашим способом из буфера в ворд вставится таблица а не текстовое значение.

[VictorM]

Задачу нужно описывать изначально полно, тогда получите полный ответ на свой вопрос.

Обратите внимание что

О Ворде в Вашем вопросе, в начале темы, ни слова!

[knyz]

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

[VictorM]

вопрос не в том что копировать, а в том как вставлять в документ Ворд.
вот такая строка

wdDoc.Range.PasteAndFormat(wdFormatPlainText) 'вставляем в Word как текст

вставит скопированное значение как текст

[knyz]

а нельзя поменять на копировать как текст ?

[VictorM]

нет, Copy он и есть Copy
а вот для вставки есть выбор