Delete non formated values

[BryanH]

I have another issue to resolve, as per attached I need to automate a process that removes all figures that do not have color fill in the cell (it is not conditional format)

Table 1 I have
Table 2 is what the result needs to be

This table has 2427 row and 26 columns

any help will be appreciated in kind

Thanks!

 

[Khalid NGO]

Hi Bryan,

I've tried this code and runs fine:

Sub Clear_contents()

Range("C2:I17").Select 'change as per your requirement
For Each cell In Selection
    If cell.Interior.Color = vbWhite Then
    cell.Clear
    End If
Next

End Sub

You just need to change cell color to white for the cells need to be cleared.

code copy from

Regards,

 

[Khalid NGO]

Not sure about the speed and how it works on 26 columns and 2427 rows.
Regards,

 

[John Jairo V]

Hi!
Another Code (Similar to @Khalid NGO):

Sub TestClear()
    Dim C As Range, t!
    t = Timer: Application.ScreenUpdating = 0
    For Each C In Range("C3:AB2430") 'Change to your Range
        If C.Interior.Color <> RGB(253, 233, 217) Then C.Clear
    Next C
    Set C = Nothing: Application.ScreenUpdating = 1
    MsgBox "Done! Time taken: " & Format(Timer - t, "0.00 seg.")
End Sub

The time taken with the data size you post was around 3,3 seg. (in my computer). Please Comment! Blessings!