자동로그인  
종합자료실
게시물 2건
 
시트 취합하기 VBA코드
글쓴이 : 한글닷컴 날짜 : 2014-07-08 (화) 14:25 조회 : 379

Sub 취합()

    Dim 행개수 As Integer
   
    행개수 = 1
       
    For i = 2 To 80
        Sheets(i).Cells(1, 1).CurrentRegion.Copy
        Sheets(1).Cells(행개수, 1).Select
        ActiveSheet.Paste
        행개수 = Sheets(1).Application.CountA(Range("a1:a5000")) + 1
    Next i


End Sub