조용문 블로그

=UCOMB(범위지정, 사이사이 넣을 문자나 값 아무거나)
 ex) =ucomb(A1:C3,",")
하면 A1부터 C3안의 모든 문자를 돌아가며 중복데이터를 걸러낸 후, 오름차순 정렬하고
그 사이사이에 , 를 넣은 결과값이 나옵니다. 맨 마지막에는 , 를 빼도록 코딩했습니다.
--------------------------------------------------------------------------------

Function UComb(rngAR As Range, str As Variant)
Dim rngCell As Range
Dim i As Double
Dim strTemp() As Variant
Dim strCell As String
Dim NC As New Collection
Dim var As Variant 
i = rngAR.Count
ReDim strTemp(i) As Variant
i = 0
On Error Resume Next
'----------------------------------------이하 컬렉션오브젝트를 이용한 중복자료 거르기 구문
For Each rngCell In rngAR
        NC.Add rngCell.Value, CStr(rngCell.Value)
Next rngCell
'----------------------------------------이하 걸러진 중복자료를 배열변수에 넣기
For Each var In NC
    i = i + 1
    strTemp(i) = var
Next var
i = 0
'----------------------------------------이하 순환문을 사용한 오름차순 정렬법
For Each var In strTemp
i = i + 1
strCell = strCell & WorksheetFunction.Small(strTemp, i) & str
Next var 
'----------------------------------------이하  반환할 값인데, 그냥 STRCELL로 지정하시면 맨 끝에도 사이사이에 넣는 문자가 붙어서 나옵니다.
UComb = Left(strCell, Len(strCell) - Len(str))
End Function

Sub 시트생성()
 Dim i As Integer
   For i = 1 To 10
    With Sheets
     .Add(after:=Sheets(.Count)).Name = "시트_" & i
    End With
  Next i
End Sub

Sub 시트삭제()
 Application.DisplayAlerts = False
   Sheet3.Delete
End Sub

Sub 강제저장()
 Application.DisplayAlerts = False
  With ThisWorkbook
    .SaveAs .Path & "\" & .Name
  End With
End Sub

※ 참고
Application.DisplayAlerts = False
       시트삭제 코드
Application.DisplayAlerts = False

이런식으로하면 경고창 같은 표시가 안납니다.
예제)
     Application.DisplayAlerts = False
    Sheets("시트_2").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = False