Need Excel formula to count repeaters
- Thread starter taaroa
- Start date
goksel2019
Member
lotto-007 best solution for u u can filter and u can convert results to excel best for u
goksel2019
Member
Name : 2006 Serial: 0550-WUZT-3038-UAXA serial good luck for all
blitzed
Member
taaroa said:
Hi taaroa. Yes, it is partly Gap, Skip, Cold, whateverya want to call it. Having accurate filters helps tremendously.
Probabilities are key to my wins. Playin numberfields which consist of where say 62% to 75% of the drawn numbers come from is the best base strategy I've figured out so far.
If the number playfield can be reduced by as much as 25% straight away, that is a great foundation for other strategies. Many times I can accurately reduce the playfield for a certain ballslot by as much as 50%, if recent draws are really touching upon the fringes of probability.
One problem however, is to not get carried away with excessive draw history...otherwise too many anomalies will pop up. Also, the larger the sample of history, the more the risk is that new draw machines and/or procedures or whatever are dropped into place.
later,
blitzed
Hi,blitzed said:
I do think the whole history is only good to get an idea on how the draws behave. The statistics on this history are the basis : end digits, decades, etc...But, for next drawings to play I use the recent trends of different groups. I spoke here of 5 consecutive draws and how much hits you got on all 5 draws groups. This help for eliminating numbers.
I do the same for Gaps any method.
I have observed that the lotto is sinusoïd. A method work for a time then go bad then become better and so on... I play when the results are going good then stop when the results are going bad.
This is probably why some forecasters often change their method. Some others change every day after copying others methods and put it on forums. These are thieves.
I also think that forecasting with good results is a lot of job. When you get one result with one method you must then look at others statistics and groups to see if they give similar results. Only after that you can rely on the numbers you have.
I look first at groups results then look at skips i.e the number of times the number don't come up. As I said in previous posts, I choose numbers which have been out 21 to 26. The optimum is 23. The skip method author was Jean-Pierre Macaire in the 70's. Nothing new. I always have his method book.
There are other valuable methods. Ion Saliu site have good ones.
But, never think you'll find the magic method. You must work a lot, study the statistics for the games you play, read carefully forums (this one is one of the best - Read Eliminator and Isolators for those who play 49S UK), and then be patient. Don't change your method each day. Wait and see.
taaroa
Counting pairs
b_gold
If you are interested in getting only the number of times 2 specific numbers have come out, for each draw, you could use a formula such as :
IF(COUNTIF(Range;N1)+COUNTIF(Range;N2)=2;1;0) where Range is the range of the winning numbers and N1 and N2 the two numbers you are interested in. Then just add up the 1 you get and you have your answer.
Maybe more interesting is the Pairs macro given below which will list all pairs (1176 of them from 1-2 to 48-48 and the number of times they have come out. On Sheet1, have labels in cells A1 to G1 identifying Draw# and N1, N2, N3, N4, N5 and N6. Then, starting in row 2, list the draw number and the winning numbers N1 to N6. On Sheet2, have labels such as No 1, No 2 and Times in cells A1 to C1. Run the macro and you will have how often any two pair of numbers have come out.
Option explicit
Sub Pairs()
Dim I As Integer, J As Integer
Dim nDoubl(49, 49) As Integer, nNb(6) As Integer
Application.ScreenUpdating = False
For I = 1 To 49
For J = I + 1 To 49
nDoubl(I, J) = 0
Next J
Next I
Sheets("Sheet1").Select
Range("A2").Select
Do While ActiveCell.Value <> ""
For J = 1 To 6
nNb(J) = ActiveCell.Offset(0, J).Value
Next J
nDoubl(nNb(1), nNb(2)) = nDoubl(nNb(1), nNb(2)) + 1
nDoubl(nNb(1), nNb(3)) = nDoubl(nNb(1), nNb(3)) + 1
nDoubl(nNb(1), nNb(4)) = nDoubl(nNb(1), nNb(4)) + 1
nDoubl(nNb(1), nNb(5)) = nDoubl(nNb(1), nNb(5)) + 1
nDoubl(nNb(1), nNb(6)) = nDoubl(nNb(1), nNb(6)) + 1
nDoubl(nNb(2), nNb(3)) = nDoubl(nNb(2), nNb(3)) + 1
nDoubl(nNb(2), nNb(4)) = nDoubl(nNb(2), nNb(4)) + 1
nDoubl(nNb(2), nNb(5)) = nDoubl(nNb(2), nNb(5)) + 1
nDoubl(nNb(2), nNb(6)) = nDoubl(nNb(2), nNb(6)) + 1
nDoubl(nNb(3), nNb(4)) = nDoubl(nNb(3), nNb(4)) + 1
nDoubl(nNb(3), nNb(5)) = nDoubl(nNb(3), nNb(5)) + 1
nDoubl(nNb(3), nNb(6)) = nDoubl(nNb(3), nNb(6)) + 1
nDoubl(nNb(4), nNb(5)) = nDoubl(nNb(4), nNb(5)) + 1
nDoubl(nNb(4), nNb(6)) = nDoubl(nNb(4), nNb(6)) + 1
nDoubl(nNb(5), nNb(6)) = nDoubl(nNb(5), nNb(6)) + 1
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
Sheets("Sheet2").Select
Range("A1").Select
For I = 1 To 48
For J = I + 1 To 49
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 0).Value = I
ActiveCell.Offset(0, 1).Value = J
ActiveCell.Offset(0, 2).Value = nDoubl(I, J)
Next J
Next I
Application.ScreenUpdating = True
Range("A2").Select
End Sub
Have fun!
b_gold
If you are interested in getting only the number of times 2 specific numbers have come out, for each draw, you could use a formula such as :
IF(COUNTIF(Range;N1)+COUNTIF(Range;N2)=2;1;0) where Range is the range of the winning numbers and N1 and N2 the two numbers you are interested in. Then just add up the 1 you get and you have your answer.
Maybe more interesting is the Pairs macro given below which will list all pairs (1176 of them from 1-2 to 48-48 and the number of times they have come out. On Sheet1, have labels in cells A1 to G1 identifying Draw# and N1, N2, N3, N4, N5 and N6. Then, starting in row 2, list the draw number and the winning numbers N1 to N6. On Sheet2, have labels such as No 1, No 2 and Times in cells A1 to C1. Run the macro and you will have how often any two pair of numbers have come out.
Option explicit
Sub Pairs()
Dim I As Integer, J As Integer
Dim nDoubl(49, 49) As Integer, nNb(6) As Integer
Application.ScreenUpdating = False
For I = 1 To 49
For J = I + 1 To 49
nDoubl(I, J) = 0
Next J
Next I
Sheets("Sheet1").Select
Range("A2").Select
Do While ActiveCell.Value <> ""
For J = 1 To 6
nNb(J) = ActiveCell.Offset(0, J).Value
Next J
nDoubl(nNb(1), nNb(2)) = nDoubl(nNb(1), nNb(2)) + 1
nDoubl(nNb(1), nNb(3)) = nDoubl(nNb(1), nNb(3)) + 1
nDoubl(nNb(1), nNb(4)) = nDoubl(nNb(1), nNb(4)) + 1
nDoubl(nNb(1), nNb(5)) = nDoubl(nNb(1), nNb(5)) + 1
nDoubl(nNb(1), nNb(6)) = nDoubl(nNb(1), nNb(6)) + 1
nDoubl(nNb(2), nNb(3)) = nDoubl(nNb(2), nNb(3)) + 1
nDoubl(nNb(2), nNb(4)) = nDoubl(nNb(2), nNb(4)) + 1
nDoubl(nNb(2), nNb(5)) = nDoubl(nNb(2), nNb(5)) + 1
nDoubl(nNb(2), nNb(6)) = nDoubl(nNb(2), nNb(6)) + 1
nDoubl(nNb(3), nNb(4)) = nDoubl(nNb(3), nNb(4)) + 1
nDoubl(nNb(3), nNb(5)) = nDoubl(nNb(3), nNb(5)) + 1
nDoubl(nNb(3), nNb(6)) = nDoubl(nNb(3), nNb(6)) + 1
nDoubl(nNb(4), nNb(5)) = nDoubl(nNb(4), nNb(5)) + 1
nDoubl(nNb(4), nNb(6)) = nDoubl(nNb(4), nNb(6)) + 1
nDoubl(nNb(5), nNb(6)) = nDoubl(nNb(5), nNb(6)) + 1
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
Sheets("Sheet2").Select
Range("A1").Select
For I = 1 To 48
For J = I + 1 To 49
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 0).Value = I
ActiveCell.Offset(0, 1).Value = J
ActiveCell.Offset(0, 2).Value = nDoubl(I, J)
Next J
Next I
Application.ScreenUpdating = True
Range("A2").Select
End Sub
Have fun!