こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2019-01-12 09:25:29

QNo.9576851

困ってます

質問者が選んだベストアンサー

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

投稿日時 - 2019-01-12 10:22:15

お礼

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

投稿日時 - 2019-01-12 12:47:27

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(1)

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-