Separando nomes no Excel

Question

Eu tenho uma lista de 60K nomes. Eu preciso separá-los em planilhas diferentes com base em seu comprimento.

Eu tenho feito isso usando o modo normal usando a fórmula len (), filtre-os e copie-os para uma folha separada.

Existe algum código VBA que eu possa usar para fazer isso?

Lista de exemplos

Name     Length
EMMALINE    8
EMMIE       5
EMMER       5
AMMIE       5
EMMY        4
AMMA        4
EMMELINE    8
EMMALEE     7
EMMALOU     7

    

Answer 1

Esta é apenas uma abordagem de amostra. Primeiro nomeie as folhas de destino da seguinte forma:

Emseguida,executeestamacro:

Subcroupier()DimNAsLong,iAsLong,sAsString,MAsLongSheets("Sheet1").Select
    N = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To N
        v = Cells(i, 1).Value
        s = "s" & Len(v)
        With Sheets(s)
            M = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Cells(M, 1) = v
        End With
    Next i
End Sub