Please provide a sample spreadsheet showing this behavior.

The problem looks strange in this part:

> What makes it worse, removing a new version and trying replace that
> with the old one wasn't working. Traces were left and the old version after
> replacement was working slow as well. I had to remove it and go into windows
> registry manually removing all the traces left. Then it was working.

The thing is, LibreOffice does not use Windows Registry at all, and so no traces there should affect the operation of both old and new version. Much greater chance is that removing user profile under %appdata%\LibreOffice could affect that. However, this would be easy to check, if there's a sample file to test - then we could check. Of course, if you also provide information about specific registry entries that you removed, that could help.

Hi.
The spreadsheet was doing some calculation on it's own and later working with a macro finding the right data and copying corresponding row to another sheet.
In the registry I was removing any entry with a name LibreOffice in it. I'm not sure which particularly was responsible for making it slow so just in case i did remove all i found. After reinstalling , the old version was working fine.
Regards
Ziggy

(In reply to Woowbat from comment #2)

So there is no way for us to reproduce the problem to attempt fixing it? Should it be closed then as impossible to handle?

Created attachment 169897 [details]
Testing files for  bug 140525

Sub Main
Dim Doc as Object
Dim SheetCopy as Object
Dim SheetPaste as Object
Dim CellCopy as Object
Dim CellPaste as Object
Doc = ThisComponent
   Sheets = Doc.Sheets()
   SheetCopy = Sheets.getByName("Sheet1")
   SheetPaste = Sheets.getByName("Sheet1")
   CopyRange = SheetCopy.getCellRangeByName("AH1:AH100000")
   PasteRange = SheetPaste.getCellRangeByName("AH1:AH100000")
   PasteRange.DataArray = CopyRange.DataArray
 dim i as long 
 dim j as integer
for i=0 to 100000
	dim document as object
	document = ThisComponent
	sheet = document.Sheets(0)
	REM MsgBox(sheet.getCellByPosition(0, i).String) 
	REM if sheet.getCellByPosition(33, i).String >0 then Print i, (sheet.getCellByPosition(0, i).String)
	if sheet.getCellByPosition(33, i).String >0 then j=j+1
	if sheet.getCellByPosition(2, i).String <0 then i=100000
   Sheets = Doc.Sheets()
	SheetCopy = Sheets.getByName("Sheet1")
	SheetPaste = Sheets.getByName("Sheet2")
	CopyRange = SheetCopy.getCellRangeByPosition(0, i+1, 33, i+1)
	PasteRange = SheetPaste.getCellRangeByPosition(0, j, 33, j)
   PasteRange.DataArray = CopyRange.DataArray
next i
   
End Sub

Of course there is. Make sure LibreOffice_6.0.7_Win_x64 is installed on Windows without any version higher than 6.0.7 installed before. On my comp macro needs about 8min 15sec to finish. Compare the difference after upgrade to latest version.
Regards
Ziggy

Bibisected with linux-64-7.1 to
https://git.libreoffice.org/core/commit/861fbd998f2b526c2aea073c9471613bf728fa75
purge shared string pool if ScDocument is closed (tdf#125428)

Adding Cc: to Luboš Luňák

I tested with a macro version with 1k iterations instead of the original 100k (will attach a new file with the modified macro)

The difference on my machine in the 7.1 repo was 2.5 secs vs. 16 secs. However, in the latest of 7.4 the time is only 7 secs, so various improvements were made. The purging commit seems important, so perhaps this can't be seen as a traditional regression. Probably there is a better way to write that Basic macro.

Created attachment 178126 [details]
File with macro using 1000 iterations

https://git.libreoffice.org/core/+/5b2a153779b68e8454a66973579512fe17e376d5%5E%21