This procedure is somewhere between 2 and 3 screens high on my laptop: when I'm at the bottom of the procedure, I don't know what I'm looking at, so I scroll back up to this wall of declarations, parse the chunk of code, locate the variable I'm looking for, then scroll back down to where I was. Would be very grateful for any code optimizations!ĭon't do this. Merging only when the 'base/initial' cell is not the same as a 'check' cell and merge all appropriate cells all together (not by each row), but I can't find a way to make it work. I tried to create a different logic to initiate 'merge' by blocks (skip merging the same value cells in the first column right away): Range(Cells(myFirstRow + i - 1, k), Cells(myFirstRow + i, k)).EntireRow.AutoFit Range(Cells(myFirstRow + i - 1, 8), Cells(myFirstRow + i, 8)).WrapText = True Range(Cells(myFirstRow + i - 1, k), Cells(myFirstRow + i, k)).VerticalAlignment = xlCenter Range(Cells(myFirstRow + i - 1, k), Cells(myFirstRow + i, k)).HorizontalAlignment = xlCenter Range(Cells(myFirstRow + i - 1, k), Cells(myFirstRow + i, k)).Merge N = Cells(myFirstRow + i + 1, myFirstColumn)įor k = 1 To m圜ol - 3 'need to merge data per column but don't need to merge data in the last 3 columns IRow = Cells(myFirstRow + i, myFirstColumn) Range(Cells(myFirstRow, 1), Cells(myFirstRow, m圜ol - 3)).EntireRow.AutoFit Range(Cells(myFirstRow, 8), Cells(myFirstRow, 8)).WrapText = True Range(Cells(myFirstRow, 1), Cells(myFirstRow, m圜ol - 3)).VerticalAlignment = xlCenter

Range(Cells(myFirstRow, 1), Cells(myFirstRow, m圜ol - 3)).HorizontalAlignment = xlCenter Set n = Cells(myFirstRow + 1, myFirstColumn) Set iRow = Cells(myFirstRow, myFirstColumn) 'Apply formatting to the end of the table: MyRow = Range(Cells(3, 1), Cells(3, 1).End(xlDown)).Count + 2 'first two rows are headers I wrote a VBA code and it works but it works very slow as it executes 'merge' function per each row no matter if consequent cells are the same or different. Need to merge data per column if records in the first column are the same.

How do i merge duplicate rows in excel