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

¿Cómo guardar todas las hojas de trabajo solo como valores?

Si tiene un libro de trabajo que contiene varias fórmulas, ahora necesita distribuir este archivo a otros usuarios, no desea mostrar las fórmulas, solo se muestran los valores. Normalmente, podemos guardar rápidamente una hoja de trabajo como valores copiando y pegando los datos solo como valores. Pero, ¿cómo podría guardar todas las hojas de trabajo como valores solo sin copiar y pegar una por una?

Guarde todas las hojas de trabajo como valores solo con código VBA


flecha azul burbuja derecha Guarde todas las hojas de trabajo como valores solo con código VBA

El siguiente código VBA puede ayudarlo a guardar rápidamente todas las hojas como valores (sin fórmulas) y conservar todo el formato de celda. Por favor haz lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: guarde todas las hojas de trabajo solo como valores:

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. Entonces presione F5 para ejecutar este código, y todo el libro de trabajo se ha guardado solo como valores, todas las fórmulas se han eliminado a la vez, solo dejan valores con formato de celda.

Nota:: Antes de aplicar el código, primero puede guardar una copia del libro.


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (18)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¡Gracias! El código VBA funcionó maravillosamente.
Sin embargo, noté una cosa, cuando traté de usarlo en un libro de trabajo con Filtro en algunas celdas, no funcionó.
¿Alguna solución para que este código funcione sin deshabilitar el filtro?
Este comentario fue minimizado por el moderador en el sitio
Tengo el mismo problema cuando uso código VBA con filtro. ¿Has tenido solución para eso?
Este comentario fue minimizado por el moderador en el sitio
Oye, ¿pudiste arreglar esto? Tengo el mismo problema
Este comentario fue minimizado por el moderador en el sitio
¡Muy bien! Ha solucionado muchos de mis problemas. Muchas gracias. Saludos.
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias hermano... esto es increíble... me ayudó mucho.
Este comentario fue minimizado por el moderador en el sitio
Sub Guardar como valor ()
'Actualizar por Extendoffice 20161025
Dim wsh como hoja de trabajo
Para cada wsh en ThisWorkbook.Worksheets
wsh.Cells.Copiar
wsh.Cells.PasteSpecial xlPasteValues: obtener el error de tiempo de ejecución 1004: ALGUIEN PUEDE AYUDAR EN ESTO.
Siguiente
Application.CutCopyMode = False
End Sub
Este comentario fue minimizado por el moderador en el sitio
cuando ejecuto ese código, aparece el error "obteniendo el error de tiempo de ejecución 1004".
FYI, en mi Excel hay celdas de combinación.

Sería útil si alguien da la solución.

Gracias
Este comentario fue minimizado por el moderador en el sitio
Hola mirna,
El código anterior funciona bien en mi libro de trabajo, ¿qué versión de Excel usas?
Este comentario fue minimizado por el moderador en el sitio
Funciona bien. Gracias.

@mirna: necesitas desproteger la hoja o la celda. A VB no le gusta el modo de protección :)
Este comentario fue minimizado por el moderador en el sitio
¡¡Funciono!! Muito Bom!!!
Este comentario fue minimizado por el moderador en el sitio
Tengo ese código, si bien es cierto funciona pero quisiera que no considere algunas hojas de mi archivo excel. se puede ?
Saludos.
Este comentario fue minimizado por el moderador en el sitio
Retire todos los filtros/protección en todas las hojas. debería funcionar perfectamente.
Este comentario fue minimizado por el moderador en el sitio
¡Bueno! ¡Excelente! Necesito esto pero no hay sábanas.
Este comentario fue minimizado por el moderador en el sitio
Necesito publicar estados financieros basados ​​en Excel con agrupaciones. Esto funcionó para borrar todas las fórmulas y dejar solo los números. Otros métodos que probé borraron las agrupaciones.
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna forma de deshacer esto si olvidó guardar primero la versión de la fórmula?
Este comentario fue minimizado por el moderador en el sitio
Funciona bien, pero necesito un VBA de pasta como valor para un montón de libros de Excel.



Este comentario fue minimizado por el moderador en el sitio
Hola,
Esto es lo que estoy usando (salgo del archivo automáticamente para no guardarlo accidentalmente solo con valores).

Pero quería mantener solo una hoja guardada "normalmente" porque tengo una lista desplegable allí que no me gustaría perder al compartir el archivo.


¿Alguien puede ayudarme a hacer esto?

¡Gracias!


Sub Guardar como valor ()

Dim wsh como hoja de trabajo
Para cada wsh en ThisWorkbook.Worksheets
wsh.Cells.Copiar
wsh.Cells.PasteSpecial xlPasteValues
Siguiente
Application.CutCopyMode = False

savename = Application.GetSaveAsFilename(fileFilter:="Exel Files (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Filename:=guardar nombre, FileFormat:=51

Application.DisplayAlerts = False 'salir sin alertas
Aplicación.Quit
End Sub
Este comentario fue minimizado por el moderador en el sitio
Sämst shjkjhgasghjdfsjhkfdgsdjhgafgb,ja u fdsvjkhgfkjahfg ka khdfzhjkg
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL