Macro Organizar Tabela

Question

Ol&aacute; Caros,
bom dia!

Algu&eacute;m consegue me ajudar com esse problema?

A tabela abaixo sempre vem at&eacute; no m&aacute;ximo 6 integrantes... e se repetem, gostaria de organizar no formato da direita sem repeti&ccedil;&atilde;o do nome pela equipe.

Answer

Ol&aacute;, Ray.

Veja se o c&oacute;digo abaixo atende.
Antes de testar exclua as linhas 1 a 3 da sua planilha, assim os cabe&ccedil;alhos ficar&atilde;o na linha 1.

Sub RearranjaDados()
Dim k As Long, x As Long, v As Long
If [J2] &lt;&gt;  Then Range(J2:K &amp; Cells(Rows.Count, 10).End(3).Row) = 
For k = 2 To Cells(Rows.Count, 1).End(3).Row
  x = Application.CountA(Cells(k, 2).Resize(, 6))
  v = Application.CountIf([A:A], Cells(k, 1))
  Cells(Rows.Count, 10).End(3)(2).Resize(x) = Cells(k, 1)
  Cells(Rows.Count, 11).End(3)(2).Resize(x) = Application.Transpose(Cells(k, 2).Resize(, 6))
  k = k + v - 1
Next k
End Sub

Ferramentas

Mover Tópico