pro Excel pouzij nasledujici proceduru ve VBA (nutno upravit nazev listu a rozsah prohledavanych bunek), kterou v editoru VBA vloz do modulu, pro OO-Calc bude nejspis nutno upravit. Protoze neuvadis, co s komentarem (odstranit?), tak zatim neresim.

Option Explicit

Sub KomentarDoBunky()
  Dim c As Range, Blok As Range
  ' nutno upravit dle potreby:
  Set Blok = Worksheets("list2").Range("i1:i30")
  '
  For Each c In Blok.Cells
    On Error Resume Next
    c.Offset(0, 1).Value = c.Comment.Text
  Next c
End Sub