![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
関数でも可能です。
人数が10人ずつ+残りというグループ分けなのか、できるだけ均等な数(ご質問の場合28/3に近く)になるように割り振るのか、で考え方が違います。
あるいは、正確に
>1から28までの数値を10人づつのグループに組み分けしたいのです~
だとすると、あと2足りません。
一番最初の例でいけば、1~28の数にそれぞれ乱数を割り振っておいて、その数の順に番号を振ります。あとはその番号に従って10人ずつとって行けば良いだけ。
関数の例のを手順が分かるように、添付図にしましたので、考えてみてください。(下半分は同じなので省略してます)
もちろん、VBAでも可能ですが…
>エクセルのVBAに貼れるように 書いていただけませんか。
>サルにも判るように、~~
「サルでもわかる」は見つかりませんでしたが、イヌならわかりそうです。
http://excelfactory.net/inu.htm
![「乱数(組み合わせ)を発生させるには」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/7/587726_5497df8be6416/M.jpg)
この回答へのお礼
お礼日時:2009/08/06 01:17
頭のいい人は得ですね。助かりました ありがとうございました
なるほどこんなふうにやるんだなあと思いました いろいろ応用加工します。
No.1
- 回答日時:
・メニューの「ツール」→「マクロ」→「新しいマクロの記録」をする。
・A1セル~A28セルに1~28までの続き番号を入力する。
・B1セルに「=RAND()」と入力する。
・B1セルを「セルのコピー」でB2~B28セルにコピーする。
・A、B列を選択する。
・メニューの「データ」→「並び替え」で、最優先するキーを「列B」にして並び替える
・マクロの記録を終了する。
これで「A1~A10にグループ1、A11~A20にグループ2、A21~A28にグループ3の番号」が入っている事になります。
上記で記録したマクロを実行すれば、いつでも再現できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルで保存時に全部のシートの最終行をコピーして数値で貼り付けたい 3 2023/08/14 15:49
- Excel(エクセル) セルを数式で指定する方法 5 2022/04/13 16:55
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Excel(エクセル) EXCEL値貼り付け(ある条件のもと自動化) 5 2023/06/06 12:21
- Excel(エクセル) エクセルの値を元に図形の色を変えたい 2 2022/05/11 01:37
- Excel(エクセル) 複数のExcelブックのシート1の内容を1つのExcelブックにコピー貼り付けたいのでvbaコードを 7 2023/02/10 23:20
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
【Excel VBA】指定行以降をクリ...
-
特定のセルが空白だったら、そ...
-
EXCELで変数をペーストしたい
-
VBA初心者です。結合セルを保持...
-
Excel vbaで特定の文字以外が入...
-
i=cells(Rows.Count, 1)とi=cel...
-
VBA コピーして次の値まで貼り...
-
Excelのプルダウンで2列分の情...
-
Cellsのコードが打てません
-
【Excel VBA】セルの色によって...
-
DataGridViewのセル編集完了後...
-
エクセルVBAでコピーして順...
-
実行時エラー438 オブジェクト...
-
VBA実行後に元のセルに戻りたい
-
DataGridViewで列、行、セルの選択
-
【VBA】カーソルのある行の1行...
-
Excelのマクロについて
-
エクセル マクロで セルの範...
-
Excel ユーザーフォームをモー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
VBAの計算で@が出てしまう件
-
Excelのプルダウンで2列分の情...
-
EXCELで変数をペーストしたい
-
VBA ユーザーフォーム ボタンク...
-
VBAでセルをクリックする回...
-
Excel VBA、 別ブックの最終行...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
-
VBAを使用した時間管理
-
”戻り値”が変化したときに、マ...
-
Sub 要具ライフ() ActiveSheet....
おすすめ情報