Note: The other languages of the website are Google-translated. Back to English

Come salvare tutti i fogli di lavoro solo come valori?

Se hai una cartella di lavoro che contiene più formule, ora devi distribuire questo file ad altri utenti, non vuoi mostrare le formule ma vengono visualizzati solo i valori. Normalmente, possiamo salvare rapidamente un foglio di lavoro come valori copiando e incollando i dati solo come valori. Ma come puoi salvare tutti i fogli di lavoro solo come valori senza copiarli e incollarli uno per uno?

Salva tutti i fogli di lavoro come valori solo con codice VBA


freccia blu freccia destra Salva tutti i fogli di lavoro come valori solo con codice VBA

Il seguente codice VBA può aiutarti a salvare rapidamente tutti i fogli come valori (senza formule) e preservare tutta la formattazione delle celle. Per favore, fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nel file Modulo Finestra.

Codice VBA: salva tutti i fogli di lavoro solo come valori:

Sub Saveasvalue()
'Updateby Extendoffice
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

3. Quindi premere F5 chiave per eseguire questo codice e l'intera cartella di lavoro è stata salvata solo come valori, tutte le formule sono state rimosse contemporaneamente, lasciando solo i valori con la formattazione della cella.

Note:: Prima di applicare il codice, puoi salvare prima una copia della cartella di lavoro.


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (18)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Grazie! Il codice VBA ha funzionato meravigliosamente.
Una cosa che ho notato però, quando ho provato a usarlo su una cartella di lavoro con Filtro su alcune celle, non funzionerà.
Qualche soluzione per far funzionare questo codice senza disabilitare il filtro?
Questo commento è stato fatto dal moderatore sul sito
Ho lo stesso problema quando utilizzo il codice VBA con filtro. Hai avuto una soluzione per questo?
Questo commento è stato fatto dal moderatore sul sito
Ehi, sei riuscito a risolvere questo problema? Ho lo stesso problema
Questo commento è stato fatto dal moderatore sul sito
Molto bene! Ha risolto molti dei miei problemi. Molte grazie. Saluti.
Questo commento è stato fatto dal moderatore sul sito
Grazie mille fratello..questo è fantastico..mi ha aiutato molto.
Questo commento è stato fatto dal moderatore sul sito
Sub Salva come valore()
'Aggiorna entro Extendoffice 20161025
Dim wsh come foglio di lavoro
Per ogni wsh in ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- ottenendo l'errore di runtime 1004 - QUALCUNO PUÒ AIUTARE SU QUESTO.
Successiva
Application.CutCopyMode = False
End Sub
Questo commento è stato fatto dal moderatore sul sito
quando eseguo quel codice, ottengo l'errore "ottengo l'errore di runtime 1004".
Cordiali saluti, nel mio excel ci sono celle di unione.

Sarà utile se qualcuno darà una soluzione

Grazie
Questo commento è stato fatto dal moderatore sul sito
Ciao, Mirna,
Il codice sopra funziona bene nella mia cartella di lavoro, quale versione di Excel usi?
Questo commento è stato fatto dal moderatore sul sito
Funziona bene. Grazie.

@mirna: devi rimuovere la protezione del foglio o della cella. A VB non piace la modalità di protezione :)
Questo commento è stato fatto dal moderatore sul sito
Funziona!! Muito Bom!!!
Questo commento è stato fatto dal moderatore sul sito
Tengo ese código, si bien es cierto funciona pero quisiera que no considere algunas hojas de mi archivo excel. se può?
Saluti.
Questo commento è stato fatto dal moderatore sul sito
Rimuovere tutti i filtri/protezioni in tutti i fogli. dovrebbe funzionare perfettamente.
Questo commento è stato fatto dal moderatore sul sito
Bene! Eccellente! Ho bisogno di questo ma non di fogli
Questo commento è stato fatto dal moderatore sul sito
Ho bisogno di pubblicare rendiconti finanziari basati su Excel con raggruppamenti. Questo ha funzionato per cancellare tutte le formule e lasciare solo i numeri. Altri metodi che ho provato hanno cancellato i raggruppamenti.
Questo commento è stato fatto dal moderatore sul sito
C'è un modo per annullare questa operazione se hai dimenticato di salvare prima la versione della formula?
Questo commento è stato fatto dal moderatore sul sito
Funziona bene ma ho bisogno di un VBA di incolla come valore per un sacco di cartelle di lavoro excels.



Questo commento è stato fatto dal moderatore sul sito
Ciao,
Questo è quello che sto usando (esco automaticamente dal file quindi non salverò accidentalmente solo con i valori).

Ma volevo mantenere solo un foglio salvato "normalmente" perché ho un elenco a discesa che non vorrei perdere durante la condivisione del file.


Qualcuno può aiutarmi a farlo?

.


Sub Saveasvalue()

Dim wsh come foglio di lavoro
Per ogni wsh in ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Successiva
Application.CutCopyMode = False

savename = Application.GetSaveAsFilename(fileFilter:="File Exel (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Nome file:=nome di salvataggio, Formato file:=51

Application.DisplayAlerts = False 'uscita senza avvisi
Application.Quit
End Sub
Questo commento è stato fatto dal moderatore sul sito
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb, ja u fdsvjkhgfkjahfg ka khdfzhjkg
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL