A way to combine excel worksheets into one w/o cut and paste

[amandarose80]

I have 26 tabs, a-z, I want to combine them into one worksheet. They all have the same columns.
Is it possible without cutting and pasting?

 

[kmayo503]

are you wanting to get a report from all the data or just combine it?

 

[amandarose80]

Just combine it so it's all on one worksheet for sorting and filtering.

 

[SkipVought]

So you want some VBA?

Sub test()
    Set wsSummary = ActiveSheet
    For Each ws In Worksheets
      If ws.Name <> wsSummary.Name Then
        With wsSummary.UsedRange
          ws.UsedRange.Copy _
            Destination:=wsSummary.[A1].Offset(.Row + .Rows.Count, 1)
        End With
      End If
    Next
End Sub

Hope this helps


Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com