![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
A1からA7までに数値が入力されているとして、
=LARGE(IF(FREQUENCY(A1:A7,A1:A7),A1:A7),2)
としてみて下さい。
この回答への補足
求めていたものでした。
それにしてもfrequency関数がこのように使えること、またさらにif関数については驚いております。if関数は論理式が0またはヌルが偽、0以外の数が真に対応いると解釈して良いようですがこのような使い方知りませんでした。
ありがとうございました。
欄を間違えました。
求めていたものでした。
それにしてもfrequency関数がこのように使えること、またさらにif関数については驚いております。if関数は論理式が0またはヌルが偽、0以外の数が真に対応いると解釈して良いようですがこのような使い方知りませんでした。
ありがとうございました。
No.4
- 回答日時:
(1)LARGE(A1:A10,2)
(2)C列を作業列としそれを使って
C1に=IF(COUNTIF($B$1:B1,B1)=1,B1,"")といれC10
まで式を複写。
その後(1)と同じく、=LARGE(C1:C10,2)
配列数式で上記の作業列を使わないでやれないかと思ってやって見たが、成功していない。
No.2
- 回答日時:
(1)の様な場合LARGE関数で求めることができます。
(2)の様な場合は、簡単には、求まりません。
ということで、
重複する値を含めないmyLARGE関数を作ってみました。
ALT+F11でVBEにて標準モジュールを挿入して貼り付けてからワークシートでLARGE関数と同じように使います
Public Function myLarge(r As Range, rank) '重複する値は同じ順位
Dim a, i, x
a = asSet(r)
Call ArraySort(a)
myLarge = a(rank - 1)
End Function
Private Function asSet(r As Range) '重複しない数値データの配列にする
Dim NumList
Dim x As Range, i
Set NumList = CreateObject("Scripting.Dictionary")
For Each x In r
If Not NumList.Exists(x.Value) Then '重複チェック
NumList.Add x.Value, 1
Else '重複時の処理
NumList.Item(x.Value) = NumList.Item(x.Value) + 1
End If
Next
asSet = NumList.Keys
End Function
Private Sub ArraySort(a, Optional ascending = 0) '規定値は大きいもの順
Dim wk, i As Integer, j As Integer, k As Integer
Dim n
n = UBound(a)
k = n \ 2
Do While (k > 0) 'シェルソート
For i = 0 To n - k
j = i
Do While (j >= 0)
If a(j) > a(j + k) Then
wk = a(j)
a(j) = a(j + k)
a(j + k) = wk
j = j - k
Else
Exit Do
End If
Loop
Next
k = k \ 2
Loop
If ascending = 0 Then '逆順にする
i = 0: j = n
Do Until (i >= j)
wk = a(i)
a(i) = a(j)
a(j) = wk
i = i + 1: j = j - 1
Loop
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 数学 関数のグラフ 5 2023/07/20 23:57
- その他(Microsoft Office) ある表(10桝程度)の中に数字が入っています。ダブっている数字を除く数字の合計数の計算方法 5 2023/02/15 11:33
- Excel(エクセル) Excelについて質問があります。 関数の数値入力についてなのですが、 b1にー c1に数値 がある 1 2023/05/28 12:13
- 大学受験 合同式 2 2022/08/19 13:12
- 数学 2*2の行列に対して固有値の最大実部を与えるkの値を求めたい 3 2022/11/08 16:26
- 数学 【高1 数学Ⅰ 二次関数】 二次関数 f(x)=x^2-4ax+8a がある。ただし、aは正の定数と 3 2022/07/23 15:46
- 数学 数学1の問題がわかりません。 次の関数において、頂点の座標と、[]内のxの値に対するyの値を求めよ。 3 2023/02/13 00:36
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/07/08 13:46
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/09 16:55
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ある表にフィルターをかけて出...
-
Excelのセルの色を変えた行(す...
-
エクセルの数式について教えて...
-
Excelでの記号と特殊文字につい...
-
Lookup関数
-
エクセルの数式バーのフォント...
-
MACにおけるエクセルの入力トラ...
-
IFとIFS関数
-
セルの数を求めたい
-
Excelを無料で使うには? パソ...
-
再質問です。マクロの修正箇所...
-
【マクロ】VLOOKUPにて参照元に...
-
データチェックを行うエクセル...
-
【ExcelVBA】名前を付けて保存→...
-
EXCELの散布図で日付が1900年に...
-
エクセルで「ページレイアウト...
-
スプレッドシートの関数につい...
-
エクセルでファイルの最終更新...
-
エクセルの問題です。絶対値の...
-
エクセルを使っていて2024/5/15...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報