Дано. Рабочий макрос в MS Excel
Код: Выделить всё
Sub kz()
'
' kz Макрос
'
'
Dim c As Range
For Each c In ActiveSheet.UsedRange
If Not IsEmpty(c.Value) Then c.Value = ",'" & c.Value & "'"
Next
End Sub
В начале вставляется
,'
в конце '
Задача: адаптировать под LibreOffice Calc.
Ну и если адаптировать, то сделать универсальным. К примеру по выделению. Выделил область и он (макрос) именно в этой области и работает.