02 03 15 = no, there are two zeros
12.15,35 = no, it has 1.5 doubles
In other words, the trios have 6 different digits
Example = 02,15,38 = 0,1,2,3,5,8 = there is no digit repetition
Two possible digits from 0 to 9 please
02 03 15 = no, there are two zeros
12.15,35 = no, it has 1.5 doubles
In other words, the trios have 6 different digits
Example = 02,15,38 = 0,1,2,3,5,8 = there is no digit repetition
Two possible digits from 0 to 9 please
Please Login or Register to view this content.
hello.Jindon is giving a false message
False mans not unique, True = Unique
01 02 03 02 31
01 02 04 ?
01 02 05
01 02 06
01 02 07
01 02 08
01 02 09
01 02 10
01 02 11
01 02 12
01 02 13
01 02 14
01 02 15
01 02 16
01 02 17
01 02 18
01 02 19
01 02 20
01 02 21
01 02 22
01 02 23
01 02 24
01 02 25
01 02 26
01 02 27
01 02 28
01 02 29
?....................
corret sorry
01 02 03 02 31 45
01 02 04 ?
01 02 05
01 02 06
01 02 07
01 02 08
01 02 09
01 02 10
01 02 11
01 02 12
01 02 13
01 02 14
01 02 15
01 02 16
01 02 17
01 02 18
01 02 19
01 02 20
01 02 21
01 02 22
01 02 23
01 02 24
01 02 25
I have a list of 82 thousand trios. The macro has to separate in a list next to only trios
Formed with six different digits.
Upload a sample workbook with data/desired result.
Sorry, but no idea about what you are trying to do.
Wait someone else to comes in...
I simply need to separate the triads without repeating digits from a given list
Based on file on post #13 (mediafire) :
Please Login or Register to view this content.
1. I care dog
2. I am a loop maniac
3. Forum rules link : Click here
3.33. Don't forget to mark the thread as solved, this is important
hello, KAREDOG perfect conglatulations
thank you!!!
Karedog the list is larger than 82500 trios
Macro does not
I did not put it on the flat because of the size
ReDim b(0 To 9)
For j = 1 To 3
k = CLng(Left$(a(i, j), 1)): b(k) = b(k) + 1
k = CLng(Right$(a(i, j), 1)): b(k) = b(k) + 1
Next j
I don't see a problem with 82500 items.
Please upload the workbook (you can upload it to mediafire, because there is file size limitation here in excelforum).
Jorel, I have downloaded the file and run the macro. It is run very well on my computer, no error and gives expected result.
Karedog== 05 16 28 ??? ........
02 43 79???
Makro has swept the whole list is logical !! You have to do all the list and do not start by example.
I have found the culprit, it is caused by Excel automatic data conversion, changing string like "03" into numeric "3" (discard the zero).
Please add the red line code :
Please Login or Register to view this content.
Dim a, i As Long, j As Long, k As Long, p As Long, t As Long
a = Range("A4:C" & Cells(Rows.Count, "A").End(xlUp).Row).Value
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks