Подскажите, как сохранить данные не в диапазон столбцов, а на другой лист?
Sub copyTable()
Dim colRange(), destColRange()
Dim Text As String
Dim i As Long, newI As Long, n As Long, j As Long
Dim maxLen As Long
colRange = Array(1, 2, 3, 4, 5, 6, 7) 'Columns where your data is'
destColRange = Array(10, 11, 12, 13, 14, 15, 16, 17) 'Columns where you want
'data be copied'
n = UBound(colRange) - LBound(colRange)-1
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