はじめまして。
excelでA列(A1~AX)に入力されているX個の文字列から
「重複せず、ランダムに」3つを抽出し、その3つの文字列を結合した物を
B列のB1~BXに表示させる方法について、アドバイスをお願い致します。
A1:test1
A2:test2
・・・
AX:testX
★B1~BXを以下のように入力したいです。
B1:test33,test25,test77
B2:test9,test3,test98
・・・
BX:test3,test77,test24
以上、よろしくお願い致します。
No.5ベストアンサー
- 回答日時:
No.2・3です!
たびたびごめんなさい。
前回はセル数が3で割り切れない場合ばかり重視していたため、
3で割り切れるセル数の時はちゃんと表示できないと思います。
No.2の画像の配置通りとして、C1セルの数式を下記に変更してみてください。
=IF(ROW()<=INT(COUNTA(B:B)/3),INDEX(B:B,MATCH(LARGE(A:A,3*(ROW()-1)+1),A:A,0))&","&INDEX(B:B,MATCH(LARGE(A:A,3*(ROW()-1)+2),A:A,0))&","&INDEX(B:B,MATCH(LARGE(A:A,3*(ROW()-1)+3),A:A,0)),IF(ROW()=INT(COUNTA(B:B)/3)+1,IF(MOD(COUNTA(B:B),3)=1,INDEX(B:B,MATCH(MIN(A:A),A:A,0)),IF(MOD(COUNTA(B:B),3)=2,INDEX(B:B,MATCH(SMALL(A:A,2),A:A,0))&","&INDEX(B:B,MATCH(MIN(A:A),A:A,0)),"")),""))
何度も失礼しました。m(_ _)m
No.4
- 回答日時:
重複しない組み合わせということでかなり難しいことになるでしょう。
次のようにして最後にはご自分の操作で決めていただくのはどうでしょう。
初めにA2セルから下方に文字列が入力されているとします。
B列に組み合わせを表示させることにしてそのための作業列をC,D,E,F列に設けます。
D2セルには次の式を入力してF2セルまでドラッグコピーしたのちに下方にもドラッグコピーします。
=IF($A2="","",RAND())
その後にB2セルには次の式を入力し下方にドラッグコピーします。
=IF(A2="","",INDEX(A$2:A$100,RANK(D2,D:D,0))&","&INDEX(A$2:A$100,RANK(E2,E:E,0))&",,"&INDEX(A$2:A$100,RANK(F2,F:F,0)))
1文字列と2文字列の間には , が付きますが2文字目と3文字目の間には ,, が付きます。
次にB列での文字列の組み合わせに重複があるかどうかを判定するためにC2セルには次の式を入力して下方にドラッグコピーします。
=IF(A2="","",IF(IF(LEN(B2)-LEN(SUBSTITUTE(B2,MID(B2,1,FIND(",",B2)-1),""))>LEN(MID(B2,1,FIND(",",B2)-1)),1,0)+IF(LEN(B2)-LEN(SUBSTITUTE(B2,MID(B2,FIND(",",B2)+1,FIND(",,",B2)-1-FIND(",",B2)),""))>LEN(MID(B2,FIND(",",B2)+1,FIND(",,",B2)-1-FIND(",",B2))),1,0)+IF(LEN(B2)-LEN(SUBSTITUTE(B2,MID(B2,FIND(",,",B2)+2,100),""))>LEN(MID(B2,FIND(",,",B2)+2,100)),1,0)>1,1,""))
またC1セルには次の式を入力します。
=IF(SUM(C2:C100)=0,"成功","F9キーを押す")
F9キーを押すことで組み合わせが変化します。C1セルに成功の文字が表示された時点でF9キーを押すことをやめます。
その時点でB列に表示された組み合わせがお求めの組み合わせとなります。
No.2
- 回答日時:
こんにちは!
一例です。
無理やり関数でやってみました。
かなり長い数式になってしまいましたが・・・
↓の画像のようにA列を挿入し作業用の列としています。
A1セルに
=RAND()
という数式を入れフィルハンドルでダブルクリック(またはオートフィルで下へコピー)
そしてC1セルに
=IF(INT(COUNTA(B:B)/3)+1<ROW(),"",IF(ROW()<=INT(COUNTA(B:B))/3,INDEX(B:B,MATCH(LARGE(A:A,3*(ROW()-1)+1),A:A,0))&","&INDEX(B:B,MATCH(LARGE(A:A,3*(ROW()-1)+2),A:A,0))&","&INDEX(B:B,MATCH(LARGE(A:A,3*(ROW()-1)+3),A:A,0)),IF(MOD(COUNTA(B:B),3)=1,INDEX(B:B,MATCH(MIN(A:A),A:A,0)),INDEX(B:B,MATCH(SMALL(A:A,2),A:A,0))&","&INDEX(B:B,MATCH(MIN(A:A),A:A,0)))))
という数式を入れオートフィルで下へコピーしています。
これでF9キーを押すたびにランダムに表示されると思います。m(_ _)m
No.1
- 回答日時:
ココに紹介されている。
ただし、リストの形式は異なる。
組合せ ― 組合せ nCr の配列を返す(再帰使用)、RetMax=TRueの時は組合せ数を返す
http://hp.vector.co.jp/authors/VA033788/kowaza.h …
~~~
'一行目(A1,B1,C1,...)に元データ、
A2に組合せに使用するデータ数、
A3以降に組合せを表示する
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# c言語 配列とポインタについて 3 2023/02/09 22:53
- Excel(エクセル) excel関数について 3 2022/06/06 21:58
- PHP $_SESSIONについて教えて下さい。 2 2023/03/02 09:18
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) Excelの関数について教えてください。 5 2023/07/28 11:27
- Excel(エクセル) B列に、A列の数字が偶数の場合は1減算した数字、奇数の場合はそのまま数字を自動表示したい 4 2022/04/16 12:01
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- その他(プログラミング・Web制作) VScodeでpythonプログラムの関数を実行したい 2 2022/07/13 19:24
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
はがきについて。
-
エクセル 文字を増やしたい。
-
セルの内容表示が邪魔になる
-
Microsoft365に変えたのですが...
-
エクセルの計算
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
Excel ピボットテーブルで日付...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
Excelのチェックボックスの使い...
-
エクセル 白黒印刷で白線を印刷...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの条件付き書式につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報