エクセルのマクロ（ＶＢＡ）について質問です。

質問

お世話になります。
エクセルのマクロ（ＶＢＡ）について質問があります。
下記、わかりにくいと存じますが、お力添え下さい。

ある表があります。
項目としてＡ列「名前」Ｂ列「連絡先」Ｃ列「順番」とんでＥ列に
「乱数」があります。
２行目にこれら項目名が並んでおり、３行目から３４行目までは
データ入力範囲になります（３２名入力出来る。１行目は表のタイトルです）
入力したデータを順不同に並べたく、「順番」項目は乱数を用いた数字を入力させます。
ここから、マクロの登録をします。
～↓登録中↓～
・「乱数」項目の１番上（Ｅ３）から一番下（Ｅ３４）までドラッグ
　（範囲指定）し、右クリック→コピー
・「順番」項目の一番上（Ｃ３）で右クリック→”形式を選択して貼り付け”
”値”にチェックを付けて「ＯＫ」
☆「順番」項目の一番上（Ｃ３）から「名前」項目の一番下（Ａ３４）まで
ドラッグ（範囲指定）し、”昇順で並べ替え”ボタンを押す
～ここまで～
（乱数は、毎回変化してしまうのを防ぐ為、別項目から引っ張ってきて
値だけをコピーするようにしています）

このようにマクロを登録しました。
しかし、毎回３２名を入力するわけではなく、時には３２名未満の入力をする場合があります。

別のセルＦ４０に、ＣＯＵＮＴＡ関数より取った「名前」項目に登録されている数を表示させているのですが、
☆部分の処理にてこの数だけ範囲指定して並べ替えたいのです。
（セルＣ３から登録されている人数分だけ範囲指定したい、ということです。２０名だけ登録されていれば、
セルＣ３からセルＡ２２を範囲指定する。指定した部分だけを並べ替える）
３２名未満の時、乱数に元づく順番で並べ替える際、データの入って
いない行も順番に並んでしまうのですが、空白の行はそのままにし、
データの入っている行だけを上（セルＡ３）から詰めて並べたいのです。
ＶＢＡの編集で、ＣＯＵＮＴＡ関数の結果の数字を変数に代入して使用したいのですが、
そのやり方がわかりません。

どなたかお知恵をくださいますよう、お願い致します。
（わかりにくい記述なので、必要に応じて補足させて頂きます。）

回答No.1

mt2008 · ベストアンサー

いろいろ方法は有りますが、一番修正が簡単そうな方法を。
E列の「乱数」にはおそらく　=RAND()　と、乱数を発生するセル式が入っている事と思います。
E3セルに　=IF(A3="","",RAND())　と、入れて、下に（E34まで）コピーしてください。
これで、記録済みのマクロを動かして見てください。

名前が登録された行だけで並べ替えを行うはずです。

お礼

どうもありがとうございます。頂いた知恵を活用することが出来ました！何でもマクロを頼ろうとしてましたが、簡単なやり方を教えて頂きましてありがとうございました！

回答No.2

Wendy02

こんにちは。

こういうことでしょうか？

>別のセルＦ４０に、ＣＯＵＮＴＡ関数より取った「名前」項目に登録されている数を表示させているのですが、

VBAでは、不要のはずです。

'-------------------------------------------

Sub TestMacro1()
With ActiveSheet
　With .Range("A2", .Cells(Rows.Count, 1).End(xlUp))
　　 If .Rows.Count < 2 Then Exit Sub　'データがない場合は除外
　　 .Resize(.Rows.Count - 1).Offset(1, 3).Formula = "=RAND()"
　　 .Resize(, 4).Sort Key1:=Range("D1"), _
　　　　　　　　　　　 Order1:=xlAscending, _
　　　　　　　　　　　 Header:=xlYes
　End With
End With
End Sub

お礼

回答下さり、ありがとうございました。１の方の回答が、かなり明確であった為、そちらを利用することにしました。
今回教えて頂いた方法は、一度確かめてみます。