Como copiar fórmulas de um livro para outro sem criar uma ligação?

No Excel, poderá por vezes precisar de mover ou copiar fórmulas de um livro para outro sem que as fórmulas coladas criem uma ligação ao livro original. Esta situação surge frequentemente ao consolidar dados, partilhar modelos com outros utilizadores ou reutilizar lógica de fórmulas em ficheiros distintos. Contudo, por predefinição, copiar e colar fórmulas entre livros pode gerar referências externas indesejadas, que podem provocar erros, tornar os cálculos mais lentos ou originar falhas na ligação quando o livro de origem não está disponível. Felizmente, existem várias formas práticas de copiar fórmulas com precisão entre livros sem transportar essas ligações. Abaixo encontrará guias passo a passo adaptados a diferentes cenários e preferências, incluindo funcionalidades nativas do Excel e ferramentas úteis para automatizar ou simplificar o processo.

Copiar fórmulas de um livro para outro sem ligação, alterando as fórmulas

Para copiar fórmulas sem criar ligações indesejadas ao livro original, pode modificar temporariamente as fórmulas antes de as copiar e restaurá-las após a colagem — uma solução especialmente útil quando só ocasionalmente precisa de transferir fórmulas e pretende aproveitar as funcionalidades integradas do Excel.

1. Selecione o intervalo que contém as fórmulas que pretende copiar — por exemplo, o intervalo H1:H6. Em seguida, aceda ao separador Base, clique em Localizar e Selecionar e escolha Substituir.

Dica: Pode abrir rapidamente a caixa de diálogo Localizar e Substituir premindo simultaneamente Ctrl + H.

2. Na caixa de diálogo Localizar e Substituir, introduza um sinal de igual «=» no campo Localizar e um espaço no campo Substituir por. Clique em Substituir Tudo.

O Excel apresentará uma caixa de diálogo a indicar quantas substituições foram efetuadas. Clique em OK e feche a janela Localizar e Substituir.

3. Com o intervalo ainda selecionado, copie ()Ctrl+C) e cole-o (Ctrl+V) no seu livro de destino.

4. No livro de destino, selecione o intervalo colado. Em seguida, abra novamente a caixa de diálogo Localizar e Substituir clicando em Base > Localizar e Selecionar > Substituir ou prima Ctrl + H.

5. Na caixa de diálogo Localizar e Substituir, introduza um único espaço em Localizar e o sinal de igual “=” em Substituir por. Clique em Substituir Tudo.

6. Após a substituição, feche a janela de diálogo e a mensagem pop-up. As células coladas terão agora as mesmas fórmulas que as originais, mas sem ligações externas.

Combine facilmente várias folhas de cálculo/livros num único documento

Combinar dezenas de folhas provenientes de diferentes livros numa única folha pode ser uma tarefa tediosa. Mas, com a funcionalidade Consolidar Planilhas do Kutools para Excel, consegue concluí-lo com apenas alguns cliques!

Obtenha agora uma avaliação gratuita de 30 dias com todas as funcionalidades!

Copiar fórmulas de um livro para outro sem ligação, convertendo-as em texto

Se preferir uma abordagem mais simples e isenta de riscos, o Kutools para Excel oferece uma funcionalidade integrada para converter fórmulas em texto e revertê-las facilmente. Isso poupa tempo e evita frustrações, especialmente com fórmulas complexas ou grandes volumes de dados que poderiam ser facilmente comprometidos por substituições manuais. Ao converter fórmulas em texto, garante que o Excel não as transforme em ligações ao colá-las num novo livro; depois, pode restaurá-las como fórmulas com apenas um clique.

1. Selecione o intervalo que contém as fórmulas a copiar e, em seguida, clique em Kutools > Conteúdo > Converter Fórmulas em Texto.

2. As fórmulas selecionadas serão imediatamente apresentadas como texto. Copie essas células, mude para o livro de destino e cole os resultados no intervalo pretendido.

3. Enquanto as células coladas ainda estiverem selecionadas no livro de destino, regresse a Kutools > Conteúdo > Converter Texto em Fórmula. As células tornam-se agora novamente fórmulas ativas, livres de ligações a livros externos.

Copie fórmulas de um livro para outro sem ligação através de Cópia Exata

Outra opção eficiente é utilizar a funcionalidade Cópia Exata do Kutools para Excel. Esta ferramenta revela-se particularmente valiosa quando pretende replicar e transferir múltiplas fórmulas exatamente — incluindo formatos — para um novo livro de trabalho, sem o risco de criar ligações ou alterar referências. É uma solução ideal para folhas de cálculo sensíveis ou complexas, onde a integridade dos dados é fundamental.

1. Selecione o intervalo que contém as fórmulas que pretende copiar — por exemplo, H1:H6 — e clique em Kutools > Cópia Exata.

