Excel VBA 7.38单个工作表行列同时计算，一个选择一次到位！ / 四六文摘

一起学习，一起进步~~

前景提要(文末提供源码下载）

在我们之前分享了关于工作表的数据计算的文章之后，有小伙伴过来给我增加难度了

他表示在自己的日常工作中也是经常需要进行数据的计算，但是并不到一定是求和计算，有时是平均值的结算

而且因为数据分析的需要，很多时候需要行列数据同时进行计算，虽然可以输入公式来解决，但是每次输入公式之后还需要向下填充，比较麻烦，一些不常用的函数自己也记不清楚，希望能够通过VBA来实现这样的效果，那么我们就来研究下这个功能

场景简介

其实行列同时计算的功能，我之前曾经说过，在我们的平时的工作中还是比较常见的，因为我们分析的数据，有时是针对整体，有时有需要针对个体

所以行列同时计算，也是很实用的案例，我就来分析下这个场景，还是我们之前的案例。

我们需要针对所选数据区域进行同一行数据的求和，同一列数据的求和，当然为了数据处理的灵活性，我们增加多一些条件，比方说最大值，最小值，平均值这样的计算。

代码区

Sub TEST()Dim sth As Worksheet, trng As Range, lrng As Range, arr()Dim rng As RangeActiveSheet.UsedRange.Interior.Color = vbWhite

Set rng = Application.InputBox("请选择要计算的单元格区域，仅数值区域，不含标头", "区域的确定", , , , , , 8)

choice = Application.InputBox("请选择计算方法" & Chr(13) & "1:求和" & Chr(13) & "2:求最大值" & Chr(13) & "3:求平均" & Chr(13) & "4:最小值", "汇总方式", , , , , , 1)

Nchoice = Choose(choice, "SUM", "MAX", "AVERAGE", "MIN")Call cal(Nchoice, rng)End SubSub cal(s, rng)CountR = Cells(Rows.Count, rng.Column).End(xlUp).RowCountL = Cells(rng.Row, Columns.Count).End(xlToLeft).Columnrng.Interior.Color = vbYellowrng(1).Offset(-1, CountL - rng.Column + 1) = srng.Offset(0, rng.Columns.Count).Columns(1).FormulaR1C1 = "=" & s & "(RC[-" & rng.Columns.Count & "]:RC[-1])"rng(1).Offset(CountR, -1) = srng.Offset(rng.Rows.Count, 0).Rows(1).FormulaR1C1 = "=" & s & "(R[-" & rng.Rows.Count & "]C:R[-1]C)"End Sub

来看看代码执行的效果

我们需要先选择好计算的数值区域，既然是数据值区域，自然是不包含表头内容的，输入框中也有明确的说明