Универсальный макрос на все случай жизни.
Выбираем ячейки, которые нужно перенести по типу «СЦЕПИТЬ». Затем запускаем макрос через кнопку или другим удобным способом. После запуска макрос попросит указать, куда должна появиться информация — выбираем нужное место и готово! =)
(resultString = resultString & ", " можете менять на другой символ по желанию.)
Чтобы запустить макрос комбинацией клавиш Alt + Enter, нужно назначить горячие клавиши в настройках Excel.
Чтобы настроить быстрое выполнение макроса:
Назначение горячей клавиши для макроса:
Перейдите во вкладку Файл → Параметры → Настроить ленту.
Кликните внизу окна ссылку «Настройка клавиатуры…» (либо откройте Вид → Макросы → нажмите на значок настроек рядом с полем поиска макросов и выберите пункт Назначить сочетания клавиш).
В появившемся окне найдите категорию макросов (Макросы) и выберите ваш макрос (он называется Selectmacros). Если макрос не появился, убедитесь, что он сохранён в файле рабочей книги (*.xlsm), иначе макрос может быть скрыт.
Поле ввода комбинации клавиш оставьте пустым и введите вручную сочетание клавиш Alt + Enter.
Щёлкните кнопку Назначить и закройте настройки.
Итоговый алгоритм действий:
Выделение нужных ячеек.
Нажатие Alt + Enter для запуска макроса.
Выбор целевой ячейки, куда вставляется результат.
Как-то так )
Выбираем ячейки, которые нужно перенести по типу «СЦЕПИТЬ». Затем запускаем макрос через кнопку или другим удобным способом. После запуска макрос попросит указать, куда должна появиться информация — выбираем нужное место и готово! =)
| Код |
|---|
Sub Selectmacros()
Dim selectedRange As Range
Dim outputCell As Range
Dim resultString As String
Dim cell As Range
' Получаем диапазон выделенных ячеек
Set selectedRange = Selection
' Проверяем, выделены ли ячейки
If selectedRange.Count = 0 Then
MsgBox "Выберите хотя бы одну ячейку.", vbExclamation
Exit Sub
End If
' Формируем строку из содержимого выбранных ячеек
For Each cell In selectedRange
If Len(resultString) > 0 Then
resultString = resultString & ", "
End If
resultString = resultString & Trim(cell.Text)
Next cell
' Выбрать ячейку для вывода строки
On Error Resume Next
Set outputCell = Application.InputBox("Укажите ячейку для отображения результата:", Type:=8)
On Error GoTo 0
If Not outputCell Is Nothing Then
outputCell.Value = resultString
Else
MsgBox "Операция отменена.", vbInformation
End If
End Sub |
(resultString = resultString & ", " можете менять на другой символ по желанию.)
Чтобы запустить макрос комбинацией клавиш Alt + Enter, нужно назначить горячие клавиши в настройках Excel.
Чтобы настроить быстрое выполнение макроса:
Назначение горячей клавиши для макроса:
Перейдите во вкладку Файл → Параметры → Настроить ленту.
Кликните внизу окна ссылку «Настройка клавиатуры…» (либо откройте Вид → Макросы → нажмите на значок настроек рядом с полем поиска макросов и выберите пункт Назначить сочетания клавиш).
В появившемся окне найдите категорию макросов (Макросы) и выберите ваш макрос (он называется Selectmacros). Если макрос не появился, убедитесь, что он сохранён в файле рабочей книги (*.xlsm), иначе макрос может быть скрыт.
Поле ввода комбинации клавиш оставьте пустым и введите вручную сочетание клавиш Alt + Enter.
Щёлкните кнопку Назначить и закройте настройки.
Итоговый алгоритм действий:
Выделение нужных ячеек.
Нажатие Alt + Enter для запуска макроса.
Выбор целевой ячейки, куда вставляется результат.
Как-то так )
Изменено: - 20.06.2025 16:55:28
