Gostaria de sugerir dois métodos possíveis. Um é não programação & A segunda é a programação (macro VBA).
Método de não programação:
- Abra as duas pastas de trabalho.
- Copie uma célula da pasta de trabalho original Folha , (de onde você deseja copiar o Formatação Condicional) para uma posição não utilizada na planilha de trabalho de destino .
- Abra a opção Gerenciar regras de Formatação condicional .
- Selecione Mostrar regras de formatação para este Planilha.
- Para cada regra, ajuste a correspondência Aplica-se a o intervalo que você precisa.
- Clique no botão Intervalo à direita do Aplica-se a.
- Clique e arraste e selecione na célula superior esquerda para a célula inferior direita.
- Clique no botão Intervalo para retornar ao Gerenciador de regras condicionais.
- Clique em OK ou Aplicar para obter o resultado.
Método de programação:
-
No arquivo de origem, pressione
Alt+F11
para abra o editor do VB. -
Copiar & cole este código como padrão módulo.
Sub CopyFormat() Application.DisplayAlerts = False Dim wbSource As Workbook Set wbSource = Workbooks.Open(Filename:="source.xlsm", UpdateLinks:=3) wbSource.Sheets(1).Range("A1:H100").Copy Selection.PasteSpecial _ Paste:=xlPasteValues Selection.PasteSpecial _ xlPasteFormats wbSource.Close Application.DisplayAlerts = True End Sub
Nota:
- Você pode editar o Worbook & Nome da folha como por sua necessidade.
- Ajustar referências de célula para o Copiado Faixa conforme necessário.