열에서 다른 행 아래에 셀을 쓰는 방법은 무엇입니까?

Question

이름, 회사, 전화번호, 주소, 이메일 목록이 있습니다. 하지만 같은 회사에 근무하는 이름은 모두 같은 감방에 있습니다. 물론, 해당 이름의 전화번호, 주소 등 기타 정보는 동일합니다.

각 이름을 다른 이름 아래에 쓰고 싶지만 정보 측면 셀을 작성해야 합니다. 사실, 내 목록이 너무 길어서 오늘은 끝낼 수가 없어요. 어떻게 해야할지 모르겠습니다.

Answer 1

저는 지금 Excel이 설치된 Windows 컴퓨터 앞에 있지 않지만 이 코드는 새 워크시트를 만들고 데이터를 새 시트에 복사하여 이름을 별도의 행으로 분할해야 한다고 생각합니다.

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

이를 위해 파워 쿼리 추가 기능을 사용하겠습니다. Excel 테이블에서 쿼리를 시작할 수 있습니다.

분할 명령은 구분 기호(예: 쉼표)를 기준으로 열을 분할하는 데 사용할 수 있습니다. 그런 다음 Unpivot 명령을 사용하여 여러 열을 단일 열이 있는 여러 행으로 변환합니다.