Сцепить диапазон макросом

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Сцепить диапазон макросом - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сцепить диапазон макросом (Макросы/Sub)

Сцепить диапазон макросом

Евген1313

Дата: Суббота, 25.09.2021, 07:57 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Всем доброго времени суток!
Подскажите, пожалуйста как при помощи макроса сцепить диапазон ячеек.
У меня EXEL 2007.
Заранее спасибо

К сообщению приложен файл: 3809489.xlsm (96.5 Kb)

Ответить

Kuzmich

Дата: Суббота, 25.09.2021, 14:03 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 711

Репутация: 156 ±

Замечаний: 0% ±

Excel 2003

Цитата

как при помощи макроса сцепить диапазон ячеек.

Следуя логике вашего примера, попробуйте так
[vba]

Код

Sub Scepka()
    Dim i As Long
    Dim Cell As Range
    Set ShAbzac = ThisWorkbook.Worksheets("Значения")
    Set AbzacListObj = ShAbzac.ListObjects("Данные_tb")
    Set ShManual = ThisWorkbook.Worksheets("Главная")
    Set ManualListObj = ShManual.ListObjects("Сцепка_tb")
Set Cell = AbzacListObj.ListColumns.Item(1).Range.Cells
  ManualListObj.Range(2) = ""
For i = 2 To Cell.Count
  ManualListObj.Range(2) = ManualListObj.Range(2) & Cell.Cells(i, 1) & Chr(10)
Next
End Sub

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сцепить диапазон макросом (Макросы/Sub)

Страница 1 из 1
1