View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Ron Rosenfeld Ron Rosenfeld is offline
external usenet poster
 
Posts: 5,651
Default Replace numbers to 1s and 0s for presence/absence

On Thu, 10 Jan 2008 10:34:02 -0800, Charles
wrote:

I have a data set with percent values ranging from 0 to 1. I want to replace
all numbers greater than 0 to 1 in order to convert my data set to
presence/absence. How do I do this?


You could also use a macro.

For example:

=====================
Option Explicit
Sub OneZero()
Dim c As Range
For Each c In Selection
c.Value = -(c.Value < 0)
Next c
End Sub
======================

will convert any non-zero value to a 1; and leave 0's unchanged.

To enter the macro, <alt-F11 opens the VB Editor. Ensure your project is
highlighted in the project explorer window, then Insert/Module and paste the
code above into the windo that opens.

BACK UP YOUR DATA.

Select your data set
<alt-F8 opens the macro dialog box. Select the Macro and <RUN.


--ron