Daudzi Excel lietotāji slēpj rindas un kolonnas, ja viņiem ir daži dati, kas viņiem nav vajadzīgi.
Tas ir veids, kā saglabāt redzamus tikai noderīgus datus, un tajā pašā laikā nav jādzēš tie dati, kuriem nav jābūt redzamiem.
Un, ja jums ir daudz šādu slēptu rindu/kolonnu, varētu būt grūti atrast un izdzēst šīs slēptās rindas un kolonnas (ja jums tās nav vajadzīgas).
Šajā apmācībā es jums parādīšu dažus vienkāršus veidus izdzēsiet slēptās rindas un kolonnas programmā Excel.
Ir iebūvēta metode, kas ļauj izdzēst visas slēptās rindas un kolonnas vienā piegājienā, kā arī varat izmantot VBA makro kodus, ja vēlaties to piemērot mūsu izvēlētajam šūnu diapazonam.
Tātad, sāksim!
Izdzēsiet visas slēptās rindas un kolonnas programmā Excel
Ja vēlaties izdzēst visas slēptās rindas un kolonnas visā darbgrāmatā programmā Excel, varat izmantot šeit parādīto metodi.
Atcerieties, ka šīs slēptās rindas un kolonnas tiks noņemtas no visas darbgrāmatas, nevis tikai no aktīvās lapas.
Tālāk ir norādītas darbības, kā izdzēst visas slēptās rindas un kolonnas no darbgrāmatas programmā Excel:
- Noklikšķiniet uz opcijas Fails
- Kreisajā pusē esošajās opcijās noklikšķiniet uz “Informācija”
- Noklikšķiniet uz opcijas “Pārbaudīt problēmas”
- Noklikšķiniet uz opcijas "Pārbaudīt dokumentu". Tiks atvērts dialoglodziņš Dokumentu inspektors
- Dialoglodziņā “Dokumentu inspektors” noklikšķiniet uz pogas “Pārbaudīt”. Tādējādi tiks pārbaudīta visa darbgrāmata un sniegta informācija par darbgrāmatu
- Ritiniet uz leju līdz opcijai “Slēptās rindas un kolonnas”. Jūs redzēsit, ka tas parāda kopējo slēpto rindu un kolonnu skaitu, ko tā ir atradusi darbgrāmatā.
- Noklikšķiniet uz pogas “Noņemt visu”
Iepriekš minētās darbības izdzēsīs visas slēptās rindas un kolonnas darbgrāmatā.
Ņemiet vērā, ka šī darbgrāmata ir jāsaglabā, pirms palaižat opciju Dokumentu inspektors. Ja darbgrāmata vēl nav saglabāta, programma Excel vispirms piespiež to saglabāt. Tas arī parādīs brīdinājuma uzvedni, kurā tiek lūgts vienreiz saglabāt failu, jo ar šīm darbībām izmainītos datus nevar atgūt.
Ja nav slēptu rindu un kolonnu, pirms opcijas Slēptās un rindas un kolonnas (dialoglodziņā Dokumentu inspektors) redzēsit zaļu atzīmi.
Dialoglodziņā Dokumentu inspektors bez slēptām rindām un kolonnām tiek sniegta arī daudz citas noderīgas informācijas - piemēram, komentāru skaits, slēptās darblapas vai iegultie dokumenti utt.
Piezīme. Dokumentu inspektora veiktās izmaiņas nevar atsaukt. Tāpēc pārliecinieties, vai jums ir oriģinālo datu rezerves kopija (ja jums tas varētu būt vajadzīgs nākotnē)Šī ir lieliska metode, ja vēlaties izdzēst visas slēptās kolonnas un rindas visai darbgrāmatai.
Bet, ja vēlaties to izdzēst tikai noteiktā lapā vai noteiktā diapazonā, tad šo iespēju nevar izmantot.
Tādā gadījumā varat izmantot nākamo VBA metodi.
Izdzēsiet slēptās rindas un kolonnas, izmantojot VBA
Ja jums ir tikai dažas slēptas rindas un kolonnas, varat tās manuāli parādīt un pēc tam izdzēst.
Bet, ja tas ir jādara diezgan bieži vai ja jums ir liela datu kopa ar lielu skaitu slēptu rindu/kolonnu, šī procesa automatizēšanai vislabāk ir izmantot VBA makro kodus.
Apskatīsim dažādus scenārijus, kuros varat izmantot VBA, lai izdzēstu šīs slēptās rindas un kolonnas.
No visas darblapas (lietots diapazons)
Lai gan es varu likt VBA kodam pārbaudīt visu darblapu, sākot no pēdējās rindas numura un pēdējās kolonnas numura darblapā, tas būtu resursu izšķiešana.
Labāka metode būtu redzēt izmantoto diapazonu un pēc tam pārbaudīt tikai izmantoto diapazonu visām slēptām rindām un kolonnām.
Zemāk ir VBA kods, kas izdzēstu visas slēptās rindas izmantotajā diapazonā:
Sub DeleteHiddenRows () Dim sht kā darblapa Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count). Pēc tam rindas (i). Visa rinda. Dzēst nākamo beigu apakšdaļu
Iepriekš minētais VBA kods vispirms noskaidro pēdējā rindas numuru izmantotajā diapazonā un piešķir šo rindas numuru mainīgajam “LastRow”.
Šis pēdējās rindas numurs tiek izmantots cilnē For Next, kur tas sākas no pēdējās rindas un pārbauda, vai tas ir paslēpts.
Ja tā ir paslēpta, visa rinda tiek izdzēsta. Un, ja tas nav slēpts, kods atstāj šo rindu tādu, kāda tā ir, un pāriet uz rindu virs tās. Šī cilpa pārbauda visas rindas un dzēš visas slēptās rindas, ar kurām tā saskaras šajā procesā.
Ja vēlaties izdzēst visas slēptās kolonnas izmantotajā diapazonā, izmantojiet tālāk norādīto VBA kodu.
Sub DeleteHiddenColumns () Dim sht kā darblapa Dim LastCol kā Integer Set = True Tad kolonnas (i). Visa kolonna. Dzēst nākamo beigu apakšdaļu
Tas atkal darbojas tāpat, kad rindu vietā mēs pārbaudām kolonnas.
Tātad tas uzzina pēdējā kolonnas numuru izmantotajā diapazonā, piešķir to mainīgajam un pēc tam izmanto cilpu, lai pārietu no pēdējās kolonnas uz pirmo kolonnu un dzēstu visas slēptās kolonnas procesā.
Un, ja vēlaties iegūt kodu, kas izdzēstu visas slēptās rindas, kā arī slēptās kolonnas, izmantojiet tālāk norādīto VBA kodu.
Sub DeleteHiddenRowsColumns () Dim sht kā darblapa Dim LastRow kā vesels skaitlis Dim LastCol kā vesels skaitlis Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row LastCol = sht.UsedRange.Columns (sht.UsedRange. Column.Count). Kolonna i = LastRow To 1 Step -1 Ja rindas (i). Slēpts = True, tad rindas (i) .EntireRow.Delete Next For i = LastCol To 1 Step -1 If Column (i). = True Tad kolonnas (i). Visa kolonna. Dzēst nākamo beigu apakšdaļu
Šis ir tikai kombinētais kods gan rindām, gan kolonnām, un tas darbojas vienādi.
Vienas cilpas vietā tiek izmantotas divas atsevišķas cilpas, kur tas vispirms iet cauri visām rindām un pēc tam iet cauri visām kolonnām. Un šajā procesā tas izdzēš visas slēptās rindas un kolonnas, ar kurām tas saskaras.
Ņemiet vērā, ka šis VBA kods jāievieto parastajā Visual Basic redaktora modulī. Pēc tam kodu var palaist tieši no VB redaktora, izmantojot makro dialoglodziņu vai pievienojot šo makro ātrās piekļuves rīkjoslai.
Ja tas ir jādara diezgan bieži, varat arī pievienot šo kodu personiskajai makro darbgrāmatai, lai jums būtu piekļuve tam no visām sistēmas darbgrāmatām.
No īpaša šūnu diapazona
Ja jums ir noteikts diapazons, no kura vēlaties noņemt slēptās rindas un kolonnas, tas ir jānorāda koda ietvaros.
Tas nodrošina, ka kods riņķo tikai pa norādītā diapazona rindām un kolonnām un atstāj neskartus pārējos darblapas apgabalus
Zem VBA koda, kas to darītu:
Sub DeleteHiddenRowsColumns () Dim sht kā darblapa Dim Rng kā diapazons Dim LastRow kā vesels skaitlis Dim RowCount kā vesels skaitlis Set sht = ActiveSheet Set Rng = Diapazons ("A1: K200") RowCount = Rng.Rows.Count LastRow = Rng.Rows (Rng. Rows.Count). Rinda ColCount = Rng.Columns.Count LastCol = Rng.Columns (Rng.Columns.Count). Kolonna i = LastRow To LastRow - RowCount 1. darbība Ja rindas (i). Slēpts = True Then Rows ( i) .EntireRow.Delete Next Attiecībā uz j = LastCol uz LastCol - ColCount Solis -1 Ja kolonnas (j). Slēpts = True, tad kolonnas (j) .EntireColumn.Delete Next End Sub
Iepriekš minētajā kodā diapazons ir norādīts kā A1: K200.
Tādējādi kods iet cauri visām norādītā diapazona rindām un kolonnām un noņem visas slēptās rindas un kolonnas, ar kurām tas saskaras.
Ja jums ir paslēptas rindas vai kolonnas ārpus šī diapazona, tās netiks mainītas.
Tātad jūs varat dzēst šādi slēptās rindas un kolonnas programmā Excel.
Ja vēlaties to darīt visā darbgrāmatā, varat izmantot opciju Dokumentu inspektors. Un, ja jums nepieciešama lielāka kontrole, varat izmantot VBA kodus, kā parādīts iepriekš.
Es ceru, ka šī apmācība jums šķita noderīga!
