글이 길어져서 죄송하지만 최대한 많은 정보를 담고 싶었습니다. 온라인에서 일부 정보를 찾을 수 있었지만 변경하는 데 도움이 필요합니다. 다음은 결합해야 하는 데이터의 예입니다.
이 테이블을 결합해야 합니다.
| 1 부 | 2 부 | 가득한 | 보고서 | HRO 열차 | 시간 관리자 | 참석자 | 예정됨 | 고객 이름 | 클라이언트 ID | 클라이언트 마이그레이션 프로그램 | 감독자 |
|---|---|---|---|---|---|---|---|---|---|---|---|
| 21/1/7 | 21/1/7 | 21/1/7 | 제인 도 | 2021년 2월 2일 | 제인 도우 Inc | 123456789 | 사라 | 수잔 | |||
| 21/1/8 | 21/1/8 | 21/1/8 | 제인 도 | 2021년 2월 2일 | 제인 도우 Inc | 123456789 | 사라 | 수잔 | |||
| 21/1/7 | 21/1/7 | 21/1/7 | 존 디 | 21/3/1 | 존 디 | 321654987 | 래리 | 단발 | |||
| 21/1/8 | 21/1/8 | 21/1/8 | 존 디 | 21/3/1 | 존 디 | 321654987 | 래리 | 단발 |
이 테이블에:
| 1 부 | 2 부 | 가득한 | 보고서 | HRO 열차 | 시간 관리자 | 참석자 | 예정됨 | 고객 이름 | 클라이언트 ID | 클라이언트 마이그레이션 프로그램 | 감독자 |
|---|---|---|---|---|---|---|---|---|---|---|---|
| 21/1/7 | 21/1/7 | 21/1/8 | 21/1/8 | 21/1/7 | 21/1/8 | 제인 도 | 2021년 2월 2일 | 제인 도우 Inc | 123456789 | 사라 | 수잔 |
| 2021년 1월 7일, 21년 1월 8일 | 2021년 1월 7일, 21년 1월 8일 | 21/1/7 | 21/1/8 | 존 디 | 21/3/1 | 존 디 | 321654987 | 래리 | 단발 |
나는 찾았다이 스레드이러한 유형의 결합을 수행하는 VBA를 만드는 방법에 대해 설명했지만 내 데이터가 약간 다르며 이를 실현하기 위해 코드를 변경하는 방법을 잘 모르겠습니다. 아래 코드를 복사하여 붙여넣겠습니다.
'Dim 2 search cells
Dim BlankCell As Range
Dim IdCell As Range
'Find Last row and column
Dim lRow As Long
lRow = Range("A1").End(xlDown).Row
Dim lColumn As Long
lColumn = Range("A1").End(xlToRight).Column
'Set the area to consider
Dim Rng As Range
Set Rng = Range(Cells(1, 1), Cells(lRow, lColumn))
'Select each blank cell in area
Rng.Select
Selection.SpecialCells(xlCellTypeBlanks).Select
'And replace it with appropriate value
For Each BlankCell In Selection
For Each IdCell In Range(Cells(1, 1), Cells(lRow, 1))
If (IdCell.Value = Cells(BlankCell.Row, 1).Value And Cells(IdCell.Row, BlankCell.Column) <> "") Then
BlankCell = Cells(IdCell.Row, BlankCell.Column).Value
End If
Next IdCell
Next BlankCell
'Then erase duplicate lines
Rng.Select
ActiveSheet.Range(Cells(1, 1), Cells(lRow, lColumn)).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6), _
Header:=xlYes
이 VBA를 사용하면 A열을 일치시킬 식별자로 사용하여 행을 통합합니다. 그러나 열 G를 식별자로 일치시키려면 VBA가 필요하며 열을 변경하려면 어디를 편집해야 할지 잘 모르겠습니다. 그리고 모든 날짜를 ";"로 결합해야 하는 상황에서는 구분자, 이 VBA가 해당 상황을 해결하지 못하는 것 같습니다. 이를 성공적으로 수행하려면 무엇을 더 추가해야 합니까? 매우 감사합니다!