Vjerojatno postoji kvalitetnije rješenje, ali evo onako brzinski
Uđi u VBE sa Alt+F11 => Insert Module
U njega kopiraj macro
Code:
Sub KopiranjeImena()
'
Range("C5:C86").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$A$82").RemoveDuplicates Columns:=1, Header:=xlNo
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:A82")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1:A22").Select
Selection.Copy
Sheets("JANUAR 2011").Select
Range("C93").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Sheets("Sheet1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Range("C93").Select
End Sub
Pokreni Alt+F8 => selektiraj Macro "KopiranjeImena" => RUN
Potvrdi za brisanje targeta.
Macro će kopirati i sortirati po abecedi
Da bi ti bilo jasnije što radi ovaj Macro.
1. Kopira range C5:C86
2. Otvara novi Sheet1
3. Lijepi kopirani range u range A1:A82
3. Briše prazne redove
4. Sortira A-Z
5. Kopira A1:A22
6. Prebacuje se na Sheet Januar-2011
7. Lijepi kopirano
8. Prebacuje se na Sheet1
9. Briše Sheet1
10. prebacuje se na Sheet Januar-2011 u ćeliju C93