Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
need help finding unique numbers ( to 2.d.p).
Hi! I'm doing a sweepstake:
http://www.standardsbigbid.com/londo...Help.php#works and thought this would be the best news group to discuss the possibilities...I know for a fact (via other news groups/ forums) that the following amounts, so far, are not unique: £1.00, £1.01, £1.11,£1.13, £1.18 £1.45, £1.49, £1.75, £2.00, £2.33, £2.63, £3.00, £3.11, £3.26, £3.32, £3.57, £4.00, £4.64, £5.00, £5.23£5.73, £6.00, £6.17,£6.19, £7.00, £7.57, £7.58, £7.77, £7.83, £8,00, £8.53, £8.58, £8.68, £8.71, £9.57, £9.87, £10.00, £10.23, £10.89, £11.00, £11.14, £11.17, £11.50, £11.63, £11.71, £11.73, £12.00, £12.27, £12.34, £13.00, £13.02, £13.13, £13.18, £14.00, £14.02, £14.14, £14.89, £15,00, £15.56, £19.73, £19.76, £20.00, £22.22, £23.52, £27.47, £29.09 £31.91, £687.65 Thanks for listening theshak |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
need help finding unique numbers ( to 2.d.p).
Hi, the following macro will extract unique values. The
input range is Rng1 and the output range is Rng2. Sub ListUniqueVal() Dim Rng1 As Range Dim Rng2 As Range Dim Cell As Range Dim UniqueValues As New Collection Set Rng1 = Range("B4:C10") Set Rng2 = Range("E4") On Error Resume Next For Each Cell In Rng1 UniqueValues.Add Cell.Value, CStr(Cell.Value) Next Cell For Each Item In UniqueValues Rng2.Value = Item Set Rng2 = Rng2.Offset(1, 0) Next Item End Sub John Mansfield pdbook.com -----Original Message----- Hi! I'm doing a sweepstake: http://www.standardsbigbid.com/londo...nt/php/Help.ph p#works and thought this would be the best news group to discuss the possibilities...I know for a fact (via other news groups/ forums) that the following amounts, so far, are not unique: £1.00, £1.01, £1.11,£1.13, £1.18 £1.45, £1.49, £1.75, £2.00, £2.33, £2.63, £3.00, £3.11, £3.26, £3.32, £3.57, £4.00, £4.64, £5.00, £5.23£5.73, £6.00, £6.17,£6.19, £7.00, £7.57, £7.58, £7.77, £7.83, £8,00, £8.53, £8.58, £8.68, £8.71, £9.57, £9.87, £10.00, £10.23, £10.89, £11.00, £11.14, £11.17, £11.50, £11.63, £11.71, £11.73, £12.00, £12.27, £12.34, £13.00, £13.02, £13.13, £13.18, £14.00, £14.02, £14.14, £14.89, £15,00, £15.56, £19.73, £19.76, £20.00, £22.22, £23.52, £27.47, £29.09 £31.91, £687.65 Thanks for listening theshak . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
need help finding unique numbers ( to 2.d.p).
umm, could you give us a sample, please. Thanks
"John Mansfield" kirjoitti viestissä ... Hi, the following macro will extract unique values. The input range is Rng1 and the output range is Rng2. Sub ListUniqueVal() Dim Rng1 As Range Dim Rng2 As Range Dim Cell As Range Dim UniqueValues As New Collection Set Rng1 = Range("B4:C10") Set Rng2 = Range("E4") On Error Resume Next For Each Cell In Rng1 UniqueValues.Add Cell.Value, CStr(Cell.Value) Next Cell For Each Item In UniqueValues Rng2.Value = Item Set Rng2 = Rng2.Offset(1, 0) Next Item End Sub John Mansfield pdbook.com -----Original Message----- Hi! I'm doing a sweepstake: http://www.standardsbigbid.com/londo...nt/php/Help.ph p#works and thought this would be the best news group to discuss the possibilities...I know for a fact (via other news groups/ forums) that the following amounts, so far, are not unique: £1.00, £1.01, £1.11,£1.13, £1.18 £1.45, £1.49, £1.75, £2.00, £2.33, £2.63, £3.00, £3.11, £3.26, £3.32, £3.57, £4.00, £4.64, £5.00, £5.23£5.73, £6.00, £6.17,£6.19, £7.00, £7.57, £7.58, £7.77, £7.83, £8,00, £8.53, £8.58, £8.68, £8.71, £9.57, £9.87, £10.00, £10.23, £10.89, £11.00, £11.14, £11.17, £11.50, £11.63, £11.71, £11.73, £12.00, £12.27, £12.34, £13.00, £13.02, £13.13, £13.18, £14.00, £14.02, £14.14, £14.89, £15,00, £15.56, £19.73, £19.76, £20.00, £22.22, £23.52, £27.47, £29.09 £31.91, £687.65 Thanks for listening theshak . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
finding unique values | Excel Discussion (Misc queries) | |||
Finding Unique/Duplicates | Excel Worksheet Functions | |||
Finding unique names--then converting those names to unique number | Excel Discussion (Misc queries) | |||
Finding unique numbers in a column | Excel Discussion (Misc queries) | |||
Finding unique sets of numbers that total 200 | Excel Programming |