combining cells

V

vikram

Hi all

I need macro which clears the cell not delete if i have only number i
column A but if the cell has text and number it shudnt clear that cell

thanks

i have more than 30000 rows in column
 
K

kkknie

How about:

Code
-------------------
Sub ClearNumsFromA()

Dim i As Long

For i = 1 to Range("A65536").End(xlUp).Row
If IsNumeric(Range("A" & i).Value) Then Range("A" & i).ClearContents
Next

End Su
 
R

Ron de Bruin

Without a loop you can use this

Sub test()
Columns("A").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
End Sub
 
K

kkknie

Good info. I may be bumping up against that 8192 limit with some of th
code I've written. Mostly to search for a certain value in a colum
and set it to blanks. Then select all blanks and delete the rows.

I thought I'd found a wonderous tool, but it appears to have a prett
major watchout...

Thanks,
 
Top