Как разбить ячейку с кучей данных на несколько строк

[zoogbet]

Приветствую! Помогите разобраться нубу.
Как разбить ячейку с кучей данных на несколько строк. Именно строк, а не столбцов.

Есть ячейка с артикулами, где нужно каждый артикул вывести в новую строку. Остальные столбики при этом просто дублируются. Разбивать нужно столбик А.

Пример файла (в исходнике больше 100к строк): https://dropmefiles.com/zeKtl

Заранее благодарю.

[Aleksandr H.]

Выложите 10-20 строк из тех 100к с примером что должно быть результатом

[zoogbet]

Сообщение от Aleksandr H.

Выложите 10-20 строк из тех 100к с примером что должно быть результатом

Я же выложил пример файла в первом посте.
Там 2 строки оригинала и как должно быть.

[zoogbet]

Пример файла

[Aleksandr H.]

Разбиваете ячейку с помощью

 Split([A2], Chr(10))

на строки. А дальше копи/паст )

[zoogbet]

Сообщение от Aleksandr H.

Разбиваете ячейку с помощью

 Split([A2], Chr(10))

на строки. А дальше копи/паст )

Я извиняюсь за наглость, я совсем нуб)
Можно весь код макроса?

[Aleksandr H.]

Option Explicit


Sub SplitXML()
    Dim wks1 As Worksheet
    Dim wks2 As Worksheet
    Dim intLastRowWks1 As Integer
    Dim intLastRowWks2 As Integer
    Dim i As Integer, j As Integer
    Dim strAValue As String
    Dim arAValues() As String
    
    Set wks1 = Sheets("Лист1")
    Set wks2 = Sheets("Лист2")
    intLastRowWks1 = wks1.Cells(wks1.Rows.Count, "A").End(xlUp).Row
    intLastRowWks2 = 2
    For i = 2 To intLastRowWks1
        strAValue = Trim$(wks1.Cells(i, "A").Value2)
        arAValues = Split(strAValue, Chr(10))
        For j = LBound(arAValues) To UBound(arAValues)
            If arAValues(j) <> "" Then
                wks2.Cells(intLastRowWks2, "A") = arAValues(j)
                wks2.Range("B" & intLastRowWks2 & ":I" & intLastRowWks2).Value = wks1.Range("B" & i & ":I" & i).Value
                intLastRowWks2 = wks2.Cells(wks2.Rows.Count, "A").End(xlUp).Row + 1
            End If
        Next j
    Next i
End Sub

[zoogbet]

Сообщение от Aleksandr H.

Option Explicit


Sub SplitXML()
    Dim wks1 As Worksheet
    Dim wks2 As Worksheet
    Dim intLastRowWks1 As Integer
    Dim intLastRowWks2 As Integer
    Dim i As Integer, j As Integer
    Dim strAValue As String
    Dim arAValues() As String
    
    Set wks1 = Sheets("Лист1")
    Set wks2 = Sheets("Лист2")
    intLastRowWks1 = wks1.Cells(wks1.Rows.Count, "A").End(xlUp).Row
    intLastRowWks2 = 2
    For i = 2 To intLastRowWks1
        strAValue = Trim$(wks1.Cells(i, "A").Value2)
        arAValues = Split(strAValue, Chr(10))
        For j = LBound(arAValues) To UBound(arAValues)
            If arAValues(j) <> "" Then
                wks2.Cells(intLastRowWks2, "A") = arAValues(j)
                wks2.Range("B" & intLastRowWks2 & ":I" & intLastRowWks2).Value = wks1.Range("B" & i & ":I" & i).Value
                intLastRowWks2 = wks2.Cells(wks2.Rows.Count, "A").End(xlUp).Row + 1
            End If
        Next j
    Next i
End Sub

Извините, но в основном файле он не работает(( В тестовом (тот что я сюда скидывал) все работает отлично.

Выдает такую ошибку: (прикрепленный файл)

[zoogbet]

Так как файл оригинал слишком большой, закинул его на файлообменник.
https://dropmefiles.com/Clivn

Еще раз спасибо за помощь.

[Aleksandr H.]

1) Integer на Long заменить.
или
2) "скармливать" макросу не больше 5-7к строк за раз