Ето как да подредите таблиците си по азбучен ред
Сортирането на данни по азбучен ред в списъците ви не е проблем. Но как да направите това, когато искате да подредите работните листове по азбучен ред според техните имена?
Следващата илюстрация показва регистър на листове с поредица от работни листове. Те трябва да бъдат сортирани по азбучен ред, така че да бъдат по -лесни за намиране.
3
С няколко листа можете надеждно да извършите работата ръчно. С много листове това бързо става трудно, отнема много време и е объркващо. Следният макрос ще ви помогне допълнително:
Sub SortBlaetter ()
Dim Zaehler1 като цяло число, Zaehler2 като цяло число
Dim Name As String
Име = ActiveSheet.Name
За Zaehler1 = 1 към работни листове
За Zaehler2 = Zaehler1 към работни листове
Ако UCase (работни листове (брояч2). Име) <UCase (работни листове (брояч1). Име) тогава
Работни листове (Zaehler2). Преместване преди: = Работни листове (Zaehler1)
Край Ако
Следващ брояч2, брояч1
Работни листове (име). Активирайте
End Sub
Макросът сортира работните листове в активната работна книга по нарастващ по азбучен ред. Следващата фигура показва как изглежда примерната работна книга след стартиране на макроса:
Съвет: Ако искате да знаете как да въвеждате и стартирате макроси в Excel, ще намерите кратко описание тук: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- в-excel-ein.html
