아기만세~ 셈틀 Blog

우선, 각각의 예제 엑셀 형태는 이렇습니다.

보시다시피 첫 시트부터 마지막 시트까지 상단 제목은 똑같고 내용이 다른 데이터입니다.

손가락 마비를 초래할 수 있는 "컨트롤 C / 컨트롤 V" 신공으로는 도저히 엄두가 나질 않습니다.

첫번째 시트 하단의 시트 이름 "Table 1"에 마우스를 올려놓고 오른쪽 버튼을 클릭합니다.

나오는 메뉴중 "코드 보기"를 선택합니다.

코드 창에 다음의 코드를 복사해서 넣어주세요~

Sub SheetUnit()
Dim i As Integer
Dim ShtA As Worksheet
Dim rngB As Range
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

메뉴에서 실행 -- 사용자 정의 폼 실행 또는 F5 키를 눌러줍니다.

table 1 시트 터 table 280 시트까지 모두 7235행이 합쳐졌네요~

이제 중간중간에 있는 제목 행만 삭제해 주시면 엑셀 시트 합치기 완성입니다.

엑셀에서 원치 않는 URL 하이퍼링크 때문에 실수로 클릭이 되어 짜증나게 한다.

물론 옵션에서 바꿔줄 수도 있지만, 정작 필요할때 쓰지 못하게 된다.

URL 하이퍼링크를 모두 삭제 하기

VBE를 사용하여 삭제를 하는 방법으로 매우 간단하다.

• 원하는 시트에서 ALT + F11 키를 눌러 VBE 창을 띄운다.
• 오른쪽의 메모장 형태로 보이는 직접실행 창에다가 아래와 같이 입력한다.


• CELLS.HYPERLINKS.DELETE


• 입력 중간중간에 가이드창이 뜨므로 오타가 날 가능성은 매우 적다.