Como escrever as células em linhas uma sob a outra em colunas?

Question

Eu tenho uma lista de nome, empresa, número de telefone, endereço e e-mail. Mas cada nome que trabalha na mesma empresa está na mesma célula. Naturalmente, as outras informações desses nomes, como número de telefone, endereço, etc., são as mesmas.

Eu quero escrever cada nome sob o outro, mas eu tenho que escrever sua célula lateral de informações dele. Na verdade, minha lista é muito longa e não posso terminar hoje. Não sei como fazer.

    

Answer 1

Não estou na frente de um computador Windows com Excel agora, mas acredito que esse código deve criar uma nova planilha e copiar os dados para a nova planilha, dividindo os nomes em linhas separadas.

Sub CopyRowsAndSplitNames
  Dim srcSheet As Excel.Worksheet
  Set srcSheet = Excel.Application.Sheets("Sheet1") ' Change this to whatever your worksheet is called

  Dim dstSheet As Excel.Worksheet
  Set dstSheet = Excel.Application.Sheets.Add()

  srcSheet.Rows(1).Copy dstSheet.Rows(1)

  Dim dstRow as Integer
  dstRow = 1

  Dim strName As String
  Dim strNames As String()
  Dim srcRow as Integer
  For srcRow = 2 to srcSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    strNames = Split(srcSheet.Cells(row, 3).Value, ",")
    For Each strName in strNames
      dstRow = dstRow + 1
      srcSheet.Row(srcRow).Copy dstSheet.Row(dstRow)
      dstSheet.Cells(dstRow, 3).value = strName
    Next
  Next
End Sub

    

Answer 2

Eu usaria o suplemento de consulta de energia para isso. Você pode iniciar uma consulta a partir de uma tabela do Excel.

O comando Split pode ser usado para dividir uma coluna com base em um delimitador (por exemplo, Comma). Então eu usaria o comando Unpivot para transformar essas múltiplas colunas em múltiplas linhas com uma única coluna.