Seleziona tutte le righe nascoste da eliminare.
Premi Ctrl + 9.
Vai al comando speciale
Seleziona qualsiasi cella all'interno dell'intervallo contenente righe nascoste.
Dal menu Home, seleziona Trova e seleziona> Vai a speciale.
Seleziona l'opzione Spazi vuoti.
Selezionare OK.
Fare clic con il tasto destro.
Su una qualsiasi delle righe selezionate, fare clic con il pulsante destro del mouse e scegliere Elimina dal menu contestuale.
Rimuovi intere righe nascoste utilizzando la finestra di dialogo Trova e sostituisci
Seleziona qualsiasi cella contenente righe nascoste.
Premi la scorciatoia Ctrl + H per avviare la finestra di dialogo Trova e sostituisci.
Fare clic sul pulsante Opzioni>> e verificare se il menu a discesa Cerca in mostra Intera cartella di lavoro. In caso contrario, selezionalo.
Digita ^~ nella casella di testo Trova.
Lascia vuota la casella di testo Sostituisci con.
Fare clic su Trova tutto.
Seleziona tutto.
Fare clic sul pulsante Sostituisci tutto.
Metodo UDF per eliminare le righe nascoste
Seleziona una cella qualsiasi.
Nella scheda Formule selezionare Definisci nome.
Immettere Elimina_Righe nella casella di testo Nome.
Nella casella di testo Riferito a digitare la formula seguente.
`Funzione pubblica Delete_Rows() As Boolean Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets Se non ws.Visible Then Application.DisplayAlerts =False ws.Visible =True ws.Delete 'Application.DisplayAlerts =True ElseIf ws.Visible =xlSheetVisible Quindi Next ws Delete_Rows =True End Function`
Fare clic su OK.
Seleziona le righe visibili che non contengono righe nascoste e fai clic su F5 per visualizzare la finestra di dialogo Vai a.
Dall'elenco a discesa Speciale, seleziona l'opzione Formule e fai clic su OK.
Premi Ctrl+C.
Seleziona una cella qualsiasi.
Premi Ctrl + H per avviare la finestra di dialogo Trova e sostituisci.
Fare clic sul pulsante Opzioni>>.
Selezionare Per valori dall'elenco a discesa Cerca.
Fare clic su OK.
Fare clic con il tasto destro sulla cella attiva e selezionare Incolla speciale dal menu contestuale.
In Incolla scegli Formule.
Fare clic su OK.
Fare clic sul pulsante Sostituisci tutto.
Salva la cartella di lavoro con un nome file diverso per conservare un backup.
Domanda © www.354353.com