Перенос нескольких столбцов строчки 1 в аналогичное количество строчек с сохранением значения первого столбца строчки 1

[ДаниилФ]

Помогите пожалуйста, нужно сделать автоматизацию для большого массива данных (более 1000 строчек), вручную займёт очень много времени, так как данные могут меняться.
Нужна рабочая формула или ссылка на аналогичную тему.
В примере из данных "А" нужен результат "В".
Спасибо !

[Aleksandr H.]

Вывод на "Лист3"

Option Explicit

Sub DoWork()
    Dim r  As Integer
    r = 2
    Dim arrC() As String
    Dim rCount As Integer
    Dim i As Integer
    rCount = 2
    With Sheets("Лист1")
       Do While .Cells(r, "A") <> ""
        arrC = Split(Trim(.Cells(r, "C")), " ")
        For i = LBound(arrC) To UBound(arrC)

            Sheets("Лист3").Cells(rCount, "A") = .Cells(r, "A")
            Sheets("Лист3").Cells(rCount, "B") = .Cells(r, "B")
            Sheets("Лист3").Cells(rCount, "C") = arrC(i)
            rCount = rCount + 1
        Next i
        r = r + 1
       Loop
    End With
End Sub

[ДаниилФ]

В LibreOffice не работает, пишет:

Ошибка времени выполнения BASIC.
Подпрограмма или функция не определена.

[Aleksandr H.]

Сообщение от ДаниилФ

В LibreOffice не работает, пишет:

могу и там сделать, но если "вот прям счас", то вам на forumooo.ru спросите JohnSUN

[ДаниилФ]

Спасибо, в Excel всё работает !

[ДаниилФ]

Если не сложно для Libre, я буду очень счастлив !

[Aleksandr H.]

Sub Main
	dim RowCount as long
	dim RowCount3 as long
	dim celC as string
	dim celA as string
	oSheet1=ThisComponent.Sheets.getByName("Лист1") ' получения активного листа
	oSheet3=ThisComponent.Sheets.getByName("Лист3") ' получения активного листа
	RowCount = LastRowWithData("Лист1")+1
	RowCount3 = 1
	for r = 1 to RowCount
		celA = oSheet1.getCellByPosition(0,r).string
		if oSheet1.getCellByPosition(0,r).string <> "" then
		celC = trim(oSheet1.getCellByPosition(2,r).string)	
		arrC = Split(celC," ")
			for i = LBound(arrC) to UBound(arrC)
				oSheet3.getCellByPosition(0,RowCount3).string = oSheet1.getCellByPosition(0,r).string
				oSheet3.getCellByPosition(1,RowCount3).string = oSheet1.getCellByPosition(1,r).string
				oSheet3.getCellByPosition(2,RowCount3).string = arrC(i)
				RowCount3 = RowCount3 + 1
			next i
		end if 	
	next r
	
End Sub

Function LastRowWithData (SheetName  as string) as long
   Dim oCursor As Object, oRange As Object, oSheet As Object
   Dim LastRowOfUsedArea as long, R as long
   Dim RangeData

   oSheet = ThisComponent.Sheets.getByName(SheetName)
   oCursor = oSheet.createCursor
   oCursor.gotoEndOfUsedArea(False)
   LastRowOfUsedArea = oCursor.RangeAddress.EndRow
   oRange = oSheet.getCellRangeByPosition(0, 0, 0, LastRowOfUsedArea)
   oCursor = oSheet.createCursorByRange(oRange)
   RangeData = oCursor.getDataArray

   For R = UBound(RangeData) To LBound(RangeData) Step - 1
       If RangeData(R)(0) <> "" then
          LastRowWithData = R
          Exit Function
       End If
   Next
End Function