[[20020722182227]]　『同一数値の検索と表題の検索』（ロト６当てたい君）　ページの最後に飛ぶ

『同一数値の検索と表題の検索』（ロト６当てたい君）

（Ａ）　（AA）（BB）（CC）（DD）（EE）（GG）

　1回　　　2　　10　　25　　29　　32　　43

  2回　　　5　　11　　22　　31　　35　　38

　　：

 90回　　　6　　20　　22　　29　　31　　35

検索対象　 7　　14　　16　　22　　36　　39

上の表のように1回～90回までの各6個の数値があり、検索対象の数値と4個以上同じ数値がある場合、（Ａ）欄の回数がピックアップできるようにしたいのですが教えて下さい。また、4個以上の場合同一個数も表示したいのですが‥。

 ほならまぁ、かなれっとはん、ROUGEせんぱいを見習って未解決ログの解消に取り組んでみまひょか。

 A3から下方向に回数
 B3からG92までデータを挿入（なんぼでもOK）
 B1からG1まで検索対象データを書き込み、ロト6を実行。あたりまへん。＾＾
      （弥太郎）
 '-----------------------
 Sub ロト6()
        Dim i As Long, n As Integer, Cnt As Integer, j As Integer, tbl, x()
        tbl = Cells(3, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row, 7)
        ary = Array(Cells(1, 2), Cells(1, 3), Cells(1, 4), Cells(1, 5), Cells(1, 6), Cells(1, 7))
        For i = 1 To UBound(tbl, 1)
            For n = 2 To 7
                If Not IsError(Application.Match(tbl(i, n), ary, 0)) Then
                    Cnt = Cnt + 1
                End If
            Next n
            If Cnt >= 4 Then
                j = j + 1
                ReDim Preserve x(1 To 2, 1 To j)
                x(1, j) = tbl(i, 1)
                x(2, j) = Cnt
            End If
            Cnt = 0
        Next i

        If j > 0 Then Cells(1, "i").Resize(j, 2) = Application.Transpose(x)
 End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20020722182227]] 『同一数値の検索と表題の検索』（ロト６当てたい君） ページの最後に飛ぶ

[[20020722182227]]　『同一数値の検索と表題の検索』（ロト６当てたい君）　ページの最後に飛ぶ