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
W.Activate

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

Follow Me by Email

ExcelKingdom-Popular Posts

ExcelKingdom-Random Posts