If my previous reply is there and somehow not showing up, I apologize for the repeat.Īs Terry X already pointed out, it would really be helpful to have some kind of sample data or a sample workbook to measure the performance of the code. *Note: I thought I submitted a reply to this question before but it seems like it disappeared so I am posting it again. MsgBox "Done!" & vbNewLine & "Run Time = " & RunTime & " seconds", vbInformation J = jmax1 + 1 Exit For End If Next End If If merge > 0 Then 'when I removed this merge line, the speed is good, like I said before MsgBox "Run Time = " & RunTime & " seconds", vbInformationĭim colId1 As Long, colId2 As Long Dim colct As Long RunTime = Round ( Timer - StartTime, 2 ) I = 1 Do While i 0 Then 'when I removed this merge line, the speed is good, like I said before Resize ( maxRows, maxCols ) Dim chk As Long MaxCols = 55 Dim Rng As Range, Rng3 As Range Calculation = xlCalculationManualĭim i As Long, j As Long, jmax1 As Long, maxRows As Long, maxCols As Long Dim merge As Long, iMerge As Long, jMerge As Long, Jump As Long Dim chckst As String Sub MergeCell () Dim StartTime As Double, RunTime As DoubleĪpplication. If you have any suggestion regarding my code, please share it. I concluded that there is something not correct on the merge process, but I couldn't figure it out. I tried to remove the merge line for checking, and the time is only 1 second.
#TEXT DISAPPEARS IN EXCEL CELLS 2017 CODE#
The time to finish this code is at least 4 minutes. I have created the code below, but I am facing a performance issue. if step 1 is false, then merge the cells from cell(row, col) until cell(row, col + n - 1).if the cell(row, col) and cell (row, col + 1) are not merged, if cell (row, col) and cell (row, col + 1) have the same value, go to next column.if step 1 is false, then go to the next columnĪfter that, I have to merge on row based (still for each 2 rows).if step 2 or 3 is false, then merge the cells from the first cell (row, col) until the last cell that have same value (cell(row + 1, col + n - 1).if it has same value, compare cell (row, col+1) and (row+1, col+1), check the next column, and go to step 1.If it has same value, compare cell (row, col) and (row, col+1).compare cell (row, col) and (row+1, col).
The first step is merged on column based (for each 2 rows): My purpose is to merge the cells (in each 2 rows) that have same value using some steps. I have 42 rows and 55 columns (it can be increased).
I have a performance problem in my VBA-Excel code.
0 kommentar(er)
