Tuesday, 25 September 2012

Excel VBA Macro To Concatenate Each Sheet Data In Main Sheet

Excel VBA Macro To Concatenate  Each Sheet Data In Main Sheet
'Each Column of Each Sheet Comes Side By Side(Concatenation Mode) in Main Sheet

Sub ConcateSheets()
Dim X As Integer
Dim Y As Integer
Dim Z As Integer

Dim W As Worksheet
Dim A As Integer

A = 0 'Variable for Column Increment In Main Sheet

For Each W In Worksheets
If W.Name <> Sheets("MAIN").Name Then

For X = 1 To 10

If Cells(X, 1) <> "" Then

Z = Z + 1 'Row Increment Variable

For Y = 1 To 26

Sheets("MAIN").Cells(Z, A + Y) = W.Cells(X, Y)
If Cells(1, Y) = "" Then Exit For

Next Y

End If

Next X

A = A + Y - 1 'Variable for Columns Join In Main Sheet

End If

Z = 0
Next W

End Sub

No comments:

Post a Comment

Hi User, Thank You for Visiting My Blog. Please Post Your Feedback/Comments/Query.

Subscribe to Blog Posts by Email

ExcelKingdom-Popular Posts

ExcelKingdom-Random Posts