I wonder how can I run this code in less than 1 hour. into one cell, and leave the training courses and experiences as it is.
The code above will merge the all cells containing repeated data like User Name, Date of Birth. If Cells(i, 2).Value Cells(i + 1, 2).Value And Cells(i, 2).Value Cells(i - 1, 2).Value ThenĬells(intUpper, 14).Value = Cells(intUpper, 13).ValueĪpplication.Calculation = xlCalculationAutomatic Range(Cells(i, 1), Cells(i, 26)).Borders(xlEdgeBottom).LineStyle = xlDouble Range(Cells(intUpper, 14), Cells(i, 14)).Merge Range(Cells(intUpper, x), Cells(i, x)).Merge If Cells(i, 2).Value Cells(i + 1, 2).Value And Cells(i, 2).Value = Cells(i - 1, 2).Value Thenĭebug.Print (" +1 and = -1:" & i & "LOWER LIMIT") If Cells(i, 2).Value Cells(i - 1, 2).Value And Cells(i, 2).Value = Cells(i + 1, 2).Value Thenĭebug.Print (" -1 and = +1 " & intUpper & " UPPPER LIMIT") If Cells(i, 2).Value Cells(i - 1, 2).Value And Cells(i, 2).Value Cells(i + 1, 2).Value Then
LastRow = Worksheets("A").Range("A65536").End(xlUp).RowĪpplication.Calculation = xlCalculationManual
Merging cells in excel 2000 how to#
I have wrote the following code to merge cells in excel, the data is around 26000 rows, the code is running on core I7 CPU with 8 GB RAM, the problem that it still working since 4 days, the average rows per day is 3000 row!, any one know how to get the result, because its a report that should be delivered since three days! Sub MergeCellss()
0 kommentar(er)
