Sub showMostFrequentNumber()
Dim i As Integer
Dim count(1 To 10) As Integer
Dim maxCount As Integer
For i = 1 To 10
count(i) = Application.CountIf(Range("A1:A10"), i)
If i = 1 Then
maxCount = count(i)
ElseIf count(i) > maxCount Then
maxCount = count(i)
End If
Next i
For i = 1 To 10
If count(i) = maxCount Then
Range("B10").Value = i
End If
Next i
End Sub
A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
こんなのでもイケそうです!!
Sub test()
Range("B10").Value = WorksheetFunction.Mode_Mult(Range("A1:A10"))(1)
End Sub
No.5
- 回答日時:
こんにちは
まったく別発想ですが、計算はエクセルにやってもらう方法での一例です。
Sub hoge()
Const f = "=INDEX(A:A,MATCH(MAX(@),@,0))&"""""
Const g = "INDEX(COUNTIF(A1:A10,A1:A10),)"
Range("B10").FormulaLocal = Replace(f, "@", g)
Range("B10").Value = Range("B10").Value
End Sub
※ 最大頻度の値が複数存在する場合は、最初のものが表示されます。
※ 複数ある場合に全部を求めるのなら、もう一工夫すればできるでしょう。
No.4
- 回答日時:
提示されたマクロは、数字が1~10限定です。
ほかの数字でも成り立つようにしたい場合は、以下のようにしてください。Sub showMostFrequentNumber()
Dim i As Integer
Dim count(1 To 10) As Integer
Dim maxcount As Integer
For i = 1 To 10
count(i) = Application.CountIf(Range("A1:A10"), Cells(i, 1).Value)
If i = 1 Then
maxcount = count(i)
ElseIf count(i) > maxcount Then
maxcount = count(i)
End If
Next i
For i = 1 To 10
If count(i) = maxcount Then
Range("B10").Value = Cells(i, 1).Value
End If
Next i
End Sub
No.3
- 回答日時:
count(i) = Application.CountIf(Range("A1:A10"), Cells(i , 1).Value)
じゃないでしょうか?
そうしないとセルに入れる値は1~10に限定されます。
多分入れている値がその範囲を外れていてダメになっているのでは?
No.2
- 回答日時:
No1です。
添付図のような値をA列に設定し、マクロを実行するとB10に6が表示されました。6が3つありますので、正しく表示されています。
あなたが、うまく行かないのは、具体的に、A1~A10にどのような値を設定した場合でしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
2つのマクロでチェックボックス...
-
Vba SelStart、SelLen教えてく...
-
【VBA】マクロの入ったファイル...
-
現在のブックを閉じないで、マ...
-
ユーザーフォームに別シートか...
-
A列に記載されているフォルダ...
-
VBA 別ブックからコピペしたい...
-
VBA 複数条件の分岐処理の上手...
-
VBAに詳しい方教えてください。
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
Outlookの「受信日時」「件名」...
-
VBA listBoxから
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ExcelのVBAコードについて教え...
-
エクセルのマクロについて教え...
-
Outlookの「受信日時」「送信者...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
c++ cmathとmath.h
-
python: 直角三角形の種類を求...
-
=FREQUENCY(範囲,{59,69,74}) ...
-
三辺の長さから角度を求めたい...
-
エクセル マクロ(A1:A10)までの...
-
プログラム開始から 2秒毎に ...
-
【ランダム関数】0と1を返すだ...
-
setIntervalでの時間間隔(AS2.0)
-
エラー(型が一致しません。)...
-
VB6でユーザー定義型がNothing...
-
関数定義について質問です 架空...
-
TextChangeイベントが発生しない
-
VB.NET の配列の要素数
-
#define 文
-
LRESULTとHRESULT
-
変な質問ですみません、n番目の...
-
配列の要素番号を取得するには?
-
VBでボタンを押すと画像をラン...
-
Vba 配列の中の特定文字列の位...
-
エラー438でオブジェクトの...
おすすめ情報
お世話になっております。
10個のセルを比べて一番の多くの出数字をB10に出したい思いますがその数字来ないよろしくお願いします。
早速ありがとうございます
6は正しいのでず20が3回とか30が3回とかの場合
20がでてこないです
すみません初心者なもで
何処の部分を変更するのでしょうか