2. Na primeira caixa de diálogo Cópia Exata de Fórmula, clique em OK para continuar.

3. Surge uma segunda caixa de diálogo para especificar a localização no livro de destino. Mude para esse livro, clique na célula pretendida e prima OK. As fórmulas e os formatos são colados perfeitamente, sem referências externas.

Copie fórmulas de um livro para outro sem ligação através do Texto Automático

Quando reutiliza frequentemente as mesmas fórmulas em diferentes livros ou pretende guardar fórmulas importantes como atalhos pessoais, a funcionalidade Texto Automático do Kutools para Excel é especialmente útil. Esta solução permite-lhe guardar qualquer fórmula como uma entrada de Texto Automático e reutilizá-la imediatamente em sessões e livros do Excel, simplificando tarefas repetitivas e reduzindo o risco de erros associados à cópia e colagem.

1. Clique na célula que contém a fórmula que pretende reutilizar e, em seguida, selecione-a na Barra de Fórmulas.

2. No extremo esquerdo da navegação do Excel, clique em para ativar o painel Texto Automático. A seguir, vá ao grupo Fórmulas e clique em Adicionar, na parte superior, para guardar a seleção como texto automático.
       

3. Na caixa de diálogo Novo Texto Automático, atribua um nome descritivo e confirme clicando em Adicionar.

4. Da próxima vez que quiser usar essa fórmula num livro diferente, basta abrir ou mudar para o livro pretendido, selecionar a célula de destino e clicar na entrada de texto automático. A fórmula é inserida imediatamente como uma fórmula ativa — nunca como uma ligação nem como um valor estático.

Copie fórmulas de um livro para outro sem ligação utilizando uma macro VBA

Se precisar frequentemente de transferir fórmulas entre livros — especialmente em grande quantidade ou como parte de um fluxo de trabalho automatizado —, esta macro VBA copia as fórmulas convertendo temporariamente o «=» num marcador de posição para evitar ligações externas, escreve-as no destino e depois restaura-as como fórmulas ativas. Não altera as suas células de origem e não exige que mude de livro enquanto uma caixa de diálogo estiver aberta.

1. Abra simultaneamente os livros de origem e de destino. Prima Alt + F11, clique em Inserir > Módulo e cole o código abaixo:

Sub CopyFormulas_NoLinks_NoSwitch()
    Dim src As Range
    Dim rowsCnt As Long, colsCnt As Long
    Dim buf() As Variant
    Dim r As Long, c As Long
    Dim s As String, placeholder As String
    Dim wbName As String, shName As String, addr As String
    Dim tgtTL As Range, tgt As Range
    Dim oldCalc As XlCalculation

    placeholder = "#_EQUAL_#"

    On Error GoTo ExitHandler
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    oldCalc = Application.Calculation
    Application.Calculation = xlCalculationManual

    ' 1) Pick contiguous source range (any workbook)
    Set src = Application.InputBox( _
        Prompt:="Select the source range that contains formulas:", _
        Title:="Copy formulas without links", Type:=8)
    If src Is Nothing Then GoTo ExitHandler
    If src.Areas.Count > 1 Then
        MsgBox "Please select a single contiguous range.", vbExclamation
        GoTo ExitHandler
    End If

    rowsCnt = src.Rows.Count
    colsCnt = src.Columns.Count

    ' 2) Get destination info WITHOUT switching windows during a modal dialog
    wbName = Application.InputBox( _
        Prompt:="Enter DESTINATION workbook name (as shown in title bar, e.g., Book2.xlsx):", _
        Title:="Destination workbook", Type:=2)
    If wbName = "" Then GoTo ExitHandler

    shName = Application.InputBox( _
        Prompt:="Enter DESTINATION sheet name (e.g., Sheet1):", _
        Title:="Destination sheet", Type:=2)
    If shName = "" Then GoTo ExitHandler

    addr = Application.InputBox( _
        Prompt:="Enter top-left DESTINATION cell address (e.g., A1):", _
        Title:="Destination top-left cell", Type:=2)
    If addr = "" Then GoTo ExitHandler

    ' 3) Resolve destination references
    Dim wb As Workbook, ws As Worksheet
    On Error Resume Next
    Set wb = Application.Workbooks(wbName)
    On Error GoTo ExitHandler
    If wb Is Nothing Then
        MsgBox "Workbook '" & wbName & "' is not open.", vbExclamation
        GoTo ExitHandler
    End If

    On Error Resume Next
    Set ws = wb.Worksheets(shName)
    On Error GoTo ExitHandler
    If ws Is Nothing Then
        MsgBox "Worksheet '" & shName & "' not found in '" & wbName & "'.", vbExclamation
        GoTo ExitHandler
    End If

    On Error Resume Next
    Set tgtTL = ws.Range(addr)
    On Error GoTo ExitHandler
    If tgtTL Is Nothing Then
        MsgBox "Invalid address '" & addr & "'.", vbExclamation
        GoTo ExitHandler
    End If

    Set tgt = tgtTL.Resize(rowsCnt, colsCnt)

    ' 4) Build a text buffer so we never touch the source cells or use the clipboard
    ReDim buf(1 To rowsCnt, 1 To colsCnt)
    For r = 1 To rowsCnt
        For c = 1 To colsCnt
            If src.Cells(r, c).HasFormula Then
                s = src.Cells(r, c).Formula
                ' Replace only the leading "=" for speed/safety
                If Left$(s, 1) = "=" Then s = placeholder & Mid$(s, 2)
                buf(r, c) = s
            Else
                buf(r, c) = src.Cells(r, c).Value
            End If
        Next c
    Next r
    tgt.Value = buf

    ' 5) Restore placeholders to live formulas in destination
    For r = 1 To rowsCnt
        For c = 1 To colsCnt
            If VarType(tgt.Cells(r, c).Value) = vbString Then
                s = CStr(tgt.Cells(r, c).Value)
                If Left$(s, Len(placeholder)) = placeholder Then
                    s = "=" & Mid$(s, Len(placeholder) + 1)
                    tgt.Cells(r, c).Formula = s
                End If
            End If
        Next c
    Next r

    MsgBox "Formulas copied and restored successfully (no external links).", vbInformation
