Объединение содержимого ячеек

[vladibnal]

Добрый вечер.
Я написал макрос, который объединяет содержимое ячеек в объединённой ячейке.

Код (vb) Выделить Развернуть

Public Sub Togеther()
Dim sStr As String, rCell As Range
  sStr = "     "
  For Each rCell In Selection
    If rCell.Formula = "" Then sStr = sStr Else sStr = sStr & rCell.Formula & " "
    rCell.Formula = ""
  Next rCell
  With Selection
        .MergeCells = True
        .Offset(0, 0).Formula = sStr
  End With
End Sub
Однако, при этом, надстрочные и подстрочные индексы перестают быть индексами.
Возможно ли написать макрос, объединяющий содержимое ячеек с сохранением положения индексов?

[kuklp]

Да.

[vikttur]

Предупрежу вопрос "как это сделать"?
Вы просто поинтересовались, Вам просто ответили. Для реальной помощи нужен пример файла и уточнение задачи.