유영락-정보시스템 감리도구를 통해 생산성 향상

여러 엑셀 파일 합치기 유틸 모음

1. 저녁이 있는 엑셀

https://blog.naver.com/exceltool

2. 엑셀머지

https://xlworks.net/xlmerge-excel-file-merge/

3. RDBMerge

https://www.rondebruin.nl/win/addins/rdbmerge.htm

word, excel 뉴라인 줄바꿈 엔터키 변경

숫자로 입력된 데이터를 한글로 변환

=TEXT($C$2, "[dbnum4]")

=NUMBERSTRING($C$2,1)

=TEXT($C$2, "[dbnum2]")

=NUMBERSTRING($C$2,2)

=TEXT($C$2, "[dbnum4]#")

=NUMBERSTRING($C$2,3)

엑셀 시트 내용 합치기

시트에서 마우스 오른쪽 코드보기

아래 코드 입력후 f5 실행

--엑셀 전체를 그대로...
Sub SheetUnit()
    Dim i As Integer
    Dim ShtA As Worksheet
    Dim rngB As Range
    
    'Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    'Sheets(2).Activate

    Set ShtA = Sheets(1)
    For i = 2 To Sheets.Count
        Set rngB = ShtA.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        Sheets(i).UsedRange.Copy rngB
    Next i
End Sub

-- 영역 끊기면 복사 안함
Sub Combine()
    Dim J As Integer
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    Sheets(2).Activate
    Range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
    For J = 2 To Sheets.Count
        Sheets(J).Activate
        Range("A1").Select
        Selection.CurrentRegion.Select
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
        Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
    Next
End Sub

Sub 시트명가져오기_Click()

   

Dim sht As Worksheet

Dim i As Integer

 

'전체 시트를 하나를 읽는다.

For Each sht In Worksheets

'선택한 셀 기준으로 행을 증가하면서

ActiveCell.Offset(i, 0) = sht.Name

 

'다른방법 : 행/열 설정시 반드시 1이상의 값을 지정해야 한다.

'ActiveSheet.Cells(i, 1) = sht.Name

i = i + 1

Next sht

 

End Sub