另类的分列汇总，谢谢microyip老师！

lhj323323 · 发表于 2017-11-8 23:04

本帖最后由 lhj323323 于 2017-11-9 00:01 编辑

老师：

请看上传的附件，内有详细的说明，是关于分列汇总的求助。
请老师有空时，帮忙看看，先谢谢了

求助.rar (7.63 KB, 下载次数: 5)

microyip · 发表于 2017-11-8 23:24

无论怎么另类，万变不离其宗，你应该多思考一下以往的汇总的原理啊

microyip · 发表于 2017-11-8 23:40

本帖最后由 microyip 于 2017-11-8 23:45 编辑

Sub 统计()
Dim vData As Variant, nRow As Integer, nCol As Integer
Dim vFill As Variant
ReDim vFill(1 To 10)
vData = Sheet1.[A1].CurrentRegion.Value
vFill(1) = DateValue(Split(Split(vData(1, 1), ":")(1), ",")(0))
For nRow = 3 To UBound(vData) - 1
vFill(2) = vFill(2) - (vData(nRow, 5) > 0) * 1
vFill(3) = vFill(3) + (vData(nRow, 4) > 0) * (vData(nRow, 5) = 0) * 1
vFill(4) = vFill(4) - (vData(nRow, 4) = "") * 1
If (vData(nRow, 7) <> "") Or (vData(nRow, 8) <> "") Then
nCol = 5 - (vData(nRow, 7) <> "") * vData(nRow, 7) - (vData(nRow, 8) <> "") * (vData(nRow, 8) + 3)
vFill(nCol) = vFill(nCol) + 1
End If
Next
[J23:S23] = vFill
[J23].NumberFormatLocal = "yyyy/m/d"
End Sub

复制代码

microyip · 发表于 2017-11-8 23:46

附上附件以供参考

lhj323323 · 发表于 2017-11-8 23:53

microyip 发表于 2017-11-8 23:40

microyip老师

您说得是。

请看下图，统计结果还有点错

lhj323323 · 发表于 2017-11-9 00:00

microyip 发表于 2017-11-8 23:46
附上附件以供参考

谢谢microyip老师

4楼的正确，3楼的有错。

microyip · 发表于 2017-11-9 00:58

lhj323323 发表于 2017-11-9 00:00
谢谢microyip老师

4楼的正确，3楼的有错。

你再看看，3楼在4楼上传前已经修正过

lhj323323 · 发表于 2017-11-9 12:14

本帖最后由 lhj323323 于 2017-11-9 12:15 编辑

microyip 发表于 2017-11-9 00:58
你再看看，3楼在4楼上传前已经修正过

嗯，嗯

昨天我回复的，需要管理员审核，所以就延迟了，然后就看到您第二次发的内容，才知道已更正了。

老师，还有个问题
[J23:S23] = vFill
我想改成，将当次生成的结果数据，导入到W列的最未行
Range("J65536").End(xlUp).Offset(1, 0).Resize(UBound(vFill), UBound(vFill, 2)) = vFill '向下依次导入

为什么会报错呢？提示如下：
错误运行9
下标越界

lhj323323 · 发表于 2018-4-6 21:32

lhj323323 发表于 2017-11-8 23:53
microyip老师

您说得是。

测试是否能上传附件

LMY123 · 发表于 2018-4-7 11:45

数组实现分类汇总

		自动登录	找回密码
密码			免费注册

[已解决] 另类的分列汇总，谢谢microyip老师！

最新热点 /1