VBA：在动态更改的Excel工作表中生成数据总计

Question

在包含.CSV文件生成的原始数据的电子表格中，我最终得到5列数据。可能有300行或354.它总是会改变。我无法想出一种方法（在宏观中）： A）计算电子表格中有多少行数据。 （使用该数字计算中位数和平均值） B）选择每列并自动计算中位数。

sample of data

Answer 1

您的A部分（以活动工作表上的G列为例），将ActiveSheet替换为Worksheets("Your worksheet name")

Dim lRows As Long, lLastRow As Long

lLastRow = ActiveSheet.Cells(Rows.Count,"G").End(xlUp).Row
lRows = lLastRow - 1 ' Less the header row

B部分将是你的任务，这里有一些提示。

Dim lLastCol As Long
lLastCol = ActiveSheet.Cells(1,Columns.Count).End(xlToLeft).Column