Программисты — удалённая работа в Москве

Системное программирование. Доработка существующего продукта. Sub SplitTextIntoRows() 'UpdatebyExtendoffice Dim xSRg, xIptRg, xCrRg, xRg As Range Dim xSplitChar As String Dim xArr As Variant Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer Dim xWSh As Worksheet Set xSRg = Application.InputBox(“Select a range:“, “Kutools for Excel“, , , , , , 8) If xSRg Is Nothing Then Exit Sub xSplitChar = Chr(10) Application.ScreenUpdating = False xRow = xSRg.Row xColumn = xSRg.Column Set xWSh = xSRg.Worksheet For xFNum = xSRg.Rows.Count To 1 Step -1 Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn) xArr = Split(xRg, xSplitChar) xIndex = UBound(xArr) For xFFNum = LBound(xArr) To UBound(xArr) xRg.EntireRow.Copy xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xIndex) xIndex = xIndex - 1 Next xRg.EntireRow.Delete Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Код VBA: разделить текст по разрыву строки Данный макрос работает ток с одним столбцов как на фото 1 Мне надо чтоб он работал сразу с тремя столбцами Чтоб из данных на фото 2 получилась как на фото 3.