|
▼マクロマン さん:
本当にありがとうございます。
申し訳ありませんがもうひとつ教えてください・・・
現在、回答いただいたものを参考にして作成しているのですが、
以下に命令文を書きますので教えていただけないでしょうか?
Sub datashuyaku()
Dim myDic As Object, mykey
Dim c, myVal
Dim i As Long
Set myDic = CreateObject("Scripting.Dictionary")
myVal = Range("A2", Range("A" & Rows.Count).End(xlUp)).Value
For Each c In myVal
If Not c = Empty Then
If Not myDic.Exists(c) Then
myDic.Add c, ""
End If
End If
Next
mykey = myDic.Keys
For i = 0 To myDic.Count - 1
Cells(i + 2, 4) = mykey(i)
Next i
Set myDic = Nothing
Dim longend As Long
longend = Application.ActiveWorkbook.Worksheets(1).Range("A65536").End(xlUp).Row
For i = 2 To longend
Range("D2"), Range("B1:B65536"))
Cells(i, 5) = Application.WorksheetFunction.SumIf(Range("A2:B65536"), Cells(i, 4), Range("B1:B65536"))
Next
End Sub
一応最初の部分で重複無しの項目を取得し、
そのあと数値を計算させていますが、
計算の数字がおかしいです。参照するセルがずれるみたいで
おかしいです。
あと項目がないところに0が出るのですが、
ご教授いただけないでしょうか・・・
よく分かりにくい説明で申し訳ありません。
|
|