固定数字から使用した数字の残りを表示する。

質問

お世話になっています。
質問があります。
添付図の様に数字が1から50まで固定値としてあります。
その下に検索対象として５×６マスが１から５まで有り、
数字がランダムに1から50迄、重複有りで入っています。
右側に検索対象として出てこなかった数字を昇順で左から並べるには
どうすればよいでしょうか？
よろしくお願いします。

回答No.1

watabe007 · ベストアンサー

Sub Test()
　　Dim r As Long, n As Long, i As Long
　　For r = 3 To 31 Step 7
　　　　For n = 1 To 50
　　　　　　If Application.CountIf(Cells(r, "A").Resize(6, 6), n) = 0 Then
　　　　　　　　i = i + 1
　　　　　　　　Cells(r, "H").Resize(6, 5).Item(i).Value = n
　　　　　　End If
　　　　Next
　　　　i = 0
　　Next
End Sub

お礼

ありがとうございます。
同じ結果になりました。