[[20211129173742]]　『ボタンを押すとアルファベット順に並び替えられる』（ニーア）　ページの最後に飛ぶ

『ボタンを押すとアルファベット順に並び替えられるマクロを作りたい』（ニーア）

こんにちは、お世話になっております。質問させてください。
以下のようなシートがあるとします
：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：
<SHEET1>

  　　<1>   　<2>    <3>～<5>は結合セル　　
<1>　学生　　クラス 　性格　 　　　　　          
<2>　 太郎　　B　　　勝気　　　　　
<3>　 まみ　　C　　  優しい     　　　　　　　
<4>　 洋子　　A　　　おとなしい
　　　　　
：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：

ボタンを押すとアルファベット順に並び替えられるマクロを作りたいのですが、
＜2＞列が勝手にアルファベット順に整理されるだけで他が連動しません。
もちろん、＜１＞行はそのままにしたいのですが・・

恐れ入りますが、ご教授願います。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 >＜2＞列が勝手にアルファベット順に整理されるだけで他が連動しません。
 とのことなので恐らくもうすでに既存のマクロはあるんですよね？
 今あるマクロを提示していただいたほうが齟齬が少ないかと思います。
（.:*.ゆ ゅ） 2021/11/29(月) 17:48

すいません、ありません。
一から作り直そうと思いまして、消してしまいました・・
（ニーア） 2021/11/29(月) 17:55

＞一から作り直そうと思いまして、消してしまいました・・

作り直そう？
違うやろ、もともと他人が作ったものか、何も持ってないのに
完全無垢の作成依頼と思われたくないだけやろ。
ほんまあの手この手をつこうてくる。

（疑心） 2021/11/29(月) 18:45

たぶん、結合がネックになっていると思うので、このようにしてみてはどうですか？

    Sub 研究用()
        With Range("A1").CurrentRegion
            .Copy .Offset(, .Columns.Count + 1)
            .MergeCells = False

            '並び替えの命令(自力で出来るようなので省略)

            .Offset(, .Columns.Count + 1).Copy
            .PasteSpecial Paste:=xlPasteFormats
            .Offset(, .Columns.Count + 1).Delete
        End With
    End Sub

（もこな２） 2021/11/29(月) 18:48

疑心さん

何を根拠に言われているのかよくわかりません
こんなけんか腰に言われても・・
決めつけられてもこまります。
逆にあなたは作れるんですか？
（ニーア） 2021/11/29(月) 19:06

作れたらどうなんですかね？
謙児　この人とちゃう。
（疑心） 2021/11/29(月) 19:12

なんだ、結局つくれないんですね（笑）
掲示板の趣旨わかってます？
（ニーア） 2021/11/29(月) 19:38

謙児くんと違って作れます。
っていうか、手作業でもできないンとちゃいまっか？
まあ、手作業だと自動で拡張してくれますけど。
（疑心） 2021/11/29(月) 19:44

掲示板は疑心クンのガス抜き場じゃないよ
現実世界でもこれくらいイキれるといいね。
まあできないと思うけど　バイバイ
（ニーア） 2021/11/29(月) 20:07

 2019ならSORT関数が使えるかもしれないので、下記とか。

 Public Sub Test()
    With Range("A2:C4")
        .Value = WorksheetFunction.Sort(.Value, 2)
    End With
 End Sub

 SORT関数だと結合セルがあっても大丈夫のようです。
 当方の365ではソートできました。

（hatena） 2021/11/29(月) 21:18

コメント返信：

[ 一覧(最新更新順) ]

[[20211129173742]] 『ボタンを押すとアルファベット順に並び替えられる』（ニーア） ページの最後に飛ぶ

[[20211129173742]]　『ボタンを押すとアルファベット順に並び替えられる』（ニーア）　ページの最後に飛ぶ