Есть макрос на VBA.
Sub copyTable()
Dim colRange As Variant
colRange = Array(1, 2, 3, 4, 5, 6, 7) 'Columns where your data is'
Dim destColRange As Variant
destColRange = Array(10, 11, 12, 13, 14, 15, 16, 17) 'Columns where you want
data be copied'
n = UBound(colRange) - LBound(colRange)
i = 2 'Initial row'
newI = i
maxLen = 500 'Maximum size allowed in one cell'
While Not (Cells(i, colRange(0)) Is Nothing) And (Cells(i, colRange(0)) <>
"")
Text = Cells(i, colRange(n))
Do
For j = 0 To n - 1
Cells(newI, destColRange(j)) = Cells(i, colRange(j))
Next j
Cells(newI, destColRange(j)) = Mid(Text, 1, maxLen)
Text = Mid(Text, maxLen + 1)
newI = newI + 1
Loop Until Len(Text) <= 0
i = i + 1
Wend
End Sub
Если в ячейке последнеего столбца текст длиной более 500 символов, то остаток символов переносится на строку ниже с дублированием других ячеек строки.
Подскажите, как сделать, чтобы все это делалось не для последнего столбца, а, к примеру, для предпоследнего (в данном случае 6).