Cum se sortează foile după o valoare a celulei în Excel?
Când folosim un fișier Excel, sortăm întotdeauna foile de lucru în funcție de alfabet, numere sau culori ale filelor, dar ați încercat vreodată să sortați filele foii după o anumită valoare a celulei?
Presupunând că aveți un registru de lucru cu zeci de foi de lucru, în fiecare foaie de lucru, celula A1 are o valoare specifică, iar acum trebuie să sortați toate foile de lucru din acest registru de lucru pe baza valorii celulei A1 din fiecare foaie de lucru ascendent. Cu acest articol, veți obține soluția.
Sortați toate foile de lucru pe baza unei valori de celulă cu codul VBA
Sortați toate foile de lucru pe baza unei valori de celulă cu codul VBA
Pentru a sorta toate foile de lucru pe baza unei valori de celulă în Excel, nu există o cale directă pentru noi, dar următorul cod VBA vă poate face o favoare.
1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: Sortează toate foile pe baza unei valori de celulă
Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
For j = i To Application.Worksheets.Count
If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
Application.Worksheets(j).Move Before:=Application.Worksheets(i)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. După lipirea codului, apoi apăsați F5 tasta pentru a rula acest cod și se va afișa o casetă de prompt pentru a vă reaminti să selectați o celulă pe care doriți să sortați foile pe baza, vedeți captura de ecran:
4. Și acum, puteți vedea că toate foile de lucru au fost sortate în funcție de valoarea textului celulei A1 din fiecare foaie de lucru ascendent.
note:
1. Dacă există atât numere cât și șiruri de text în celulele selectate, foile conțin numere vor fi sortate înainte de foile de șiruri de text.
2. Dacă este gol în una din celulele A1, foaia de lucru relativă va fi sortată în partea din față a tuturor foilor.
Legate de articole:
Cum se sortează foile de lucru în ordine alfabetică / alfanumerică în Excel?
Cum se sortează filele foii de lucru după culoare în Excel?
Cum se inversează ordinea filelor foii de lucru?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!