파일시트 취합하기 문의

<질문1>

Sheets("전체").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial   
'마지막 행 번호에서 ctrl + Shift + ↑를 눌렀을때 이동하는 행 위치에 붙여넣기

이렇게 하게되면 예를 들어 2월1일 시트 내용이 붙여지고 나서 2월 2일 시트내용이 윗행이 되는게 아닐까요??

<답변>
그렇지는 않습니다. 
Cells(Rows.Count, "A").End(xlUp) 코드가 데이터가 입력된 마지막 행 위치를 찾습니다. 
그다음 Offset(1, 0)로 아래쪽으로 한 칸 이동하여 붙여넣기를 하기 때문에 데이터가 차곡차곡 쌓이게 됩니다.

<질문2>

전체시트에서 필드가 2행부터 나열되어 있습니다.
만약에 전체 시트가 제목행 없이 1행 부터 필드명이 있는 행인 경우

Sheets("전체").Range("A1").End(xlDown).Offset(1, 0).PasteSpecial
이 아닌 Sheets("전체").Range("A1").End(xlDown).PasteSpecial
이렇게 Offset(1, 0)를 제거하면 되는건가요?!

<답변>
Sheets("전체").Range("A1").End(xlDown).PasteSpecial 코드로 붙여넣기 하면
최초 1번은 가능한데, 반복을 하면서 2번째 시트 데이터도 A1셀에 붙여넣기를 하게 됩니다.

그래서 If 조건문을 추가하면 좋습니다.
If Sheets("전체").Range("A1")="" Then
Sheets("전체").Range("A1").End(xlDown).PasteSpecial
Else
   Sheets("전체").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial   
EndIf

이렇게 사용해보세요.
IF조건문에서 A1셀이 빈 셀이면 A1셀에 붙여넣기를 하고
빈 셀이 아니면 2번째 붙여넣기가 되므로 원래의 붙여넣기 코드를 실행하게 합니다.

안녕하세요? 

위의 코드로 복사 붙여넣기를 할 때는 A2셀에서 ctrl + Shift + 방향키를 눌렀을때 선택되는 범위를 복사할 수 있습니다. A열이나 2행을 기준으로 빈 셀이 있으면 그 전 셀까지만 선택하는 코드입니다.

그래서  아마 일부 데이터는 복사가 되지 않을 겁니다.

그리고 오류 메시지의 원인은 어떠한 시트는 복사할 때 시트 전체를 복사하고 있는듯합니다.

해결 방법은 각 시트의 데이터가 어떠한 형태로 되어 있는지 파악하여 적절한 코드로 변경해야 합니다.

우선 아래의 코드로 다시 변경하여 실행해보십시오.
그래도 오류가 발생하면 예제 파일을 저에게 메일로 보내주세요(onwings@hanmail.net)
시트의 내용을 보고 적절한 코드를 다시 찾아보겠습니다.

--------------------------------------------------------------------------------------

Sub 시트취합()

Dim 시트 As Worksheet

For Each 시트 In Worksheets

If 시트.Name <> "전체" Then

시트.UsedRange.Offset(1, 0).Copy    '사용되고 있는 셀 영역들 모두 복사(첫 행은 제외)

Sheets("전체").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial   
'마지막 행 번호에서 ctrl + Shift + ↑를 눌렀을때 이동하는 행 위치에 붙여넣기

End If

Next

End Sub