Como converter todas as tabelas em intervalos na planilha ativa?
No Excel, você pode usar algumas tabelas para registrar dados, mas, em alguns momentos, você deseja converter a tabela em intervalo para fazer alguma edição. Geralmente, você só pode converter uma tabela em intervalo uma vez. Será problemático se houver dezenas de tabelas em uma planilha que precisam ser convertidas em intervalos. Aqui eu tenho um código VBA que pode converter tabelas de planilhas ativas em intervalos de uma só vez.
Converta todas as tabelas em intervalos de planilha ativa com VBA
Converta todas as tabelas em intervalos de planilha ativa com VBA
1. Ative a planilha para a qual deseja converter suas tabelas e pressione Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo para criar um novo script de módulo, copie e cole o código abaixo no módulo em branco.
VBA: converter todas as tabelas da planilha ativa em intervalos
Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next
End Sub
3. Pressione F5 chave para executar o código, agora todas as tabelas da planilha atual foram convertidas em intervalos.
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!