excel中怎么用宏将每列求和放
Sub行列自动求和()DimRng1AsRange,Rng2AsRange,Rng3AsRangeDimRng4AsRange,Rng5AsRange,WsAsWorksheetDimHX_SUBAsDouble,SX_SUBAsDoubleSetWs=ActiveSheetWithWsSetRng1=。 UsedRangeWithRng1SetRng2=。Cells(1,。Columns。Count+1)SetRng3=。Cells(。Rows。Count+1,1)EndWith''''''''''''''''''''''''''''''''''''开始整横向ForEachRng4In...全部
Sub行列自动求和()DimRng1AsRange,Rng2AsRange,Rng3AsRangeDimRng4AsRange,Rng5AsRange,WsAsWorksheetDimHX_SUBAsDouble,SX_SUBAsDoubleSetWs=ActiveSheetWithWsSetRng1=。
UsedRangeWithRng1SetRng2=。Cells(1,。Columns。Count+1)SetRng3=。Cells(。Rows。Count+1,1)EndWith''''''''''''''''''''''''''''''''''''开始整横向ForEachRng4In。
Range(Rng2,。Cells(Rng3。Row,Rng2。Column))。CellsHX_SUB=0ForEachRng5In。Range(。Cells(Rng4。Row,Rng3。Column),。
Cells(Rng4。Row,Rng4。Offset(0,-1)。Column))。CellsIfVBA。IsNumeric(Rng5。Value)ThenHX_SUB=HX_SUB+Rng5。
ValueEndIfNextRng4。Value=HX_SUBNext''''''''''''''''''''''''''''''''''''横向已完成,开始整坚向SetRng4= (。Cells(Rng3。
Row,1),。Cells(Rng3。Row,Rng2。Column))。CellsSX_SUB=0ForEachRng5In。Range(。Cells(Rng2。Row,Rng4。Column),Rng4)。
CellsIfVBA。IsNumeric(Rng5。Value)ThenSX_SUB=SX_SUB+Rng5。ValueEndIfNextRng4。Value=SX_SUBNext''''''''''''''''''''''''''''''''''''坚向也完成EndWithEndSub。
收起
