Получить координаты первой (левой верхней) выделенной ячейки

@сороконожка · Регистрация: 01.12.2014

Author24 — интернет-сервис помощи студентам

Добрый день, есть ячейки со значениями в одной строке, надо их совместить в первую ячейку. Вопрос - как получить координаты первой (левой верхней) выделенной ячейки.

Visual Basic

Dim final As String
Dim cell As Excel.Range
 
For Each cell In Selection
    final = final & " " & cell.Value & " "
Next cell
'final надо передать в первую из выделенных ячеек.

@Казанский · 02.07.2015, 16:09

сороконожка, можно без цикла

Visual Basic

1	Selection.Cells(1) = Join(WorksheetFunction.Index(Selection.Rows(1).Value, 1, 0))

@сороконожка · 02.07.2015, 16:20 **[ТС]**

Спасибо. Тоже канает.

@сороконожка 15 / 15 / 5 Регистрация: 01.12.2014 Сообщений: 117
	02.07.2015, 16:20 [ТС]	3
	Спасибо. Тоже канает. 0

Получить координаты первой (левой верхней) выделенной ячейки

Решение