Darbā jauna izklaide!
Exceļa makrosi.

piemēram,

Range(Selection, Selection.End(xlToRight)).Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Selection.End(xlToRight).Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=1+RC[-1]"

vai arī šitāds:

z = ActiveCell.Value + 1
Selection.End(xlDown).Select
s = ActiveCell.Value
ActiveCell.FormulaR1C1 = s & Chr(10) & ">" & z
With ActiveCell.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With


vai šāds:

Cells.Find(What:="meklējamais teksts", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Selection.FindNext(After:=ActiveCell).Activate


Vismaz darbi un laiks ātrāk uz priekšu iet...