連想配列が1つのセルにまとめれません!
500行500例の値があります!
一行に何の値が何件あるか集計したいのです。
A列に一行一行 1が1件2が2件3が3件4が4件5が5件
↓の行A列に 10が1件20が2件30が3件40が4件50が5件
以下この処理を500行を左端のA列にまとめて置きたいのです。
ご教示頂けたら幸いです。
下のソースだと、A列にまとめれません!
よろしくお願いいたします。
ソース
Sud countNumbers()
Dim i As Integer
Dim sline As Integer
sline = 1
Set sd = CreateObject(″Scripting.Dictionary″)
Application.ScreenUpdating= False
For i = 5 To 500
sNo=Worksheets(1).Cells(sline,i).Value
sd(sNo) = sd(sNo) + 1
Next
Application.ScreenUpdating = True
i = 1
For Each sn In sd
Worksheets(1).Cells(1,i).Value = sn & ″が″ & sd(sn) & ″件″
i = i + 1
Next
Set sd = Nothing
End Sub
この値を配列に貯めて、1つのセルに参照したいのですが!
上手くいきません…
何回か質問していますが、上手くいきません。よろしくお願いいたします。
宜しくお願いします。
No.1ベストアンサー
- 回答日時:
Sub countNumbers()
Dim sd As Object
Dim i As Integer, j As Integer
Dim sline As Integer
Dim sNo As Integer
Dim str As String
Dim sn As Variant
sline = 1
Set sd = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For j = 1 To 500
For i = 5 To 500
sNo = Worksheets(1).Cells(sline, i).Value
sd(sNo) = sd(sNo) + 1
Next
str = ""
For Each sn In sd
str = str & sn & "が" & sd(sn) & "件 "
Next
Worksheets(1).Cells(sline, 1).Value = str
sline = sline + 1
sd.RemoveAll
Next
Application.ScreenUpdating = True
Set sd = Nothing
End Sub
あっまた、回答して頂いてありがとうございます。
すいません、やって見ます。
なぜか前回のは論理エラーでした!
またご連絡いたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定のセルが空白だったら、そ...
-
TODAY()で設定したセルの日付...
-
VBAでセルをクリックする回...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
連続する複数のセル値がすべて0...
-
Excel VBA マクロ ある列の最終...
-
VBA初心者です。結合セルを保持...
-
Sub 要具ライフ() ActiveSheet....
-
Excelのハイパーリンクにマクロ...
-
VLOOKUP関数で別ファイルを指定...
-
VBAでセルに値が入ったときにイ...
-
Excel vbaで特定の文字以外が入...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
VBAで行削除できないようにする...
-
DataGridViewの各セル幅を自由...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
Excel vbaで特定の文字以外が入...
-
特定の文字を条件に行挿入とそ...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
Excelのプルダウンで2列分の情...
-
EXCELで変数をペーストしたい
-
連続する複数のセル値がすべて0...
-
Excel VBA、 別ブックの最終行...
-
VBAを使用した時間管理
-
エクセルVBAでコピーして順...
-
セル色なしの行一括削除
-
【EXCEL VBA】Range("A:A").Fi...
-
VBA コピーして次の値まで貼り...
-
VBA初心者です。結合セルを保持...
おすすめ情報