EXELで打ち込んだ数字の振り分けがしたいのですが・・。

質問

いつも助けていただいております。
新たな質問です。
ＥＸＥＬで、たとえばＡ列に数字を打ち込んでいき、
最終的にたとえば9000番代はＢ列に移して、
Ａ列の抜けた空白は埋めたいのですが・・。

回答No.2

myRange · ベストアンサー

＞Ａ列に順不同に数字を打ち込みます。
＞例、501　21　305　9201　215　9002　582　9301　28　・・・
＞マクロ実行
＞Ａ列は　501　21　305　215　582　28　・・（空白セル無し）
＞Ｂ列は　9201　9002　9301　・・・　　　　（空白セル無し）

ということであれば

'-------------------------
Sub test()
　Dim R As Long

　For R = 1 To Cells(Rows.Count, "A").End(xlUp).Row
　　　If Cells(R, "A").Value >= 9000 And Cells(R, "A").Value <= 9999 Then
　　　　　Cells(R, "B").Value = Cells(R, "A").Value
　　　　　Cells(R, "A").Value = ""
　　　End If
　Next R

　On Error Resume Next
　Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Delete xlUp
End Sub
'----------------------------

以上です。

お礼

ビューティフル！
ご回答本当にありがとうございます。
説明不足だったにもかかわらず一発で希望の結果が得られました！

回答No.1

9der-qder

A列の抜けた空白を埋めるとき、B列はどうなるのでしょうか。
それが分からなかったので、A列の9000番台をB列に移すところまでマクロを使わない前提で回答します。

B列に、
=IF(AND(Ax<10000,Ax>=9000),Ax,"")
を入力します。（"x"は行数）
B列をコピーして、同じところ（B列）で「形式を選択して貼り付け」－「値」で式ではなく値に変えます。
列ABにオートフィルタをかけ、B列を「空白以外のセル」でフィルタリングし、A列を消します。

これでA列の9000番台をB列に移すところまでは出来ます。

補足

すばやい対応、大変ありがとうございます。
また、私の説明不足、すみません。
また説明不足になるかもしれませんが、以下の通りに出来ればと・・。

Ａ列に順不同に数字を打ち込みます。例、501　21　305　9201　215　9002　582　9301　28　・・・

マクロ実行

Ａ列は　501　21　305　215　582　28　・・（空白セル無し）
Ｂ列は　9201　9002　9301　・・・　　　　（空白セル無し）

と言う具合です・・。あるいは打ち込む欄はＣ列とかでも大丈夫です。

説明になってるかな・・。

ちなみに先ほどの回答どおりのことは早速試してみましたが、バッチリでした！ありがとうございます。