各位好！我现在在处理一个Excel动态数据集的问题，想请教下大家怎么用VBA高效实现两个计算需求，同时我自己写代码的时候也卡壳了，想请帮忙看看。

先说说我的数据集情况：

• A列固定是升序的数字，对应图表里的时间[s]，相当于x轴数据
• 后面的列都是数据列，行数和列数每次都是动态变化的，没有固定的范围
  

我的两个核心需求是：

• 计算每一行的平均值，把结果放到该行最后一列的右侧（就是图里标绿的那列位置）
• 计算每一列的平均值，把结果放到该列A列最后一行的下一行位置

我之前找了一段相关的VBA代码参考，但不管是把它改成适配我的需求，还是想找到最高效的实现方式，都有点摸不着头绪。目前我自己写的代码开个头是这样的，后面就卡住了：

'Option Explicit

Public Sub ExtractInformation()
      
      'Calculate averages of columns
      Dim lastCol As Long, lastRow As Long, myRange As Range
      ' 后面的逻辑还没捋顺，卡在动态定位数据范围和平均值批量计算的部分

想请各位帮忙看看，怎么调整代码才能实现我的两个需求，同时尽量保证代码的运行效率？

备注：内容来源于stack exchange，提问作者JetskiS