#include <array.au3>
Dim $arr[1][2]=[["模号","总金额"]]
$xls=ObjGet("z:\资料.xls")
With $xls.worksheets("sheet1")
$arrt=.range("a1").resize(.cells(.rows.count,1).end(3).row,5).value
EndWith
;_ArrayDisplay($arrt)
$xls.close(False)
$dic=ObjCreate("scripting.dictionary")
For $n=1 To UBound($arrt,2)-1
$str=StringLeft($arrt[0][$n],10)
If Not $dic.exists($str) Then
ReDim $arr[UBound($arr)+1][UBound($arr,2)]
$dic($str)=UBound($arr)-1
$arr[$dic($str)][0]=$str
EndIf
If Not $dic.exists($arrt[2][$n]) Then
ReDim $arr[UBound($arr)][UBound($arr,2)+1]
$dic($arrt[2][$n])=UBound($arr,2)-1
$arr[0][$dic($arrt[2][$n])]=$arrt[2][$n]
EndIf
$arr[$dic($str)][1]+=$arrt[3][$n]
$arr[$dic($str)][$dic($arrt[2][$n])]+=$arrt[4][$n]
Next
_ArrayDisplay($arr)
总金额放后面不方便,放前面了需要的话,自己输出时重新整理一下就行了,输出到listview之类的,自己完成吧 |