A、B、C列里的数据有日期、类型、金额3项，有些日期没有数据的就会没有，我需要做出右边的的效果，按照日期、类型弄个列表出来显示每天的数据，请教一个比较好的公式或运用方法，我弄这个没掌握到好的办法耗时比较多。

透视表应该就可以

A2=
=IFERROR(TEXT(INT(SMALL(IF($I$2:$P$555>0,$H$2:$H$555*10+CODE($I$1:$P$1)-64,""),ROW()-1)/10),"yyyy/m/d"),"")
B2=
=IFERROR(CHAR(RIGHT(SMALL(IF($I$2:$P$555>0,$H$2:$H$555*10+CODE($I$1:$P$1)-64,""),ROW()-1),1)+64),"")
C2=
=VLOOKUP(--A2,H:P,MATCH(B2,H$1:P$1,))
按CTRL+SHIFT+ENTER

透视图 简单方便

'输出时B列分段按拼音升序，另外你这示例结果有点问题的吧
Option Explicit
Sub abc()
　Dim i, j, a, m, p
　a = Range("h1:p" & [h1].End(xlDown).Row).Value
　ReDim b(1 To UBound(a) * (UBound(a, 2) - 1), 1 To 3)
　For i = 2 To UBound(a)
　　For j = 2 To UBound(a, 2)
　　　If a(i, j) <> 0 Then
　　　　m = m + 1
　　　　b(m, 1) = a(i, 1): b(m, 2) = a(1, j): b(m, 3) = a(i, j)
　　　End If
　　Next
　　Call bsort(b, p + 1, m, 1, 3, 2): p = m
　Next
　With [a2]
　　.Resize(UBound(b)).NumberFormatLocal = "yyyy-mm-dd"
　　.Resize(UBound(b), UBound(b, 2)) = b
　End With
End Sub
Function bsort(a, first, last, left, right, key)
　Dim i, j, k, t
　For i = first To last - 1
　　For j = first To last + first - 1 - i
　　　If StrComp(a(j, key), a(j + 1, key), vbTextCompare) = 1 Then
　　　　For k = left To right
　　　　　t = a(j, k): a(j, k) = a(j + 1, k): a(j + 1, k) = t
　　　　Next
　　　End If
　　Next
　Next
End Function

数据透视表一波搞定

=SUMIFS($C:$C,$A:$A,$H2,$B:$B,I$1)
请注意是否有重复数据。例如同一天有两个A，会求和！

插日期列前入辅助列
在A2单元格输入公式=B2&C2
下拉复制
在J2单元格输入公式=IFERROR(VLOOKUP($I2&J$1,$A$2:$D$24,4,0),0)
下拉右拉复制

透视类型列