Я пытаюсь написать код в Excel VBA для копирования нескольких значений ячеек Range в текстовое поле.Я написал код, чтобы скопировать каждое значение ячейки по одному и скопировать его в текстовое поле.Код выполняется нормально, но вместо копирования всех ячеек он показывает значение только последней ячейки.Это перезаписывает значения текстового поля.Почему-то мне не хватает трюка для копирования значения следующей ячейки в следующую строку в текстовом поле.Кто-нибудь может помочь мне исправить это.Я отправляю вопрос с мобильного, поэтому прошу прощения за отступы.
Sub ToText1()
Dim txtShap As Shape
RowL = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
Set txtShap = Workbooks("Concat.xlsb").Sheets("Sheet1").Shapes("TextBox 6")
For i = 2 To RowL
'MsgBox i
txtShap.TextFrame.Characters.Text = Sheets("Sheet1").Range("C" & RowL) .Value & vbNewLine
Next
End Sub