![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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)
この回答へのお礼
お礼日時:2009/04/05 11:00
どうもありがとうございます。
やってみました。ほんとですね!
画像を添付していただいていたので、わかりやすかったです。
助かりました。
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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのツールバーから数値...
-
祝日と土曜、日曜の合計をカウ...
-
【マクロ】2回実行したら、エ...
-
特定の文字列を含む、住所を抽...
-
EXCELの散布図で日付が1900年に...
-
マイクロソフトのPADを使ってい...
-
Excel分数の表示について
-
Excelで表を作ったところに文字...
-
マクロエクセルのブロック解除
-
文字2桁、3桁交じりの文字列...
-
絶対参照
-
Excelについての質問です。 B2...
-
在庫管理表に使うエクセルの関...
-
【マクロ】VLOOKUPにて参照元に...
-
【EXCEL】画像の黄色部分の抽出...
-
DATE関数で現在の年齢を出した...
-
ユーザー定義関数をアドイン登...
-
エクセルでの作業計算方法について
-
行数が不規則な一週間ごとの合...
-
Excelピボットテーブルの1行目
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報