![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.5ベストアンサー
- 回答日時:
No2です。
すいません、先ほどの方法では文字の数が同じものがあった場合にまずいことになります。
例 :
あ c 1
い a 2
う b 2
え a 2
お b 2
↓
い a 2
う b 2
え a 2
お b 2
あ c 1
これを防ぐために、並び替えの際にB列をキーに追加してください。
なおバージョンによって表示は異なると思います。(画像はOffice2007)
![「エクセル 個数が多い順に並び替え」の回答画像5](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/2/150691_5497f21b2888a/M.jpg)
どうもありがとうございます。
やってみました。ほんとですね!
画像を添付していただいていたので、わかりやすかったです。
助かりました。
No.6
- 回答日時:
No4です。
使用法ですね。以下の手順をためしてください。
1.AltキーとF11キーをいっしょに押して Visual Basic Editor を呼び出します。
2.Visual Basic Editor のメニューから挿入、標準モジュールで、出てきたコードウィンド(右側の白い広い部分)に回答したコード(SubからEnd Subまで)をコピーして貼り付けします。
3.また、Alt+F11キーでワークシートへもどります.
4.エクセルのメニューから、「ツール」、「マクロ」、「マクロ」で出てきたマクロ名(test01)を選択して実行します。
No.4
- 回答日時:
No3です。
ねぼけて間違ってました。訂正です。Sub test01()
Dim myRng As Range
Set myRng = Range("B1", Cells(Rows.Count, "B").End(xlUp))
Range("C1").Formula = "=COUNTIF(" & myRng.Address & ",B1)"
Range("C1").AutoFill Destination:=myRng.Offset(0, 1)
myRng.Offset(0, -1).Resize(, 3).Sort _
Key1:=Range("C1"), Order1:=xlDescending, Key2:=Range("B1"), Order2:=xlAscending, Header:=xlNo
End Sub
No.3
- 回答日時:
VBAの一例です。
データは1行目からあるものとします。
多い順に並び替え、C列に個数を出します。
Sub test01()
Dim myRng As Range
Set myRng = Range("B1", Cells(Rows.Count, "B").End(xlUp))
Range("C1").FormulaR1C1 = "=COUNTIF(R1C2:R10C2,RC[-1])"
Range("C1").AutoFill Destination:=myRng.Offset(0, 1)
myRng.Offset(0, -1).Resize(, 3).Sort _
Key1:=Range("C1"), Order1:=xlDescending, Key2:=Range("B1"), Order2:=xlAscending, Header:=xlNo
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) オフィスをLibreOfficeからmicrosoft 2013に変えました。 1 2022/05/09 00:28
- Excel(エクセル) 【エクセル】並び替えからの並び替え方法 7 2022/07/22 09:46
- Excel(エクセル) エクセルの並び替えについて 5 2022/07/11 00:49
- Excel(エクセル) エクセルの同じ種類の行数の多い順に並べるには 2 2023/05/10 15:41
- Excel(エクセル) Excel 郵便番号順に並び変えたい 同じ番号が複数あるとき 4 2022/04/28 18:35
- その他(Microsoft Office) 逆順 3 2023/08/24 09:30
- Excel(エクセル) 結合セルのソートについて 5 2022/04/22 11:57
- Excel(エクセル) Googleスプレッドシートの割合の関数と円グラフの並べ替えについて 1 2022/07/22 17:31
- C言語・C++・C# C言語プログラム変更 2 2022/12/21 15:03
- その他(ソフトウェア) Googleスプレッドシートについて 5 2022/05/07 11:46
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルでデータの多い順に並べ替えたい
Excel(エクセル)
-
一番多い名字(文字)のランキングを作りたい
Excel(エクセル)
-
エクセルの同じ種類の行数の多い順に並べるには
Excel(エクセル)
-
-
4
500行の中から、多い順に抽出する方法
Excel(エクセル)
-
5
エクセル 文字数 多い順 並び替え
Excel(エクセル)
-
6
一番多く表示のある値(文字列)を、Excel関数で抽出したい
Excel(エクセル)
-
7
エクセル関数 頻度順に並べる方法は?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IFとIFS関数
-
Excelを無料で使うには? パソ...
-
セルの数を求めたい
-
エクセルの数式バーのフォント...
-
Excelの表示についての質問
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
Excelに詳しい方! B列が「日...
-
西暦や和暦の表示をyyyymmdd表...
-
Excelで50個のセルに同じ文字を...
-
Excelの数式について教えてくだ...
-
Excel VBAで全ての矢印を赤色に...
-
エクセル関数を使って
-
祝日と土曜、日曜の合計をカウ...
-
xlsxファイルを保存する際にPDF...
-
Excelについて
-
エクセルVBA、別ブックへ転記す...
-
エクセルで「ページレイアウト...
-
2列に入っているデータを1列...
-
【ExcelVBA】名前を付けて保存→...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報