回答受付が終了しました

【至急お願い致します。】 Excelに関する質問です。 以下の画像(左)ように数値が入力されているとします。

画像
補足

補足です。 私の一つ前の質問をB行の値の分、計算し、別シートに入力したいという質問です。()

Excel | Visual Basic275閲覧xmlns="http://www.w3.org/2000/svg">250

回答(2件)

0

マクロの関数(?)は分からないため、毛色の変わった回答で恐れ入ります。 推察ですが、貼付された画像の左側のシートは集計シートで右側がデータシートと思われます。 「データ」シートの各列に配列された数値から集計シートのA列の数値が何個あるかを集計シートに表示したいとのことかと思われます。 下記プログラム作成後、貼付画像のデータより集計を行なった結果、 集計表の2行目まで同じ結果(下図参照)が得られましたのでこの推察は間違いないのではないかと思います。 前述しましたように右図のシート名を「データ」としました。 手順としては、フォームコントロールのボタンを集計表のシートに貼り付け、このボタンの「Click」のプロシージャに下記プログラムを書込みました。 ここで、変数n0,n1,n2を使っています。変数に定義がないと指摘されるかと思いますが、過去の実績でFor~Nextの変数には定義しなくても問題ないので省略しています。 データシートのデータ行数は、10000行、横の列数は500列まで対応できるようにプログラムしています。 毛色の変わった回答ですので、質問に対して的外れでしたら無視下さい。 Sub ボタン1_Click() With Worksheets("データ") For n0 = 1 To 500 'データシートの列変数 If .Cells(3, n0).Value = "" Then Exit For Else For n1 = 1 To 10000 'データシートの行変数 If .Cells(2 + n1, n0).Value = "" Then Exit For Else For n2 = 1 To 10000 '集計シートの行変数 If Cells(1 + n2, 1).Value = "" Then Exit For Else If .Cells(2 + n1, n0).Value = Cells(1 + n2, 1).Value Then Cells(1 + n2, 1 + n0).Value = Cells(1 + n2, 1 + n0).Value + 1 End If End If Next End If Next End If Next End With End Sub

画像
0

質問と添付図が違うようだが、 度数はB2セルから下に入っているのでは 次の度数はC列、D列・・・・ ナンバーは A2 A3 A4 ・ ・ ・ だと思うが?

伝わりにくく申し訳ございません。 階級値がA2, A3, A4....セルに ナンバーがA1, B1, C1セルに 例えば、B1の(1)というナンバーの階級(1)の度数がB2に(3)と入っており、B1の(1)というナンバーの階級(2)の度数がB3に(4)と入っています。