No.2ベストアンサー
- 回答日時:
思い通りに動かなかったようですね。
↓のコードに変更してみてください。
Sub Sample2()
Dim i As Long, myMax As Long
Dim cnt As Long, wS As Worksheet
Set wS = Worksheets(2)
wS.Range("A:A").ClearContents
With Worksheets("図書")
myMax = WorksheetFunction.Max(.Range("A:A"))
For i = 1 To myMax
If WorksheetFunction.CountIf(.Range("A:A"), i) = 0 Then
cnt = cnt + 1
wS.Cells(cnt, "A") = i
End If
Next i
End With
MsgBox "処理完了"
End Sub
※ 前回とまったく同じやり方ですが、
「図書」SheetのA列の抜けている番号をSheet見出しの2番目のSheetのA列に順に表示しています。
すなわち「図書」SheetはSheet見出しの左から2番目に配置しないでください。
(Sheet見出しの2番目以外であればどこにあっても構いません)
今度はどうでしょうか?m(_ _)m
tom04様
すばらしいです!今度は一瞬にして反映されました。欠番のナンバーのみが縦一列にスーーーッと登場した時は、驚きと嬉しさで「うわあっ」と小さく叫んでしまい、同僚に不審がられました。
表に存在しない番号が抽出できるなんて半分無理だと思っていたのですが、魔法を見ているみたいです。
本当にありがとうございました。陰ながら(見ず知らずの方ではありますが)ご健勝をお祈り申し上げます。
No.1
- 回答日時:
こんにちは!
VBAになりますが、一例です。
元データの配置が判らないので
元データはSheet1にあり、A列に番号が入っているとします。
欠番をSheet2のA列に順次表示するようにしています。
Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)マクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() 'この行から//
Dim i As Long, myMax As Long
Dim cnt As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Range("A:A").ClearContents
With Worksheets("Sheet1")
myMax = WorksheetFunction.Max(.Range("A:A"))
For i = 1 To myMax
If WorksheetFunction.CountIf(.Range("A:A"), i) = 0 Then
cnt = cnt + 1
wS.Cells(cnt, "A") = i
End If
Next i
End With
MsgBox "処理完了"
End Sub 'この行まで//
※ 1番から最終番号まで順にループさせていますので
若干の時間を要するかもしれません。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで欠番を見付けるには
Excel(エクセル)
-
Excelで連番でない数字を割り出す関数
その他(データベース)
-
excelで欠番を探す方法
Windows Vista・XP
-
-
4
欠番の抽出について
Excel(エクセル)
-
5
エクセル A表にあってB表に無い値を探したいのですが
Excel(エクセル)
-
6
Excel上でのデータ数字が連番であることを確認する方法を教えてくださ
その他(Microsoft Office)
-
7
エクセル 連番が途切れているところに空白行を入れる
Excel(エクセル)
-
8
Excelで[表1]にあって、[表2]にないものを抽出する関数
その他(Microsoft Office)
-
9
EXCELで通し番号の行に欠番有りの番号の行を照応させる方法を教えてください。
その他(Microsoft Office)
-
10
SUMIF関数で、「ブランク以外を合計」を指定したい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WEB上の表の列コピー選択方法は?
-
エクセルで作成した縦に長い表...
-
【エクセル】行挿入で数式もい...
-
メモ帳からエクセルに貼り付け...
-
エクセルのリストから欠番を拾...
-
一つのシートの中に複数のペー...
-
エクセルの関数の使い方 繰越...
-
エクセルの列幅
-
Excelの数式のコピーで列移動で...
-
Excelのセルの中の見えないデー...
-
地番を順に並べたい。
-
オートフィルタのリストを順番...
-
マクロを強制的に有効にする方法
-
Excel 表から値をさがして隣の...
-
Excelピボットテーブルで 総計...
-
エクセルVBAで、行コピーを複数...
-
ワードでアンケートの集計をし...
-
Excelでセル参照したとき、書式...
-
勤続年数の平均を求めたい時の関数
-
エクセルの色も=イコールでき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで作成した縦に長い表...
-
一つのシートの中に複数のペー...
-
WEB上の表の列コピー選択方法は?
-
【エクセル】行挿入で数式もい...
-
オートフィルタのリストを順番...
-
メモ帳からエクセルに貼り付け...
-
エクセルのリストから欠番を拾...
-
エクセルVBAで、行コピーを複数...
-
Excel 表から値をさがして隣の...
-
Excelピボットテーブルで 総計...
-
エクセルの列幅
-
Excelの数式のコピーで列移動で...
-
エクセルの関数の使い方 繰越...
-
ピボットテーブル→参照が正しく...
-
エクセルに詳しい方、助けてく...
-
◆エクセルで行単位で重複検索し...
-
エクセルVBAでメモリ解放するに...
-
エクセルで各ページに同じ文書...
-
ACCESSのデータをEXCELに貼り付...
-
地番を順に並べたい。
おすすめ情報
最後の行”一括して”と書きましたが、削除します。地道に一個ずつでも良いです。よろしくお願いします。
tom04様、早速のご回答をありがとうございます。感謝いたします。
何度か試してみましたが、VBA画面で「実行時エラー'9': インデックスが有効範囲にありません」と表示されてしまいます・・・
私の認識不足に間違いないのですが、With Worksheets("Sheet1")のSheet1にはシート名を入れ、1行目の’この行から//と’この行まで//を削除してコードのみを入れてみました。やり方は間違っていますでしょうか?元データのシート名は「図書」で、1~8200の図書番号はA列に入っています。引き続きご教示頂けるようであればよろしくお願いいたします。