我知道这样不好，但是求教各位VBA大神了
谢邀。但是我是看了半天真没看出来右边的数据是怎么从左边的数据得出来的。
■网友
把数据加载到数组里，分二次for,一次是月，一次是日。再加一个月份和润月的判断。最后就是计算到另一个数组里，分别是日期和值，最后输出就完事。
■网友
解法一数据透视表法（二维降一维）： http://jingyan.baidu.com/article/d621e8da0c0d032865913faf.html解法二vbaSub test() \u0026#39;表格所在的Sheet激活状态Dim Ar, I\u0026amp;, J\u0026amp;, Br, K\u0026amp;Range("n:o").ClearContents Ar = ActiveSheet.Range("a1").CurrentRegion ReDim Br(1 To 372, 1 To 2) For I = 2 To UBound(Ar, 2) For J = 2 To UBound(Ar) If Ar(J, I) \u0026lt;\u0026gt; "" Then K = K + 1 Br(K, 1) = 41274 + K Br(K, 2) = Ar(J, I) End If Next J Next I Range("n1").Resize(372, 2) = Br Range("n1:n372").NumberFormatLocal = "yyyy-mm-dd"End Sub
推荐阅读
- |艾滋病“后悔药”你知道吗？高危性行为后，这样做能救你一命
- 为啥知乎上普便有一种【我在北上广深打工，所以拥有更好的视野】这样的错觉
- 汽车|看了中消协4S店服务测评调查结果，终于知道法系车为啥卖不好了
- 肝硬化|肝不好，身体会出现\3黑2疼\，医生直言：小心\肝硬化\找上门
- |警方提醒：冬季这样做极易引发交通事故！
- 上市公司孵化新项目成熟之后，拆分出去成立新公司，这样不会损害其他股东的利益吗
- 怎样评价类似前橙会、百老汇、南极圈这样类型的离职帮抱团，对企业的积极意义和消极意义
- 汽车|把车越卖越贵，全新领克01为何可以这样？
- 部位|妈妈要知道宝宝身体这4个部位很怕冷
- 五年级儿子莫名有了部手机！爸爸知道真相后如五雷轰顶……