Kdybyste chtěl řešení makrem (na hodně řádků by se to mohlo hodit), tak něco by tady bylo. Měl jsem takovou podobnou funkci, trošku jsem ji upravil
Sub dopln_znacky
dim vstup as string
dim doc as object, oblastF as object, list as object, FandR as object, oCell as object
dim TextRow as integer
doc = thisComponent
'list = doc.Sheets.GetByName("list1")
list = doc.getCurrentController.getActiveSheet()
oblastF = list.getCellRangeByName("A2:A30000")
vstup = inputbox ("Zadejte hledanou hodnotu" , "VSTUP")
If vstup = "" then
Exit Sub
end if
' list.getCellRangeByName.select("A2")
FandR = oblastF.createSearchDescriptor()
FandR.setSearchString(vstup)
FandR.SearchWords = false 'Entire cell must match.
oCell = oblastF.findFirst(FandR)
If isNull(oCell) then
Exit Sub
End if
TextRow = oCell.CellAddress.Row
list.getCellByPosition(1, TextRow).String = "produkt"
Do while not IsNull(oCell)
oCell = oblastF.findNext(oCell, FandR)
if IsNull(oCell) Then
Exit Sub
End If
TextRow = oCell.CellAddress.Row
list.getCellByPosition(1, TextRow).string = "produkt"
'print TextRow
Loop
End Sub
