Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47019 / 76732

←次へ　｜　前へ→


	【34678】Re:ｶｳﾝﾄ方法について

ichinose - 06/2/9(木) 18:31 -


	引用なし

	パスワード

▼hatena さん：
こんばんは。

>たびたびすみません
>
>結果を並べ替えをして表示させることは可能ですか？
>今は、セルの順に
>3◎　1
>3×　1
>2◎　3
>ですが
>2◎　3
>3◎　1
>3×　1
>とさせたいのです。
Excelは並べ替えができますよね？

この前のご質問と合わせて（1行目が項目名の場合）・・・、

'=================================
Sub main()
　　Dim dic As Object
　　Dim crng As Range
　　Dim rng As Range
　　Dim cnt As Long
　　Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp))　'＊
　　If rng.Row > 1 Then '＊
　　　 Set dic = CreateObject("scripting.dictionary")
　　　 With dic
　　　　　For Each crng In rng
　　　　　　 If .Exists(CStr(crng.Value)) Then
　　　　　　　　.Item(CStr(crng.Value)) = .Item(CStr(crng.Value)) + 1
　　　　　　 Else
　　　　　　　　.Add CStr(crng.Value), 1
　　　　　　　　End If
　　　　　　 Next
　　　　　Range(Cells(rng.Count + 3, 1), Cells(rng.Count + 2 + .Count, 1)).Value = Application.Transpose(.Keys)
　　　　　Range(Cells(rng.Count + 3, 2), Cells(rng.Count + 2 + .Count, 2)).Value = Application.Transpose(.Items)
　　　　　Range(Cells(rng.Count + 3, 1), Cells(rng.Count + 2 + .Count, 2)).Sort Key1:=Cells(rng.Count + 3, 2), Order1:=xlDescending, Header:=xlNo
　　　　　'↑ソートする
　　　　　End With
　　　 Set dic = Nothing
　　　 End If
End Sub

main2も同じように修正してください。

0 hits

▼

【34650】ｶｳﾝﾄ方法について hatena 06/2/9(木) 10:47