Como copiar uma planilha oculta no Excel?
No Excel, podemos mover e copiar uma planilha para a pasta de trabalho atual ou outra de forma rápida e fácil, mas você já tentou copiar uma planilha oculta para a pasta de trabalho ativa? Neste artigo, apresentarei um código VBA para você copiar uma planilha oculta específica para um arquivo Excel ativo.
Copie uma planilha oculta para a pasta de trabalho ativa com o código VBA
Copie uma planilha oculta para a pasta de trabalho ativa com o código VBA
Para copiar uma planilha oculta de uma pasta de trabalho e dar um nome a ela, o seguinte código VBA pode lhe fazer um favor:
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: copie uma planilha oculta para a pasta de trabalho ativa:
Sub DupSheet()
'Updateby Extendoffice 20161109
Dim Actsheet As String
Application.ScreenUpdating = False
On Error Resume Next
ActiveWorkbook.Sheets("Sheet12").Visible = True
ActiveWorkbook.Sheets("Sheet12").Copy _
after:=ActiveWorkbook.Sheets("Sheet12")
ActNm = ActiveSheet.Name
ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
Sheets(ActiveSheet.Name).Visible = True
ActiveWorkbook.Sheets("Sheet12").Visible = False
Application.ScreenUpdating = True
End Sub
Note: No código acima, Folha 12 é a planilha oculta que você deseja copiar, altere-a de acordo com sua necessidade.
3. E, em seguida, pressione F5 para executar este código, uma caixa de prompt aparecerá para lembrá-lo de especificar um nome para a nova cópia da planilha oculta, veja a captura de tela:
4. Então clique OK botão, e a planilha oculta foi copiada com o novo nome na pasta de trabalho ativa de uma só vez.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!