이 섹션에서는 실행하는 동안 활성 통합 문서의 모든 시트를 수집하는 새 시트를 만드는 VBA 코드를 제공합니다.
1. 모든 시트를 결합 할 통합 문서를 활성화 한 다음 + 여는 열쇠 응용 프로그램 용 Microsoft Visual Basic 창.
2. 팝업 창에서 끼워 넣다 > 모듈 새 모듈 스크립트를 만듭니다.
3. 아래 코드를 복사하여 스크립트에 붙여 넣습니다.
Sub Combine()
'UpdatebyExtendoffice
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
4. 프레스 F5 키를 누르면 시트의 모든 데이터가 모든 시트의 앞에 배치되는 Combined라는 새 시트에 병합되었습니다.
급여 인상과 가족 동반에 많은 시간을 원하십니까?
Office Tab은 현재 작업중인 Microsoft Office에서 효율성을 50 % 향상시킵니다.
믿을 수 없을 정도로 두 개 이상의 문서에서 작업하는 것이 하나에서 작업하는 것보다 쉽고 빠릅니다.
잘 알려진 브라우저와 비교할 때 Office 탭의 탭 도구는 더 강력하고 효율적입니다.
매일 수백 번의 마우스 클릭과 키보드 입력을 줄이십시오. 이제 마우스 손에 작별 인사를하십시오.
일반적으로 여러 문서에서 작업하는 경우 Office Tab을 사용하면 시간을 크게 절약 할 수 있습니다.
1. Excel을 활성화하고 Kutools Plus > 결합, 결합하려는 통합 문서를 닫아야 함을 알리는 대화 상자가 나타납니다. 딸깍 하는 소리 OK 계속합니다.
2. 에서 워크 시트 결합 1 단계 대화 상자, 확인 통합 문서의 여러 워크 시트를 하나의 통합 문서로 결합 선택권. 딸깍 하는 소리 다음 마법사의 다음 단계로 이동합니다.
3. 클릭 추가 > 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 or 폴더 결합하려는 통합 문서를 통합 문서 목록 창에서 이름을 확인하여 함께 결합 할 워크 시트를 지정할 수 있습니다. 워크 시트 목록 창유리. 딸깍 하는 소리 다음 마법사의 마지막 단계로 이동합니다.
4.이 단계에서는 필요에 따라 설정을 지정합니다. 그런 다음 끝.
5. 결합 된 통합 문서를 배치 할 폴더를 선택하는 창이 나타납니다. 찜하기.
이제 통합 문서가 하나의 통합 문서로 병합되었습니다. 그리고 모든 시트의 맨 앞에 Kutools for Excel이라는 마스터 시트가 생성되어 각 시트의 시트 및 링크에 대한 정보를 나열합니다.
데모 : 시트 / 통합 문서를 하나의 시트 또는 통합 문서로 결합
Excel 용 Kutools : 200 + 유용한 편리한 도구로 Excel의 복잡한 작업을 몇 번의 클릭으로 단순화합니다.
이제 마우스 손과 자궁 경부 척추증에 작별 인사
Excel 용 Kutools의 300 가지 고급 도구는 80 % Excel 작업을 몇 초 만에 해결하고 수천 번의 마우스 클릭에서 벗어날 수 있습니다.
1500 개의 작업 시나리오를 쉽게 처리하고 솔루션을 검색하는 데 시간을 낭비 할 필요가 없으며 인생을 즐길 시간이 많습니다.
물론 당신을 포함하여 매일 80 명 이상의 매우 효과적인 사람들의 생산성을 110000 % 향상시킵니다.
더 이상 고통스러운 공식과 VBA에 의해 괴로움을 당하지 않고 두뇌에 휴식과 즐거운 작업 분위기를 제공하십시오.
모든 기능이 포함 된 30 일 무료 평가판, 이유없이 30 일 환불.
더 나은 몸은 더 나은 삶을 만듭니다.
두 테이블을 하나로 병합하고 클릭으로 열 단위로 업데이트
아래 스크린 샷과 같이 두 개의 테이블을 하나로 병합하고 열을 기반으로 데이터를 업데이트하려면 다음을 시도하십시오. 테이블 병합 ~의 유용성 Excel 용 Kutools.
Excel 용 Kutools : Excel에서 몇 번의 클릭으로 복잡한 작업을 단순화하는 200 개 이상의 편리한 Excel 추가 기능
2. 마법사의 1 단계에서 기본 테이블과 조회 테이블 범위를 별도로 선택해야합니다. 그런 다음 다음.
3. 기본 테이블에서 데이터를 업데이트 할 키 열을 선택합니다. 딸깍 하는 소리 다음.
4. 그런 다음 룩업 테이블을 기반으로 데이터를 업데이트하려는 기본 테이블의 열을 확인합니다. 딸깍 하는 소리 다음.
5. 마법사의 4 단계에서 조회 테이블에서 기본 테이블로 추가 할 열을 확인합니다. 딸깍 하는 소리 다음.
6. 마법사의 마지막 단계에서 필요에 따라 설정 옵션을 지정합니다. 그런 다음 끝.
이제 기본 테이블이 데이터를 업데이트하고 조회 테이블을 기반으로 새 데이터를 추가했습니다.
데모 : 시트 / 통합 문서를 하나의 시트 또는 통합 문서로 결합
Excel 용 Kutools : 200 + 유용한 편리한 도구로 Excel의 복잡한 작업을 몇 번의 클릭으로 단순화합니다.
샘플 파일 다운로드
권장 생산성 도구
Office 탭-Microsoft Office 2019-2003 및 Office 365에서 탭 브라우징, 편집, 문서 관리
Excel 2019-2007 가속화를위한 전문 추가 기능, 몇 시간의 작업을 몇 초로 단축
이 추가 기능에는 수십 개의 전문가 그룹이 포함되어 있으며 300 개 이상의 옵션이 Excel에서 일상적인 작업의 대부분을 자동화하고 생산성을 50 % 이상 향상시킵니다. 원 클릭 옵션 그룹 및 일괄 변환과 같은. 이제 Excel 용 Kutools로 속도를 높일 수있는 기회입니다!
@martinoreilly Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.
If you want to merge all rows from all worksheets, just use the code:
Sub Combine()
'UpdatebyExtendoffice
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.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
@AJIT DIXIT The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
@HS Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
@Daniel Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
Great Code and for the most part it works fantastically well.
Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.
In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.
To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.
Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?
Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?
Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.
@martinoreilly Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
@elok Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us support@extendoffice.com to describe the problem with more details, our support will handle the problem for you.
@thangaraj571@gmail.com Sorry, Thangaraj R, I do not undertsand your problem clearly, could you upload a screenshot to describe your quetion with more detials?
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
@arul.annalect@gmail.com The below code will combine sheets from the second row, you can change the number 2 (xStart = 2) to other number for you need.
Sub CombineForm()
Dim xStart, xFNum, xIntCFMax, xIntRRg, xIntCRg As Integer
Dim xCFWS, xWS As Worksheet
Dim xObjSR As Range
Dim xStrName As String
On Error Resume Next
Application.ScreenUpdating = False
xStart = 2
xStrName = "CombinedForm"
Set xWS = Sheets(xStrName)
If xWS Is Nothing Then
xWS.Delete
End If
Set xCFWS = Worksheets.Add
xCFWS.Name = xStrName
For xFNum = 1 To Sheets.Count
Set xWS = Sheets(xFNum)
If xWS.Name <> xStrName Then
xWS.Activate
xIntRRg = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xIntCRg = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xStart <= xIntRRg Then
Set xObjSR = Range(Cells(xStart, 1), Cells(xIntRRg, xIntCRg))
xObjSR.Select
Selection.Copy Destination:=xCFWS.Range("A65536").End(xlUp)(2)
End If
End If
Next
Application.ScreenUpdating = True
End Sub
Sub CombineForm()
Dim xI, xMax As Integer
Dim xCWS, xWS As Worksheet
Dim xObjRRange, xObjCRange, xObjSR As Range
On Error Resume Next
Sheets(1).Select
Set xCWS = Worksheets.Add
xCWS.Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=xCWS.Range("A1")
For xI = 2 To Sheets.Count
Set xWS = Sheets(xI)
xWS.Activate
Set xObjRRange = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
Set xObjCRange = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
Set xObjSR = Range(Cells(1, 1), Cells(xObjRRange.Row, xObjCRange.Column))
xObjSR.Select
Selection.Copy Destination:=xCWS.Range("A65536").End(xlUp)(2)
Next
xMax = xCWS.Range("a65536").End(3).Row
xCWS.Range("a1:a" & xMax).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
I have used the below mentioned code, In my data some blank Rows is there for each tab. Data is not coping after the blank rows. How to combine the all data after the blank rows. Please advise.
Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A16").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A17").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
My headings start on row 26, the first 25 rows are occupied with the parameters I used to generate my reports, it would take a long time to delete these since there are many reports generated. Using the VBA code above, how could I configure this code to exclude the first 25 rows, capture the headings on row 26 and combine all the data under the headings (row 27 onwards) for each worksheet?
@Tina Just save as the current workbook with a new name and delete other three worksheets which you don't want to combine, now you have only your desired two sheets for VBA code execution.
Hi.. The VBA code works fine. Thank you! But can you please help on how I can edit the code so that only 2 sheets will be combined? I have 5 sheets in my workbook but I only need to combine 2 of them.
I want to merged more workbook data in one so give me suggest
To post as a guest, your comment is unpublished.
·
3 years ago
Hi everyone,
First of all I have to tell that I have no experience with Macro (VBA Codes). However what I need is related to this. Maybe you guys could help me with it.
I have a workbook and in this workbook there are 10 worksheets. The first 9 Sheets have the same order of the coloumns of titles and in these columns there are names, dates, percentages of Project Status, comments to Projects etc.. As I said the columns have the same order just the name of the worksheets (for different Teams in the Organisation) are different.
In Addition to this I have to merge all the worksheets and have them in another sheet which is called "Übersicht" (Overview). However there is a different column in the sheet and it's between "Nr." and "Thema" columns (which are in A1 and A2 in all the 9 Sheets) and this different column called "Kategorie" (in A2 in Übersicht-Overwiev sheet). As this column is between These the order is like this "Nr. (A1), Kategorie (A2) and Thema (A3).....".So this category column (Kategorie) should be empty except this all the Information should be merged into this sheet. And also when there is a Change or update in any worksheet, the Information in "Übersicht" (Overview) sheet needs to update by itself. How can I do this?
P.S.: Every sheet has different filled rows, some 30, some 13, some 5 etc. And the Teams which are responsible for the Sheets can add or delete some rows (in each row there is different Information for different Projects). This also means the number of rows can increase or decrease.
I hope I explained it well. Thanks a lot in advance!
Hello!
I need your support. I have three sheets (A, B, C) into a worksheet. the sheet contain information on individuals.
Sheet A: contains all individuals considered as ID with information (age, education, etc...)
Sheets B et C: contain some individuals (ID) with information (Organisation, income, etc...)
So I want to combine B and C to A to get all information from A,B, C together.
Oh dear! Thank you so MUCH. Worked PERFECTLY with the Code. Had trouble and was thinking how to resolve this and then...just in a second! Thank you a lot. God bless you!
This code works for the most part - however, the first line of each sheet (except for the first sheet) is not extracted into the combined sheet. Which piece of the code should be modified to ensure extraction of the first line?
믿을 수 없을 정도로 두 개 이상의 문서에서 작업하는 것이 하나에서 작업하는 것보다 쉽고 빠릅니다.
1500 개의 작업 시나리오를 쉽게 처리하고 솔루션을 검색하는 데 시간을 낭비 할 필요가 없으며 인생을 즐길 시간이 많습니다.
