Макрос объединяет выделенные ячейки и копирует в буфер
Пользователь
Сообщений: Регистрация: 21.04.2018
16.04.2021 16:34:16
Всем привет!
Помогите пожалуйста Нужен макрос который объединяет значения выделенных ячеек через пробел и копирует их буфер обмена
Пользователь
Сообщений: Регистрация: 06.01.2013
16.04.2021 17:01:38
приложите небольшой файл-пример
Пользователь
Сообщений: Регистрация: 21.04.2018
16.04.2021 17:16:03
текст1 текст2 текст3 -> выделяю -> жму макрос -> получаю в буфере обмена [текст1 текст2 текст3]
Изменено: - 16.04.2021 17:16:27
Пользователь
Сообщений: Регистрация: 10.09.2017
16.04.2021 18:02:09
Недавно Владимир () надежный метод для записи текста в буфер обмена. Для Вашего случая:
Код
Option Explicit
' Объединяет значения в выделенных ячейках через пробел и копирует в буфер обмена.
Sub SelectionToClipBoard()
Dim arr(), i As Long, cell As Range
On Error GoTo ErrLabel
ReDim arr(1 To Selection.Cells.Count)
For Each cell In Selection.Cells
i = i + 1
arr(i) = cell.Value
Next cell
SetClipBoardText Join(arr)
ErrLabel:
End Sub
' Копирует Text в буфер обмена Windows.
Function SetClipBoardText(ByVal Text As Variant) As Boolean
SetClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text)
End Function
