Note: The other languages of the website are Google-translated. Back to English
Đăng nhập  \/ 
x
or
x
Đăng ký  \/ 
x

or

Làm cách nào để hợp nhất hoặc hợp nhất các trang tính hoặc sổ làm việc thành một trang tính?

Trong công việc hàng ngày, chúng tôi có thể gặp phải sự cố hợp nhất hàng trăm trang tính hoặc sổ làm việc thành một trang tính để phân tích dữ liệu, điều này sẽ mất rất nhiều thời gian nếu bạn sử dụng lệnh Sao chép và Dán trong Excel. Ở đây trong hướng dẫn này, tôi sẽ cung cấp một số mẹo để nhanh chóng giải quyết công việc này.

doc kết hợp 1

DI CHUYỂN NHANH

Hợp nhất tất cả các trang của sổ làm việc đang hoạt động thành một trang với VBA
Hợp nhất hàng chục trang tính hoặc sổ làm việc thành một trang tính / sổ làm việc bằng các cú nhấp chuột
Hợp nhất hai bảng thành một và cập nhật theo cột bằng các nhấp chuột
Tải xuống tệp mẫu


Hợp nhất tất cả các trang của sổ làm việc đang hoạt động thành một trang với VBA

Trong phần này, tôi cung cấp mã VBA sẽ tạo một trang tính mới để thu thập tất cả các trang tính của sổ làm việc đang hoạt động trong khi bạn chạy nó.

1. Kích hoạt sổ làm việc bạn muốn kết hợp tất cả các trang của nó, sau đó nhấn + chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong cửa sổ bật lên, nhấp vào Chèn > Mô-đun để tạo một tập lệnh Mô-đun mới.

3. Sao chép mã bên dưới và dán chúng vào tập lệnh.

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
doc kết hợp 2

4. nhấn F5 sau đó, tất cả dữ liệu trên các trang tính đã được hợp nhất vào một trang tính mới có tên là Kết hợp được đặt ở phía trước tất cả các trang tính.


không di chuyển

Bạn Có Muốn Tăng Lương và Có Nhiều Thời Gian Để Đồng Hành Với Gia Đình Không?

Tab Office Nâng cao hiệu quả của bạn lên 50% trong Microsoft Office Đang hoạt động ngay bây giờ

Thật không thể tin được, làm việc với hai hoặc nhiều tài liệu dễ dàng và nhanh hơn so với làm việc cùng một lúc.

So với các trình duyệt nổi tiếng, công cụ theo thẻ trong Office Tab mạnh hơn và hiệu quả hơn.

Giảm hàng trăm lần click chuột và gõ bàn phím mỗi ngày cho bạn, nói lời tạm biệt với bàn tay chuột ngay bây giờ.

Nếu bạn thường làm việc với nhiều tài liệu, Office Tab sẽ là một công cụ tiết kiệm thời gian tuyệt vời cho bạn.

30 ngày dùng thử miễn phí, Không cần thẻ tín dụng.

Tìm hiểu thêmTải về miễn phí ngay bây giờ


Hợp nhất hàng chục trang tính hoặc sổ làm việc thành một trang tính / sổ làm việc bằng các cú nhấp chuột

Với VBA, bạn chỉ có thể kết hợp các trang tính trong sổ làm việc đang hoạt động, nhưng làm thế nào bạn có thể hợp nhất các trang tính giữa các sổ làm việc thành một trang tính hoặc sổ làm việc?

Hợp nhất các trang tính trên các sổ làm việc thành một trang tính
doc kết hợp 18

Hợp nhất các trang tính giữa các sổ làm việc thành một sổ làm việc
doc kết hợp 3

Để giải quyết công việc này và đáp ứng các yêu cầu khác về kết hợp trang tính, Kết hợp chức năng đã được phát triển với bốn kịch bản kết hợp:

  • Kết hợp nhiều trang tính hoặc sổ làm việc thành một trang tính
  • Kết hợp nhiều trang tính hoặc sổ làm việc vào một sổ làm việc
  • Kết hợp các trang tính cùng tên thành một trang tính
  • Hợp nhất các giá trị trên các trang tính hoặc sổ làm việc thành một trang tính

Ở đây lấy tùy chọn thứ hai làm ví dụ:

