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)
どうもありがとうございます。
やってみました。ほんとですね!
画像を添付していただいていたので、わかりやすかったです。
助かりました。
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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルでデータの多い順に並べ替えたい
Excel(エクセル)
-
500行の中から、多い順に抽出する方法
Excel(エクセル)
-
エクセルの同じ種類の行数の多い順に並べるには
Excel(エクセル)
-
-
4
一番多い名字(文字)のランキングを作りたい
Excel(エクセル)
-
5
エクセル関数 頻度順に並べる方法は?
Excel(エクセル)
-
6
一番多く表示のある値(文字列)を、Excel関数で抽出したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelについて教えてください
-
【マクロ】名前を保存する際に...
-
エクセル マクロ チェックボックス
-
Excel 複数列 A列B列C列一致 D...
-
エクセル vbaについて教えてく...
-
エクセルであるセルに数字を入...
-
【Excel】数字を3倍にし、なお...
-
Excel分析ツールでのポアソン回...
-
エクセルVBA、別ブックへ転記す...
-
【マクロ】顧客番号にて一致さ...
-
Excelでセルの値が同じか...
-
(マクロ)データをAブックからB...
-
エクセルを使っていて2024/5/15...
-
エクセル共有したが、アクセス...
-
エクセル②
-
エクセルのデーターが2か月前の...
-
UNIQUE関数が使えないバージョ...
-
INDIRECTを使わず excelで複数...
-
Excelで縦軸の書式を0:00形式の...
-
【マクロ】読取専用のファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報