오빠두엑셀 "엑셀 달력 자동화, 이제 CALENDAR 함수로 해결하세요" 에 일정 나열 질문

@이안송 님 감사합니다

@이안송 님 대단하시네요

@이안송 님 안녕하세요. 오빠두엑셀 전진권 강사입니다.

공식의 VLOOKUP 함수 대신, FILTER(필터) + MMULT(2차원 배열 계산) + TEXTJOIN 함수를 활용하면 여러개로 나뉘어 입력된 날짜의 일정을 하나로 취합할 수 있습니다. 이 공식은 CALENDAR 함수에 적용되어 있는데요, 강의로는 다뤄야 할 내용이 너무 방대하여 영상으로는 제작하지 못하였습니다. 만약 필요하시면, CALENDAR 함수에서 체크해드린 부분을 채용하셔서, 공식에 활용해보시길 바랍니다.

실무에서 여러 사람과 파일을 공유해야 할 경우를 고려하면, 공식을 최대한 간소화하여 작성하는 것이 좋습니다.

그럴 경우, UNIQUE 함수로 날짜 범위를 만든 후, 각 날짜의 일정을 IF+TEXTJOIN 공식(링크 참조)로 합친 보조 범위를 만듭니다. 이후 보조 범위에 VLOOKUP 함수를 적용할 수 있습니다.

엑셀 특정 조건 만족하는 텍스트 합치기 :: 함수 공식 - 오빠두엑셀 (oppadu.com)

또는 원본 데이터에 ALT + ENTER로 줄바꿈을 추가하여, 여러 일정을 한 셀에 작성하는 것도 좋은 대안책이 될 수 있습니다.

남겨드린 답변이 문제를 해결하시는데 도움이 되었길 바랍니다. 감사합니다.

@이안송 님 일정 시트에 아래 코드를 넣어보세요.

새 일정을 넣었을 때 위에 같은 날짜가 있으면 윗 일정에 새로운 일정을 줄바꿈 해서 넣게 했습니다.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
Dim BColumn As Range
Dim CColumn As Range
Dim LastRow As Long
Dim Cell As Range
Dim FoundCell As Range

Set BColumn = Range("B1:B" & WorksheetFunction.CountA(Range("B:B")) - 1)
Set CColumn = Range("C:C")
LastRow = Cells(Rows.Count, "B").End(xlUp).Row ' B열의 마지막 행 찾기

' 변화가 발생한 셀이 B열인지 확인
If Not Intersect(Target, CColumn) Is Nothing Then
Application.EnableEvents = False ' 이벤트 루프 방지

For Each Cell In Target
' B열에서 동일한 값을 찾음
Set FoundCell = BColumn.Find(Cell.Offset(0, -1).Value, LookIn:=xlValues)

' 찾은 경우 C열에 값을 추가하고, 새로운 값은 삭제
If Not FoundCell Is Nothing Then
If Not IsEmpty(FoundCell.Offset(0, 1).Value) Then
FoundCell.Offset(0, 1).Value = FoundCell.Offset(0, 1).Value & Chr(10) & Cell.Value
Range("B" & LastRow & ":C" & LastRow).Delete

Else
FoundCell.Offset(0, 1).Value = Cell.Value
End If
End If
Next Cell

Application.EnableEvents = True ' 이벤트 다시 활성화
End If
End Sub