Agrupamento Automático de Dados com VBA

API para Selecionar Pastas
API para Selecionar Pastas
12 de março de 2011
Seleção de arquivos, pastas e salvar arquivos com o FileDialog VBA
Seleção de arquivos, pastas e salvar arquivos com o FileDialog VBA
17 de março de 2011

Objetivo: Demonstrar a utilização de um código VBA para o agrupamento automático de dados.

O procedimento de agrupamento de dados do Excel é uma ferramenta excelente para organização e apresentação de dados.

Só que esta função somente permite que você faça agrupamentos manuais, de forma que inviabiliza o agrupamento de uma lista muito extensa sem utilizar a função do Excel de subtotais.

Neste código VBA ele faz o mesmo agrupamento, só que sem criar os resumos dos subtotais, e também pode ser configurado o nome do agrupamento.

Sub lsAgruparDados()
    On Error Resume Next

    Dim lUltimaLinhaAtiva   As Long
    Dim lContador           As Long
    Dim lConteudo           As Long
    Dim lInicio             As Long
    Dim lFinal              As Long

    lUltimaLinhaAtiva = Worksheets("Plan1").Cells(Worksheets("Plan1").Rows.Count, 1).End(xlUp).Row
    lContador = 2
    lInicio = 2

    While lContador <= lUltimaLinhaAtiva
        If Cells(lContador, 1).Value  Cells(lInicio, 1).Value Then
            Range("A" & lContador).Rows.EntireRow.Insert
            Range("A" & lContador).Value = "Grupo " & Cells(lContador - 1, 1).Value
            Range("A" & CStr(lInicio) & ":A" & CStr(lContador - 1)).Rows.Group
            lInicio = lContador + 1
        End If

        If lUltimaLinhaAtiva = lContador Then
            lFinal = Worksheets("Plan1").Cells(Worksheets("Plan1").Rows.Count, 1).End(xlUp).Row
            Range("A" & lFinal + 1).Value = "Grupo " & Cells(lFinal - 1, 1).Value
            Range("A" & CStr(lInicio) & ":A" & CStr(lFinal)).Rows.Group
        End If

        lContador = lContador + 1
    Wend
End Sub

Abraço

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

1 Comentário

  1. Olá, Marcos!
    Para fazer um pivot table a partir de várias planilhas com pelo menos vários campos para adicionar ao relatório de 5 a 7 tabelas exemplo; abandono, erro máximo, retenção de ligações, retenções de serviços, transferências etc. Alguma idéia?

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.