Como movo alguns dados de uma coluna para uma nova coluna

Question

Estou procurando uma fórmula para dividir os dados em novas colunas. Posso fazer isso de forma simples, mas quero categorizá-lo.

Ou seja, tenho uma coluna com informações de graduação para cada pessoa, como:

BS 1990; MS 1991; PHD 1992;
Next record:
BS 1999; PHD 2000

Os dados são diferentes para cada pessoa, com números variados de graus. Quero mover todos os BS para uma nova coluna, todos os MS para outra e PHD para outra. Posso dividir os dados em novas colunas, mas não nas colunas corretas, pois os dados são diferentes para cada linha.

Obrigado.

Answer 1

Com dados na colunaA, emB1digitar:

=IF(ISERROR(FIND("BS",A1)),"",MID(A1,FIND("BS",A1),7))

e copie. EmC1digitar:

=IF(ISERROR(FIND("MS",A1)),"",MID(A1,FIND("MS",A1),7))

e copie. EmD1digitar:

=IF(ISERROR(FIND("PHD",A1)),"",MID(A1,FIND("PHD",A1),8))

e copie:

Answer 2

Supondo

• VBA é aceitável,
• Office 2000 ou posterior (para função Split. Se você estiver usando uma versão anterior a 2003, informe-me para que verificarei novamente.)
• seu formato é consistente, com um separador de ponto e vírgula.

então adicione este código:

Function XLstrtok2(sStr As String, sDesiredDegree As String)
    Dim ss() As String, i As Integer
    sStr = Trim(sStr)
    If Right(sStr, 1) = ";" Then sStr = Left(sStr, Len(sStr) - 1)
    ss = Split(sStr, ";")
    For i = 0 To UBound(ss)    
        If Left(Trim(ss(i)), Len(sDesiredDegree)) = sDesiredDegree Then XLstrtok2 = Trim(ss(i)): Exit Function    
    Next    
    XLstrtok2 = "--"
End Function

E abaixo está sua planilha e as fórmulas para colocar os graus em diferentes colunas à direita da string combinada com ponto e vírgula.

Certifique-se de que suas colunas sejam largas o suficiente. Se desejar, podemos adicionar mais código na parte inferior, dizendo

With ActiveSheet.Columns("A:E")
    .AutoFit
    .HorizontalAlignment = xlLeft
End With

Copie a coluna final para a direita tanto quanto for necessário. Por exemplo, copie E1:E3 para F1:F3.

Copie a linha final o quanto for necessário. Por exemplo, copie A3:E3 para A4:E4 e digite novos dados em A4.

Obviamente, é aconselhável inserir uma linha no topo para os títulos adequados.

Diga-me se algo disso não está claro. Ou se isso é aceitável. Preste atenção à entrada de dados e à sua consistência (por exemplo, às vezes mostra PHD e outras vezes Ph.D) para determinar se colunas adicionais são necessárias, conforme mostrado abaixo para variantes de PHD.