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

Como salvar todas as planilhas apenas como valores?

Se você tiver uma pasta de trabalho que contém várias fórmulas, agora, você precisa distribuir este arquivo para outros usuários, você não deseja mostrar as fórmulas, mas apenas os valores. Normalmente, podemos salvar rapidamente uma planilha como valores, copiando e colando os dados apenas como valores. Mas, como você poderia salvar todas as planilhas como valores apenas sem copiar e colar uma por uma?

Salve todas as planilhas como valores apenas com código VBA


seta azul bolha direita Salve todas as planilhas como valores apenas com código VBA

O seguinte código VBA pode ajudá-lo a salvar rapidamente todas as planilhas como valores (sem fórmulas) e preservar toda a formatação das células. Faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: salve todas as planilhas apenas 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. Então aperte F5 chave para executar este código, e toda a pasta de trabalho foi salva apenas como valores, todas as fórmulas foram removidas de uma vez, deixando apenas valores com formatação de célula.

Nota: Antes de aplicar o código, você pode primeiro salvar uma cópia da pasta de trabalho.


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (18)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Obrigado! O código VBA funcionou maravilhosamente.
Uma coisa que notei, porém, quando tentei usá-lo em uma pasta de trabalho com Filtro em algumas células, não funcionou.
Alguma solução alternativa para este código funcionar sem desabilitar o filtro?
Este comentário foi feito pelo moderador no site
Eu tenho o mesmo problema ao usar o código VBA com filtro. Você teve solução para isso?
Este comentário foi feito pelo moderador no site
Ei, você conseguiu resolver isso? Eu tenho o mesmo problema
Este comentário foi feito pelo moderador no site
Muito bem! Resolveu muitos dos meus problemas. Muito obrigado. Cumprimentos.
Este comentário foi feito pelo moderador no site
Muito obrigado mano .. isso é incrível .. me ajudou muito.
Este comentário foi feito pelo moderador no site
Sub Salvar como valor()
'Atualizar por Extendoffice 20161025
Dim wsh como planilha
Para cada wsh em ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- obtendo Erro de tempo de execução 1004 - ALGUÉM PODE AJUDAR COM ISSO.
Seguinte
Application.CutCopyMode = False
End Sub
Este comentário foi feito pelo moderador no site
quando executo esse código, recebo o erro "obtendo o erro de tempo de execução 1004".
Para sua informação, no meu excel existem células de mesclagem.

Será útil se alguém der solução

Obrigado
Este comentário foi feito pelo moderador no site
Olá, mirna,
O código acima funciona bem na minha pasta de trabalho, qual versão do Excel você usa?
Este comentário foi feito pelo moderador no site
Isso funciona bem. obrigado.

@mirna: você precisa desproteger a planilha ou célula. VB não gosta do modo de proteção :)
Este comentário foi feito pelo moderador no site
Funcionou!! Muito bom!!!
Este comentário foi feito pelo moderador no site
Tengo ese código, si bien es cierto funciona pero quisiera que não considera algunas hojas de mi archivo excel. você pode?
Saudações.
Este comentário foi feito pelo moderador no site
Remova todos os filtros/proteção em todas as folhas. deve funcionar perfeitamente.
Este comentário foi feito pelo moderador no site
Bom! Excelente! Eu preciso disso, mas não há folhas
Este comentário foi feito pelo moderador no site
Preciso publicar demonstrações financeiras baseadas em Excel com agrupamentos. Isso funcionou para limpar todas as fórmulas e deixar apenas os números. Outros métodos que tentei limparam os agrupamentos.
Este comentário foi feito pelo moderador no site
Existe alguma maneira de desfazer isso se você esqueceu de salvar a versão da fórmula primeiro?
Este comentário foi feito pelo moderador no site
Ele funciona bem, mas eu preciso de um VBA de colar como valor para um monte de pastas de trabalho do Excel.



Este comentário foi feito pelo moderador no site
Oi,
Isso é o que estou usando (eu saio do arquivo automaticamente para não salvar acidentalmente apenas com valores).

Mas eu queria manter apenas uma folha salva "normalmente" porque eu tenho uma lista suspensa lá que eu não gostaria de perder ao compartilhar o arquivo.


Alguém pode me ajudar a fazer isso?

Obrigado!


Sub Salvar como valor()

Dim wsh como planilha
Para cada wsh em ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Seguinte
Application.CutCopyMode = False

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

Application.DisplayAlerts = False 'saída sem alertas
Aplicação.
End Sub
Este comentário foi feito pelo moderador no site
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb,ja u fdsvjkhgfkjahfg ka khdfzhjkg
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL