| |
データより、クロス集計表をＶＢＡで作成しようとしています。
前回もこちらでお世話になりましたが、再度ご教授お願いします。
Ａ列 品名 Ｂ列 数字 Ｃ列日付 Ｄ列 数字のﾃﾞｰﾀが
あります。(データ数不定)それを
Ａ列とC列の値をＫｅｙとして取込み、itemをD列の値で取込み
それをクロス集計表に作成したいとおもっています。
重複している場合はD列の値を追加するながれです。
ネット検索して使えそうなサンプルがあり、少しだけ加工処理してみましたが、
ローカルで確認するとD列の値が、Itemとして追加されていません。
データ型が違うのが原因なのか、インデックスが有効範囲にないだけなのか
原因がわからないためわかるかたがいたらよろしくお願いします。
下記にマクロ記入します
Sub test51()
Dim myDic As Object, myKey, myItem
Dim myVal, myVal2
Dim i As Long, j As Long
Dim sh1 As Worksheet
Set myDic = CreateObject("Scripting.Dictionary")
Set sh1 = Worksheets("Sheet1")
' ---元データを配列に格納
myVal = sh1.Range("A1").CurrentRegion.Value
' ---myDicへデータを格納
For i = 1 To UBound(myVal, 1)
myVal2 = myVal(i, 1) & "_" & myVal(i, 3)
If Not myVal2 = "_" Then
If Not myDic.exists(myVal2) Then
myDic.Add myVal2, myVal(i, 4)’登録されていない
Else
myDic(myVal2) = myDic(myVal2) + myVal(i, 4)
End If
End If
Next
' ---Key,Itemの書き出し
For i = 2 To 1000
For j = 2 To 1000
Cells(i, j).Value = myDic(Cells(i, 2).Value & "_" & Cells(2, j).Value)
Next j
Next i
Set myDic = Nothing
Set sh1 = Nothing
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
