數據範圍轉換

Question

我有一個從服務調用返回的對象列表。

Object has below attributes: 
DateVal1 
DateVal2 
Value 

我怎樣分配對象爲2D矩陣範圍的範圍內：如果沒有與行，列組合打印值別的打印NA對象 日期1作爲列，日期2作爲標題行

。

數據可能很大（最大30x30），所以試圖避免每次都在列表中查找。

Date  1/31/2015 2/28/2015 3/31/2015 
1/1/2015 1   NA   NA 
1/2/2015 NA  2   NA 
1/3/2015 NA  NA   3 

如果這個略有不同，該怎麼辦？

Object has below attributes: 
    DateVal1 
    DateVal2 
    Value1 
    Value2 

和所需的O/P是這樣的：

Date1  Date2    110  20   30 
1/1/2015 1/10/2015   1   NA   NA 
1/2/2015 1/20/2015   NA   2   NA 
1/3/2015 1/31/2015   NA   NA   3 

Answer 1

未經檢驗的，但這樣的事情：

Sub Test() 

    Dim points, i As Long, r As Long, c As Long 
    Dim dictRows, dictCols, grid(0, 0) 
    'dictionary to map "key" values to row numbers 
    Set dictRows = CreateObject("scripting.dictionary") 
    'dictionary to map "key" values to column numbers 
    Set dictCols = CreateObject("scripting.dictionary") 

    points = getPoints() 
    r = 0 
    c = 0 

    '[sort points by date1 here] 
    'map date1 to "row" 
    For i = LBound(points) To UBound(points) 
     If Not dictRows.exists(points(i).date1) Then 
      r = r + 1 
      dictRows.Add points(i).date1, r 
     End If 
    Next i 
    '[sort points by date2 here] 
    'map date2 to "column" 
    For i = LBound(points) To UBound(points) 
     If Not dictCols.exists(points(i).date2) Then 
      c = c + 1 
      dictCols.Add points(i).date2, c 
     End If 
    Next i 

    ReDim grid(1 To r, 1 To c) 

    For i = LBound(points) To UBound(points) 
     grid(dictRows(points(i).date1), dictCols(points(i).date2)) = points(i).Value 
    Next i 

    'populate on worksheet 
    With ActiveSheet 
     .Range("A2").Resize(r, 1).Value = Application.Transpose(dictRows.keys) 
     .Range("B2").Resize(r, c).Value = grid 
     .Range("B1").Resize(1, c).Value = dictCols.keys 
    End With 

End Sub