Kết hợp nhiều trang tính hoặc sổ làm việc vào một sổ làm việc

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. Kích hoạt Excel, nhấp vào Kutools Plus > Kết hợp, một hộp thoại bật ra để nhắc bạn rằng các sổ làm việc bạn muốn kết hợp cần được đóng lại. Nhấp chuột OK để tiếp tục.
doc kết hợp 4
doc kết hợp 5

2. bên trong Kết hợp các Bảng tính bước 1 hộp thoại, kiểm tra Kết hợp nhiều trang tính từ sổ làm việc vào một sổ làm việc tùy chọn. Nhấn vào đây Sau để chuyển sang bước tiếp theo của trình hướng dẫn.
doc kết hợp 6

3. nhấp chuột Thêm > Tập tin or Thư mục để thêm các sổ làm việc bạn muốn kết hợp vào Danh sách sổ làm việc , sau đó bạn có thể chỉ định trang tính nào sẽ được kết hợp với nhau bằng cách kiểm tra tên trong Danh sách bảng tính ngăn. Nhấp chuột Sau để đi đến bước cuối cùng của trình hướng dẫn.
doc kết hợp 7

4. Trong bước này, chỉ định các cài đặt khi bạn cần. Sau đó nhấp vào Kết thúc.
doc kết hợp 8

5. Một cửa sổ bật ra để bạn chọn một thư mục để đặt sổ làm việc kết hợp, sau đó nhấp vào Lưu.
doc kết hợp 9

Bây giờ các sổ làm việc đã được hợp nhất thành một sổ làm việc. Và ở phía trước của tất cả các trang tính, một trang tính chính có tên Kutools cho Excel cũng được tạo để liệt kê một số thông tin về các trang tính và liên kết cho mỗi trang tính.
doc kết hợp 10

Demo: Kết hợp trang tính / sổ làm việc thành một trang tính hoặc sổ làm việc

Kutools cho Excel: 200 + công cụ tiện dụng hữu ích, đơn giản hóa các tác vụ phức tạp trong Excel thành một vài cú nhấp chuột.

Nói Lời Tạm Biệt Với ​​Tay Chuột và Thoái hóa đốt sống Cổ ngay

300 công cụ nâng cao của Kutools cho Excel giải quyết 80% nhiệm vụ Excel trong vài giây, giúp bạn thoát khỏi hàng nghìn cú nhấp chuột.

Dễ dàng giải quyết 1500 tình huống làm việc, không cần mất thời gian tìm kiếm giải pháp, có nhiều thời gian để tận hưởng cuộc sống của bạn.

Cải thiện 80% năng suất cho 110000+ người hiệu quả cao mỗi ngày, tất nhiên bao gồm cả bạn.

Không còn bị dày vò bởi những công thức và VBA đau đớn, hãy cho não của bạn được nghỉ ngơi và tâm trạng làm việc vui vẻ.

Dùng thử miễn phí 30 ngày với đầy đủ tính năng, hoàn tiền trong 30 ngày không cần lý do.

Một Cơ Thể Tốt Hơn Tạo Một Cuộc Sống Tốt Đẹp Hơn.


Hợp nhất hai bảng thành một và cập nhật theo cột bằng các nhấp chuột

Nếu bạn muốn hợp nhất hai bảng thành một và cập nhật dữ liệu dựa trên một cột như ảnh chụp màn hình bên dưới, bạn có thể thử Hợp nhất bảng tiện ích của Kutools cho Excel.
doc kết hợp 11

Kutools cho Excel: hơn 200 bổ trợ Excel tiện dụng để đơn giản hóa các tác vụ phức tạp thành một vài cú nhấp chuột trong Excel

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. nhấp chuột Kutools Plus > Hợp nhất bảng để cho phép Hợp nhất bảng wizard.
doc kết hợp 12

2. Trong bước 1 của trình hướng dẫn, bạn cần chọn riêng phạm vi bảng chính và bảng tra cứu. Sau đó nhấp vào Sau.
doc kết hợp 13

3. Kiểm tra cột quan trọng mà bạn muốn cập nhật dữ liệu trong bảng chính dựa trên. Nhấp chuột Sau.
doc kết hợp 14

4. Sau đó kiểm tra các cột trong bảng chính mà bạn muốn cập nhật dữ liệu dựa trên bảng tra cứu. Nhấp chuột Sau.
doc kết hợp 15

