conditional append data

[onenessboy]

Hi experts,

I have a excel file with two columns like below:
[TABLE="width: 500"]
<tbody>[TR]
[TD][TABLE="width: 272"]
<tbody>[TR]
[TD="class: xl65, width: 272"]ep_expired_access[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 580"]
<tbody>[TR]
[TD="class: xl65, width: 580"]Number of times an item was expired on[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]application access.[/TD]
[/TR]
[TR]
[TD]ep_expired_compactor[/TD]
[TD]Number of times an item was expired by[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]the ep engine compactor[/TD]
[/TR]
[TR]
[TD]ep_expired_pager[/TD]
[TD]Number of times an item was expired by ep engine item pager[/TD]
[/TR]
[TR]
[TD]ep_item_flush_expired[/TD]
[TD]Number of times an item is not flushed,due to the expiry of the item[/TD]
[/TR]
[TR]
[TD][TABLE="width: 272"]
<tbody>[TR]
[TD="class: xl65, width: 272"]ep_queue_size[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Number of items queued for storage[/TD]
[/TR]
</tbody>[/TABLE]

I need to append extra row value appended something like this

[TABLE="width: 500"]
<tbody>[TR]
[TD][TABLE="width: 272"]
<tbody>[TR]
[TD="class: xl65, width: 272"]ep_expired_access[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 580"]
<tbody>[TR]
[TD="class: xl65, width: 580"]Number of times an item was expired on application access.[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD]ep_expired_compactor[/TD]
[TD]Number of times an item was expired by the ep engine compactor[/TD]
[/TR]
[TR]
[TD]ep_expired_pager[/TD]
[TD]Number of times an item was expired by ep engine item pager[/TD]
[/TR]
[TR]
[TD]ep_item_flush_expired[/TD]
[TD]Number of times an item is not flushed,due to the expiry of the item[/TD]
[/TR]
[TR]
[TD][TABLE="width: 272"]
<tbody>[TR]
[TD="class: xl65, width: 272"]ep_queue_size[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]Number of items queued for storage[/TD]
[/TR]
</tbody>[/TABLE]

Can you please help

Regards
ASP

****** id="cke_pastebin" style="position: absolute; top: 283.2px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">[TABLE="width: 500"]
<tbody>[TR]
[TD]ep_expired_pager

[/TD]
[/TR]
</tbody>[/TABLE]
</body>

 

[Joe4]

Welcome to the Board!

Assuming that your data is in columns A and B, try this:

Sub MyCombine()

    Dim lRow As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column B with data
    lRow = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Loop through all rows starting from bottom and moving up
    For r = lRow To 2 Step -1
'       Check to see if column A is blank
        If Cells(r, "A") = "" Then
'           Combine with row B above
            Cells(r - 1, "B") = Cells(r - 1, "B") & " " & Cells(r, "B")
'           Delete current row
            Rows(r).Delete
        End If
    Next r
    
    Application.ScreenUpdating = True
        
End Sub

 

[onenessboy]

Thanks a ton Joe4 ..

this saved me lot of hours thank you very much again

 

[Joe4]

You are welcome!
Glad I was able to help.