Removing duplicate entries?

[hrithik]

I have the following data in an excel sheet
A B C D E F G
unique member_id name phone email-id address date


I have the formula "IF(B2=B3,0,1)" in cell A2 and copied down column A.

I have duplicate entries in B, which sets the corresponding "unique" cell as '0'. Suppose cell A5 has unique field as '0';
Step 1: search for cells (like A5) in col A
Step 2: Copy all data in A6:G(last row) and paste it on A5:G5 row, thus removing the duplicate entry in A5:G5.

I have written the following macro to search for cells in col. A with value as '0'; I'm having a hard time writing the copy and paste macro to perform step 2. Please help!

Macro:
Sub NextZero()
Dim LR As Long, i As Long, b As Boolean, count As Long
count = 0
LR = Range("A" & Rows.count).End(xlUp).Row
If ActiveCell.Column <> 1 Then Range("A1").Select
For i = ActiveCell.Row + 1 To LR + 1
With Range("A" & i)
If .Value <> "" And Not .Value = "1" Then
b = True
Application.Run "CopyPaste"
count = count + 1
.Select
Exit For
End If
End With
Next i
If Not b Then MsgBox "No more", vbInformation

 

[venkat1926]

Do you need a macro.It would have been convenient if you had given a small extract of your data sheet. let us assume your data sheet is like this

Book2
	A	B	C	D	E	F	G
1	unique	member_id	name	phone	email-id	address	date
2	1	1	a	1	q	z	1
3	0	2	s	2	w	x	2
4	1	2	s	2	w	x	3
5	0	3	d	3	e	c	4
6	1	3	d	3	e	c	5
7	1	4	f	4	r	v	6
8	1	5	g	5	t	b	7
9	0	6	h	6	y	n	8
10	1	6	h	6	y	n	9
Sheet1

if this is the type of data you can just do autofilter
highlight the data . click data-filter-autofilter .
click the small arrow in column A and click 1
you get filtered data. you can select the filtered data and copy paste to any other area or sheet.
after copying again click data-filter-autofiler.
the filter is removed and original data has come

Is this not what you want??????