5. Trong bước 4 của trình hướng dẫn, hãy kiểm tra các cột bạn muốn thêm từ bảng tra cứu vào bảng chính. Nhấp chuột Sau.
doc kết hợp 16

6. Trong bước cuối cùng của trình hướng dẫn, chỉ định các tùy chọn cài đặt khi bạn cần. Sau đó nhấp vào Kết thúc.
doc kết hợp 17

Bây giờ bảng chính đã được cập nhật dữ liệu và thêm dữ liệu mới dựa trên bảng tra cứu.

Demo: Kết hợp trang tính / sổ làm việc thành một trang tính hoặc sổ làm việc

Kutools cho Excel: 200 + công cụ tiện dụng hữu ích, đơn giản hóa các tác vụ phức tạp trong Excel thành một vài cú nhấp chuột.


Tải xuống tệp mẫu

mẫu


Các công cụ năng suất được đề xuất

Tab Office - Duyệt theo tab, chỉnh sửa, quản lý tài liệu trong Microsoft Office 2019 - 2003 và Office 365


tab văn phòng

Một bổ trợ chuyên nghiệp để tăng tốc Excel 2019-2007, thu nhỏ nhiệm vụ hàng giờ xuống còn giây

Phần bổ trợ này bao gồm hàng chục nhóm chuyên nghiệp, với hơn 300 tùy chọn sẽ tự động hóa hầu hết các công việc hàng ngày của bạn trong Excel và tăng năng suất của bạn lên ít nhất 50%. Chẳng hạn như nhóm lựa chọn một lần nhấp và chuyển đổi hàng loạt.
Bây giờ là cơ hội để bạn tăng tốc bản thân với Kutools cho Excel!


Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    VJ · 4 years ago
    How can I modify the code to paste as value only?
  • To post as a guest, your comment is unpublished.
    Mike · 4 years ago
    This isn't a merge...it's simply stacking data. Change the title, please.
  • To post as a guest, your comment is unpublished.
    Maher · 4 years ago
    Thank, I used Kutools, it is so easy to use. Thanks again!
  • To post as a guest, your comment is unpublished.
    Eduardo · 4 years ago
    Used your first Macro and worked! Great work, thanks a lot!

    Kind regards
  • To post as a guest, your comment is unpublished.
    Shireen · 4 years ago
    My scenario - I require to be able to refresh the data from the source data also:

    2 worksheets in two different workbooks - the same formatting
    I need to bring the data across from both worksheets into one worksheet - in a separate workbook
    As the data is added to and changed daily I would need to refresh this data - this also means that the range in these worksheets would also change if rows are added.
    These sheets are also read only when being worked on by the User, so I would need to refresh each time the data is saved.
  • To post as a guest, your comment is unpublished.
    Shireen · 4 years ago
    My scenario.......but I need the function to refresh data as both sheets are added to and info is updated daily (so the ranges would also increase).

    2 worksheets in two different workbooks
    Data is formatted exactly the same in both sheets

    I want to consolidate these sheets into one sheet (and keep the formulas), but as the data changes daily I would need to be able to refresh the data from the source documents.

    Can you assist?
  • To post as a guest, your comment is unpublished.
    Kiran Kanth · 4 years ago
    Hi,

    thanks a lot this saved my time in consolidating 80 to 100 sheets in one work book.
    thanks once again


    Kiran Kanth
  • To post as a guest, your comment is unpublished.
    Saleem Ansari · 5 years ago
    Hi Daniel,

    thank for your support & information but my problem is still not resolve.

    i have four sheet in one workbook with the name of (Reason Code), (Offline Code), (Work File 1) and (Work File 2).

    i want to merge the data of only between two sheet (Work File 1) and (Work File 2) but it should not create any new sheet, data should be merge in (work file 2) sheet from work file 1
  • To post as a guest, your comment is unpublished.
    Ray and Eric · 5 years ago
    Thank you for the code! We had to copy 200 sheets into one, just one comments regarding the range; the maximum row/range is
    1,048,576 rows by 16,384 columns
  • To post as a guest, your comment is unpublished.
    Daniel · 5 years ago
    How do you omit a sheet?

    I have 3 sheets(Tracker)(Archive)(Note Options). I want to combine only (Tracker)(Archive)sheets to a master sheet.

    I am also trying to find a code that will auto refresh Combined sheet when new information is listed on (Tracker)(Archive)sheets .

    Please help if possible. Code Sample listed below.

    Sub Combine()
    Dim J As Integer
    Dim wrk As Workbook
    On Error Resume Next

    Set wrk = ActiveWorkbook

    For Each sht In wrk.Worksheets
    If sht.Name = "Master" Then
    MsgBox "There is a worksheet called as 'Master'." & vbCrLf & _
    "Please remove or rename this worksheet since 'Master' would be" & _
    "the name of the result worksheet of this process.", vbOKOnly + vbExclamation, "Error"
    Exit Sub
    End If
    Next sht

    'We don't want screen updating
    Application.ScreenUpdating = False


    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Master"

    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)


    Application.ScreenUpdating = True
    Next

    End Sub

    Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Me.Range("a:l")) Is Nothing Then Exit Sub
    Application.EnableEvents = False

    Call TrapTest

    Application.EnableEvents = True

    End Sub
  • To post as a guest, your comment is unpublished.
    Saleem Ansari · 5 years ago
    hi.

    i want to merge the data only two sheet. but it should not create in new sheet.

    it should be merge from sheet 1 to sheet 2

    please help.
  • To post as a guest, your comment is unpublished.
    steve · 5 years ago
    you rock, thanks a bunch....
  • To post as a guest, your comment is unpublished.
    Antonia · 5 years ago
    The VBA code worked great! If I update one of the worksheets (i.e. enter more data) will that data automatically be entered into my new 'Combined' worksheet?
  • To post as a guest, your comment is unpublished.
    Guzman · 5 years ago
    Hi ! Thanks for the code.
    About -[b]"Merge all worksheets of active workbook into one worksheet with VBA code"[/b]-

    Is it possible to do it with a For Each construct to navigate through the Sheets?
    Thanks.
  • To post as a guest, your comment is unpublished.
    Janett · 5 years ago
    Thank you, this has helped me a lot!
  • To post as a guest, your comment is unpublished.
    Nat · 5 years ago
    When using the VBA providied above, is there a way for the combined sheet to automatically update when the sheets that is combined are added to it, so it is always running?

    Thanks!
  • To post as a guest, your comment is unpublished.
    ronald bthakur · 5 years ago
    Hello Everyone,
    This is awesome to merge the multiple worksheet into one worksheet via vba coding or macros, but can anyone help me to merge data from multiple worksheet in to one blank worksheet using excel functions.
    Thanks
  • To post as a guest, your comment is unpublished.
    ronald bthakur · 5 years ago
    this is awesome to merge the multiple spreadsheets using macro, but can anyone help if i can do the same process using excel functions....because i do not know the vba coding....
  • To post as a guest, your comment is unpublished.
    Gabriel · 5 years ago
    Thank you!
    The code worked perfectly!
  • To post as a guest, your comment is unpublished.
    Andre · 5 years ago
    Thanks a lot for the combine code
  • To post as a guest, your comment is unpublished.
    Trey · 5 years ago
    I have 12 worksheets (1 for each month of 2015), running Excel 2010. Each worksheet has approximately 45k rows. When I run the macro it copies about 6 of the the 12. There should be plenty of rows. If I start from scratch and run the VBA again, it still only combines the same month/worksheets? I checked my headers and I think they all match, but maybe that could be the issue?
  • To post as a guest, your comment is unpublished.
    dan · 5 years ago
    Does anyone know of a way to have the combined worksheet to ouput the actual data values only from the other sheets, as opposed to formulas? The formulas don't translate to the combined page.
  • To post as a guest, your comment is unpublished.
    Somasekhara G · 5 years ago
    Thank you so much the initial code is worked for me. But i need to know that, i have some blank rows in the middle, but i need to copy the entire data. would like to know how to modify this. Thanks again.
  • To post as a guest, your comment is unpublished.
    Dhanapal · 5 years ago
    Wow very nice tool to merge multiple sheets....Superb
  • To post as a guest, your comment is unpublished.
    Ravi · 5 years ago
    Thank's Brother I have visited many times on this page but i couldn't recognised now finally I find it. Thanks ;-)
  • To post as a guest, your comment is unpublished.
    Maurice · 5 years ago
    In lieu of a donate button I'm gonna get kutools for my personal computer. This little macro saved me and my 20 coworkers from having to enter more than 9,200 accounting entries for our payroll. Thanks, guys!
  • To post as a guest, your comment is unpublished.
    Clive · 5 years ago
    Can't get the macro to work in excel 2013. But I think its because I am trying to combine 18 sheets in 1 workbook.
  • To post as a guest, your comment is unpublished.
    kamal · 5 years ago
    when i run the code it only merges 3 sheets only out of total 20 sheets.any body please help
  • To post as a guest, your comment is unpublished.
    yathi · 5 years ago
    hi thanks for the code,

    it works great. .

    can you plz help me in getting the respective worksheet names in front of the data which are combined.

    i.e if i am combining 2 columns of data from 20 worksheets, i want to get one more column of data which gives name of the sheet that particular data is fetched from.

    thanks in advance

    Yathish
    • To post as a guest, your comment is unpublished.
      Vijay Dilli · 5 years ago
      I have this need as well to have an additional column with the worksheet name as 1st column. Is this possible? I am not very familiar with VBA and I am not sure I can make these changes myself with out impacting the existing results.

      Vijay
  • To post as a guest, your comment is unpublished.
    Mikael Hjelm · 5 years ago
    Thanks for the macro. Now I can use it with empty rows.
    I add an extra kolumn A (with all tabs marked) and fill it down with any letter as deep the largest table have rows.
    Well I did not check just estimated and used advsnced search with only unique values selected, and over the whole cell area, to remove the empty rows that comes in between in the Combine tab.
  • To post as a guest, your comment is unpublished.
    Elahi baksh · 5 years ago
    Thank u very much this program reduces my efforts of doing copy paste job
  • To post as a guest, your comment is unpublished.
    Peter · 5 years ago
    Is there a solution to merge 6 tables into one row, please?

    It`s hard to describe, but I have converted a pdf into excel and it simply pasted the date into separate sheets, means every 6 sheet would be one row and I have around 6136 pages...

    Thanks,
    Peter
  • To post as a guest, your comment is unpublished.
    Rodrigo · 5 years ago
    you saved my lyfe...tks
  • To post as a guest, your comment is unpublished.
    Leslie · 5 years ago
    Great, worked perfectly!
  • To post as a guest, your comment is unpublished.
    Omar · 6 years ago
    Thanks a million :-)
  • To post as a guest, your comment is unpublished.
    Subhashini K · 6 years ago
    I downloaded the tool but it is not working. I want to combine multiple sheets. I open the requisite excel sheets and then as soon as I click on enterprise and then combine, all the sheets disappear. Nothing happens and if I try to open them again I get the alert that the sheets are locked by another user. I have to restart my system to again work on them. Can you please suggest a solution for this?
  • To post as a guest, your comment is unpublished.
    Searcher · 6 years ago
    The code works great, but if the macro is not resident in the Active worksheet, if works on the wrong worksheet. I adapted it it to work with the Active workbook as follows:

    Sub Combine()
    Dim J As Integer

    On Error Resume Next

    With ActiveWorkbook

    .Sheets(1).Select

    .Worksheets.Add ' crteate a new worlsheet; it becomes the new SHEETS(1)
    .Sheets(1).Name = "Combined" ' Call it 'COmbined'. Hopefully there is no conflict!
    .Sheets(2).Activate ' go to the first user's worksheet
    Range("A1").EntireRow.Select ' Select Row 1
    Selection.Copy Destination:=.Sheets(1).Range("A1") '
    For J = 2 To .Sheets.Count ' these are the User's original worksheets
    .Sheets(J).Activate
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select ' adjust selection by removing Row 1
    Selection.Copy Destination:=.Sheets(1).Range("A65536").End(xlUp)(2) ' Assumes Column A always has data
    Next ' worksheet

    End With

    End Sub
    • To post as a guest, your comment is unpublished.
      sung · 5 years ago
      Great, I didn't need this code. but the code listed seems not perfect, so started read and this seems great!!..

      I know i might need the code soon or later so i'm taking it

      [quote name="Searcher"]The code works great, but if the macro is not resident in the Active worksheet, if works on the wrong worksheet. I adapted it it to work with the Active workbook as follows:

      Sub Combine()
      Dim J As Integer

      On Error Resume Next

      With ActiveWorkbook

      .Sheets(1).Select

      .Worksheets.Add ' crteate a new worlsheet; it becomes the new SHEETS(1)
      .Sheets(1).Name = "Combined" ' Call it 'COmbined'. Hopefully there is no conflict!
      .Sheets(2).Activate ' go to the first user's worksheet
      Range("A1").EntireRow.Select ' Select Row 1
      Selection.Copy Destination:=.Sheets(1).Range("A1") '
      For J = 2 To .Sheets.Count ' these are the User's original worksheets
      .Sheets(J).Activate
      Range("A1").Select
      Selection.CurrentRegion.Select
      Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select ' adjust selection by removing Row 1
      Selection.Copy Destination:=.Sheets(1).Range("A65536").End(xlUp)(2) ' Assumes Column A always has data
      Next ' worksheet

      End With

      End Sub[/quote]
  • To post as a guest, your comment is unpublished.
    Derek · 6 years ago
    Thank you for this! With a little tweaking of datasets, this worked like a charm.
  • To post as a guest, your comment is unpublished.
    Melisa · 6 years ago
    I have a workbook with 7 sheets that I would like to combine.

    Each of the sheets is a check list and the completion date is in a different column on each sheet depending on the number of steps so on one sheet it is column H another it is column AR for example.

    I thought that the best way to get around this issue would be to make a named Data set which includes the desired columns as the columns would be in the same order regardless of which sheet it is on.

    Is there any way to modify this code to looks at the dataset on the sheets rather than all active cells? and keeps information in the same columns?
  • To post as a guest, your comment is unpublished.
    Bhumika · 6 years ago
    I just used the Merge Worksheet function. Worked like a charm! Thank you SO much for posting this! It is a life saver. Even the MS office website didn't list this...
  • To post as a guest, your comment is unpublished.
    akmuseums · 6 years ago
    it's only compiling about a 1/4 of my data! how can I get the rest of my sheets into it?

    thank you!
    • To post as a guest, your comment is unpublished.
      kamal · 5 years ago
      same problem here...i have 20 sheets but it only combines 3 sheets
  • To post as a guest, your comment is unpublished.
    maryam · 6 years ago
    hello
    thanks alot for your merge program.you help me that my boss be happy :lol:
  • To post as a guest, your comment is unpublished.
    Mary · 6 years ago
    This is perfect for what I need. Thank you.

    How can I tell it to not copy the headings on each tab, just the data. I'm ending up with headings in my combine tab 40 times...

    Sorry if this posts twice. I'm not seeing it in the refreshed comments...
  • To post as a guest, your comment is unpublished.
    Mary · 6 years ago
    This is exactly what I need. One issue: I don't want the headings from each tab, just the data. How do i tell it to not copy all the headings?

    Thank you.
  • To post as a guest, your comment is unpublished.
    Chris · 6 years ago
    Life saver. Thank you.
  • To post as a guest, your comment is unpublished.
    cherry codilla · 6 years ago
    please help me i cant find the merge worksheet. where i can find it?

    thank you,
    cherry
  • To post as a guest, your comment is unpublished.
    Kedar · 6 years ago
    At this moment I have got smth like this:

    Sub Combine()
    Dim J As Integer
    On Error Resume Next
    Sheets(6).Activate
    Range("A1:A3").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
    For J = 1 To 5
    Sheets(J).Activate
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Offset(3, 0).Resize(Selection.Rows.Count - 1).Select
    Selection.Copy Destination:=Sheets(6).Range("A65536").End(xlUp)(2)
    Sheets(6).Select
    Next
    End Sub

    Everything works just great. The only thing I want to do is to add some automatic refresh for VBA rule. I want to add new content to other Worksheets and see results at last one with VBA.
    • To post as a guest, your comment is unpublished.
      Antonia · 5 years ago
      Did you ever figure out how to do this?
  • To post as a guest, your comment is unpublished.
    Kedar · 6 years ago
    I have one simple question (I'm not a VB programmer).

    Please tell me how to modify that rule to paste the results inside already created worksheet (let's say "COMBINED") and not create new one?
  • To post as a guest, your comment is unpublished.
    kristin · 6 years ago
    please help me, and you did. I am so thankful, in life for the work experience, and even though I did the prints, I got a good , or even better a even review. I love my new job.
  • To post as a guest, your comment is unpublished.
    Chief · 6 years ago
    Amazing solution. how can you modify the code to work on cells that are protected?