|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
檔案打不開//格式太多
可惜版本太舊// 只能草做
sub TEST()
dim arr, brr, Xrr, Yrr, c%, i&, j%
arr=range([a1], activesheet.usedrange)
c = ubound(arr, 2) - 3
redim brr(1 to c): Xrr = brr: Yrr = brr
for i=7 to ubound(arr)
if right(arr(i, 3) ,2)="合計" then cells(i,4).resize(1,c)=Xrr: Xrr=brr: Yrr=brr: goto i01
if right(arr(i, 3) ,2)="小計" then cells(i,4).resize(1,c)=Yrr: Yrr=brr: goto i01
for j = 4 to ubound(arr,2)
Xrr(j-3)=Xrr(j-3)+val(arr(i,j) '合計-累計
Yrr(j-3)=Yrr(j-3)+val(arr(i,j) '小計-累計
next j
i01: next i
end sub
|
|