ExitHandler:
    On Error Resume Next
    Application.Calculation = oldCalc
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

2. Prima Alt + F8, execute CopyFormulas_NoLinks_NoSwitch. Selecione o intervalo de origem e, em seguida, introduza simplesmente o nome da pasta de trabalho de destino, o nome da folha e o endereço da célula superior — a célula mais à esquerda — sem precisar de mudar de janela durante os pedidos. A macro insere texto de marcador de posição no destino e restaura-o como fórmulas ativas (sem ligações).

Demonstração: copie fórmulas de um livro para outro sem ligação

As Melhores Ferramentas de Produtividade para o Office

🤖	KUTOOLS AI Assistente: Revolucione o Análise de Dados com base em:Execução Inteligente   |  Gerar Código|  Criar fórmulas personalizadas  |  Analisar Dados e Gerar Gráficos|  Invocar Funções Aprimoradas…
	Funcionalidades Populares:Localizar, Destacar ou Marcar Duplicatas   |  Excluir linhas em branco   |  Combinar Colunas ou Células sem Perder Dados   |   Arredondamento sem usar fórmula...
	Super PROC:VLookup com Múltiplos Critérios  |  VLookup com Múltiplos Valores  |   VLookup em Múltiplas Folhas   |   Correspondência Fuzzy....
	Lista Suspensa Avançada:Criar Rapidamente Lista de Seleção   |  Lista de Seleção Dependente   |  Lista de Seleção com Múltipla Escolha....
	Gestor de Colunas:Adicionar um Número Específico de Colunas|Mover Colunas|Alternar Estado de Visibilidade de Colunas Ocultas|Comparar Intervalos e Colunas...
	Funcionalidades em Destaque:Grade de foco   |  Visualização de Design   |Barra de fórmulas aprimorada   | Gestor de Pastas de Trabalho e Folhas   |  Biblioteca de Recursos(Texto Automático)|  Seleção de Data   |  Consolidar Planilhas  |  Encriptar/Descriptografar Células   | Enviar Emails por Lista   |  Super Filtro   |   Filtro Especial(Filtrar Células com Fonte em Negrito/itálico/rasurado...) ...
	Principais Conjuntos de Ferramentas 15:12 Ferramentasde Texto(Adicionar Texto,Excluir Caracteres Específicos, ...)|   50+Tiposde Gráfico(Gráfico de Gantt, ...)|   40+ Fórmulas Práticas(Calcular a idade com base na data de nascimento, ...)|   19 Ferramentasde Inserção(Inserir QR Code,Inserir Imagem a Partir do Caminho, ...)|   12 Ferramentasde Conversão(Converter em Palavras,Conversão de moeda, ...)|   7 Ferramentasde Mesclar e Dividir(Mesclar Linhas Avançado,Dividir Células, ...)|... e muito mais

Utilize o Kutools na sua língua preferida – suporta inglês, espanhol, alemão, francês, chinês e mais 40+ idiomas!

Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...

Mais detalhes sobre Kutools para Excel...Transferência gratuita...

---

Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil

• Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
• Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!

Mais detalhes sobre Office Tab...Transferência gratuita...

---

Todos os suplementos Kutools — num único instalador.

Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.

• Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
• Um instalador, uma licença— configuração em minutos (pronto para MSI)
• Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
• Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
• Melhor relação qualidade-preço— poupe face à compra individual dos suplementos

Mais detalhes sobre Kutools for Office...Transferência gratuita...