엑셀 파일 시트를 하나로 합시기 위해서 자료를 찾아보았다.

 Sub JoinSheets()

 

    Dim sht As Worksheet
    Dim i As Integer
    Dim copyTarget As Range, copyRange As Range, copyStart As Range
         
          Set copyStart = Sheets("all").Range("a1") '붙여넣기 시작할 처음 셀 지정
         
     For Each sht In ThisWorkbook.Worksheets
                       
        If sht.Name <> "all" Then '"all"는 각 시트의 내용을 모을 셀이므로 복사하면 안됨.
            
            Set copyRange = sht.UsedRange '각 시트의 usedRange를 복사하기 위해 지정
           

            Set copyTarget = copyStart.Offset(copyStart.SpecialCells(xlLastCell).Row + 1, 0) '복사해 붙여넣을 위치 지정
           
            copyRange.Copy copyTarget '각 시트를 복사해서 붙여넣을 셀로 붙여넣음
           
        End If
    
    Next
   
End Sub

 

'Infrastructure' 카테고리의 다른 글

Root로 ssh 접속 로그인 금지하기  (0) 2011.12.09
강의자료  (0) 2011.11.18
IIS7 PHP  (0) 2011.07.29
IIS 6.0에 rewrite mod 적용하기  (0) 2011.07.27
Introduction to IIS 7 Architecture  (0) 2011.07.25

+ Recent posts