Объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку - VB

Узнай цену своей работы

Формулировка задачи:

Доброе время суток!
Подскажите пожалуйста как это сделать?
Sub кнопка1_щелчок()
q = лист1.Cells(9, 1)
w = лист1.Cells(9, 2)
x = q & "," & w
ActiveCell.Cells = x
End Sub
вот на что хватило знаний :) но мне необходимо чтобы был диапазон ячеек в строке,
"сцепить" не предлагайте нужно макросом )
заранее большое спасибо

Решение задачи: «Объединить диапазон ячеек в одну ячейку и вставить значения в активную ячейку»

textual
Листинг программы
activecell=join(application.index(range("A1:R1").value,1,0),",")

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы