連想配列を配列に格納したいです。
vba初心者です。今集計マクロを作成中なのですが、上手くいきません。
ご教示頂けたら幸いです。
ソース
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.2ベストアンサー
- 回答日時:
こんにちは
>今集計マクロを作成中なのですが、上手くいきません
うまくいかない場合は、コードを見ても実際に何をしたいのかわかりませんので、「何をどうしたいけれど、○○がうまくいかない」という説明をしないと回答ができないと思います。
ご提示のコードで気が付くのは、ます
Sud → Sub
(全角の)”→ (半角)"
の修正が必要と思われること。
以下、勝手な推測ですが・・・
1行目(5列から500列まで)の値を参照して、同じものの重複回数をカウントし、その結果を表示したい。
ということと解釈しました。(もしかすると1列目なのかも知れませんが、コードは行になっているので)
ご提示のコードでは結果の表示が、1行目1列からになっていますが、項目数が4以上あると元のデータ部分をに上書きすることになってしまいますので、4項目までを表示するように制御するか。別のセルに表示するようにした方が良さそうに思います。
結果を、2行目に左詰で表示するものとして、サンプルにしてみました。
・空白セルはカウントからはずしています。
・シート名を省略していますので、アクティブシートに対して処理が行われます。
Sub Sample()
Dim sd As Object
Dim val As String
Dim i As Long, k
Set sd = CreateObject("Scripting.Dictionary")
For i = 5 To 500
val = Cells(1, i).Value
If val <> "" Then
If sd.Exists(val) Then sd(val) = sd(val) + 1 Else sd(val) = 1
End If
Next i
k = sd.Keys
For i = 0 To sd.Count - 1
Cells(2, i + 1).Value = k(i) & "が" & sd(k(i)) & "件"
Next i
Set sd = Nothing
End Sub
お返事遅れて大変申し訳ありません!
やりたい事は500行500列のデータがあります。
一行一行に商品があり。
1列ずつには、発注数があります。
何の商品に発狂数が何件あるかを合計せずに、重複している数字は重複回数を記載して集計したいのです!
本日は、時間の都合で試せないのですが…
サンプルマクロは、参考にさせて頂きます!
また結果がで次第ご連絡いたします。
ご教授大変感謝いたします。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
EXCEL VBA Dictionaryで複数の値を格納→離れた位置に出力する方法
Excel(エクセル)
-
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
-
4
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
エクセルVBAでmeに相当するものは?
Excel(エクセル)
-
7
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
8
エクセルVBAが途中で止まります
Visual Basic(VBA)
-
9
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
10
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
11
VBA 1次元配列を2次元に追加する
Visual Basic(VBA)
-
12
VBA public変数はどのようなことをしたら解放されますか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
TODAY()で設定したセルの日付...
-
【Excel】指定したセルの名前で...
-
特定のセルが空白だったら、そ...
-
エクセルvba:自己セルの情報取...
-
DataGridViewの各セル幅を自由...
-
指定した条件で行セルを非表示...
-
DataGridViewで列、行、セルの選択
-
任意フォルダから画像をすべて...
-
エクセルVBAで結合セルの真ん中...
-
VLOOKUP関数で別ファイルを指定...
-
【VBA】指定したセルと同じ値で...
-
【Excel VBA】C列に"非表示"と...
-
VBA ユーザーフォーム ボタンク...
-
Excelで指定した日付から過去の...
-
セルの値だけクリップボードに...
-
マクロで行がグループ化されて...
-
EXCELのVBA-フィルタ抽出後の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
i=cells(Rows.Count, 1)とi=cel...
-
ExcelVBAを使って、値...
-
【Excel VBA】指定行以降をクリ...
-
特定のセルが空白だったら、そ...
-
EXCELで変数をペーストしたい
-
Excelで指定した日付から過去の...
-
VBAの間違い教えて下さい
-
【Excel】指定したセルの名前で...
-
Excelのプルダウンで2列分の情...
-
エクセルVBAでコピーして順...
-
Excel vbaで特定の文字以外が入...
-
Excel VBA、 別ブックの最終行...
-
【VBA】指定したセルと同じ値で...
-
特定の文字を条件に行挿入とそ...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
VBA初心者です。次のVBAコード...
-
指定した条件で行セルを非表示...
-
VBAでセルをクリックする回...
-
DataGridViewの各セル幅を自由...
おすすめ情報