To sortere alle regneark basert på en celleverdi i Excel, er det ingen direkte måte for oss, men følgende VBA-kode kan gjøre deg en tjeneste.
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Sorter alle ark basert på en celleverdi
Sub SortWksByCell () 'Oppdater 20141127Dim WorkRng Som RangeDim WorkAddress Som StringOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ( "Range (Enkeltrom)", xTitleId, WorkRng.Address, Type: = 8) WorkAddress = WorkRng.AddressApplication.ScreenUpdating = FalseFor i = 1 å Application.Worksheets.Count For j = i For å Application.Worksheets.Count Hvis VBA.UCase (Application.Worksheets (j) .Range (WorkAddress)) < VBA.UCase (Application.Worksheets (i) .Range (WorkAddress)) Deretter Application.Worksheets (j) .Kjør Før: = Application.Worksheets (i) End If NextNextApplication.ScreenUpdating = TrueEnd Sub3. Når du har limt inn koden, og trykk deretter F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg velge en celle som du vil sortere arkene basert på, se skjermbilde:
4. Og nå kan du se alle regnearkene er sortert i henhold til teksten verdien i celle A1 i hvert regneark ascendingly
. Merk:
1. Hvis det er både tall og tekststrenger i de valgte cellene inneholder arkene tallene vil bli sortert før tekststrenger ark.
2. Hvis det er tomt i en av cellen A1, vil den relative arket bli sortert i fronten av alle ark.