#1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
viktor
 
Posts: n/a
Default double records

Hi,

How can i get the double records from one column with multiple
records(thousends)?

thanks!
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Niek Otten
 
Posts: n/a
Default double records

http://www.digdb.com/excel_add_ins/d...remove_dedupe/

--
Kind regards,

Niek Otten

"viktor" wrote in message
...
Hi,

How can i get the double records from one column with multiple
records(thousends)?

thanks!



  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Bruno Campanini
 
Posts: n/a
Default double records

"viktor" wrote in message
...
Hi,

How can i get the double records from one column with multiple
records(thousends)?


The following writes from TargetSource down, all duplicates found
in SourceRange down.
Just set your Source and Target ranges in Definitions.
=========================================
Sub WriteDuplicates()
Dim SourceRange As Range, TargetRange As Range
Dim i, j As Long, TestColl As New Collection

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

' Definitions
' ---------------------------------
Set SourceRange = [Sheet10!AA189]
Set TargetRange = [Sheet10!AB189]
' ---------------------------------
If Not IsEmpty(SourceRange(2, 1)) Then
Set SourceRange = SourceRange.Resize _
(SourceRange.End(xlDown).Row - SourceRange.Row + 1)
End If
For Each i In SourceRange
On Error GoTo WriteDuplicate
TestColl.Add i, CStr(i)
Continue:
Next

Exit_Sub:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub

WriteDuplicate:
j = j + 1
TargetRange(j, 1) = i
Resume Continue

End Sub
==========================
Ciao
Bruno


  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Roland
 
Posts: n/a
Default double records

Viktor,

Here's a technique that I use.

Assume your list is in column A starting with a header in cell A1, data
in cel A2, and as you said, runs over a thousand rows.

In cell B11 type this formula

=VLOOKUP(A11,A$1:A10,1,FALSE)

Copy the formula up and down column B to match your data.

A #N/A will appear next to the first instance of each data value. A
repeat of the data value will appear next to the 2nd and subsequent
occurances.





"viktor" wrote:

Hi,

How can i get the double records from one column with multiple
records(thousends)?

thanks!

  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
viktor
 
Posts: n/a
Default double records

thank's, Roland! the formula was very usefull!
For Niek: when i will have some free time, i will study the forward site
that you give me! The thank's are for you, alsow!

"Roland" wrote:

Viktor,

Here's a technique that I use.

Assume your list is in column A starting with a header in cell A1, data
in cel A2, and as you said, runs over a thousand rows.

In cell B11 type this formula

=VLOOKUP(A11,A$1:A10,1,FALSE)

Copy the formula up and down column B to match your data.

A #N/A will appear next to the first instance of each data value. A
repeat of the data value will appear next to the 2nd and subsequent
occurances.





"viktor" wrote:

Hi,

How can i get the double records from one column with multiple
records(thousends)?

thanks!

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Add excel horizontal & vertical ruler snbahri Excel Worksheet Functions 8 December 1st 06 07:18 PM
Calculating p-value from Fisher's Exact Test Ian Smith Excel Worksheet Functions 1 September 28th 05 08:00 PM
Top 90% of records - Bring out number [email protected] Excel Discussion (Misc queries) 4 August 22nd 05 11:45 AM
display set of records in a form with previous and next button jophy j via OfficeKB.com New Users to Excel 3 July 25th 05 12:42 PM
Deleting specific records [email protected] Excel Discussion (Misc queries) 6 June 22nd 05 11:35 PM


All times are GMT +1. The time now is 12:32 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"