[[20211123181205]]　『セル内の数値の並べ替え』（初心者）　ページの最後に飛ぶ

『セル内の数値の並べ替え』（初心者）

1,33,2,11,19

とセル内にあります。
1，2，11，19，33

と数字を小さい順にカンマとセル内で並び変えたいです。
よろしくお願いします。

＜使用 Excel：unknown、使用 OS：unknown ＞

数式での回答希望でしょうか

（マナ） 2021/11/23(火) 18:27

はい数式での回答希望です。
説明不足で申し訳ございません
（初心者） 2021/11/23(火) 18:28

そうですか。バージョンを示したほうがよいですよ。

ただ、わたしには無理なので
回答がつくまでのつなぎで
ユーザー定義関数（案）です。

 A1: 1,33,2,11,19
 B1; =NumSort(A1)

 Function NumSort(s As String)
    Dim a As Object
    Dim e

    Set a = CreateObject("system.collections.arraylist")
    For Each e In Split(s, ",")
        a.Add CLng(e)
    Next
    a.Sort
    s = Join(a.toarray, ", ")

    NumSort = s

 End Function

（マナ） 2021/11/23(火) 18:42

 EXCELのバージョンを書いてくれ。
 バージョンによって使える関数に違いがあるので。
（ねむねむ） 2021/11/24(水) 09:03

 あと、作業セルを使っても構わないだろうか？
（ねむねむ） 2021/11/24(水) 09:03

すいません。
office 365になります。こちらでよろしいでしょうか？

作業セルを使っても構わないだろうか？→出来るのであれば、構いません。

よろしくお願いします。
（初心者） 2021/11/24(水) 15:51

 365であれば
 =TEXTJOIN(",",,SMALL(TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",100)),ROW(INDIRECT("1:"&LEN(A1)-LEN(SUBSTITUTE(A1,",",""))+1))*100-99,100))*1,ROW(INDIRECT("1:"&LEN(A1)-LEN(SUBSTITUTE(A1,",",""))+1))))
 で、できないだろうか？
 現在365で確認できないためできなかったらすまない。
（ねむねむ） 2021/11/24(水) 15:56

 念のため。
 上記式でうまくいかなかった場合、式の入力時にShiftキーとCtrlキーを押しながらEnterキーで式を確定
 (確定時に式が{}で囲まれればOK)も試してみてくれ。
（ねむねむ） 2021/11/24(水) 16:11

 365で確認できた。
 Shift+Ctrl+Enterなしで並べ替えられた。
（ねむねむ） 2021/11/24(水) 21:31

ねむねむ様

ご返事遅くなり誠に申し訳ございません。
思い通りにできました。
誠にありがとうございました。
（初心者） 2021/12/11(土) 19:05

 ねむねむさんの式を参考に、SORT関数とSEQUENCE関数を使って作成してみました。

 =TEXTJOIN(",",,SORT(TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",100)),SEQUENCE(LEN(A1)-LEN(SUBSTITUTE(A1,",",""))+1,,1,100),100))*1))

 文字列を分割する部分はすごいですね。私にはとても思いつかないです。
（hatena） 2021/12/11(土) 22:00

コメント返信：

[ 一覧(最新更新順) ]

[[20211123181205]] 『セル内の数値の並べ替え』（初心者） ページの最後に飛ぶ

[[20211123181205]]　『セル内の数値の並べ替え』（初心者）　ページの最後に飛ぶ