优化B列公式，提高计算速度

WYS67 · 发表于 2018-10-14 11:05

山菊花发表于 2018-10-14 09:32
现在的公式已经很不错了。提供一个VBA方法供参考。

总版主出马，一切就都不是问题！代码计算结果正确，速度更快！

WYS67 · 发表于 2018-10-14 15:09

希望老师们帮忙！

lss001 · 发表于 2018-10-14 15:19

本帖最后由 lss001 于 2018-10-14 15:24 编辑

'tjcs数组公式→=tjsc(统计区域,条件单元格)

Function tjcs(rng As Range, tj As Range)
Dim ar(), br(), m, n
ar = rng: ReDim br(1 To UBound(ar), 1 To 1)
For k = UBound(ar) To 1 Step -1
      If ar(k, 1) <> "" Then Exit For
      br(k, 1) = ""
Next
For i = 1 To k
      If ar(i, 1) <> "" Then
         n = n + 1: m = m + ar(i, 1)
         br(i, 1) = Round(n - m / tj, 1)
      Else
         br(i, 1) = ""
      End If
Next
tjcs = br
End Function

lss001 · 发表于 2018-10-14 19:50

WYS67 发表于 2018-10-14 15:09
希望老师们帮忙！

參照以上！

WYS67 · 发表于 2018-10-14 20:58

lss001 发表于 2018-10-14 19:50
參照以上！

老师：为了让两个过程都能在《00 总表》里运行，对原表头A1:J2做了统一规整，这一规整又出现了问题：《总表》的A1:J2是“间隔行数周期计数”的，最大行号在H1里；《原表头》的A1:J2是“更新分表”的，最大行号在G1里；规整后统一在H1里。我也在“按J1更新分表”的代码里把G1改成了H1。但是“间隔行数周期计数”能够运行，“更新分表”代码却出现问题

麻烦您看一下问题出现在哪里了？怎样使两个代码都能在《总表》里完美运行。

河南快三.zip (1.11 MB, 下载次数: 8)

lss001 · 发表于 2018-10-14 21:36

WYS67 发表于 2018-10-14 20:58
老师：为了让两个过程都能在《00 总表》里运行，对原表头A1:J2做了统一规整，这一规整又出现了问题：《总 ...

把黄色行小括号里的→1
改为→"总表"

WYS67 · 发表于 2018-10-14 21:41

lss001 发表于 2018-10-14 21:36
把黄色行小括号里的→1
改为→"总表"

老师出马，手到病除！赞！！！

WYS67 · 发表于 2020-4-5 07:48

本帖最后由 WYS67 于 2020-4-5 08:08 编辑

lss001 发表于 2018-10-14 15:19
'tjcs数组公式→=tjsc(统计区域,条件单元格)

Function tjcs(rng As Range, tj As Range)

次数比较.zip (34.12 KB, 下载次数: 0)

老师：麻烦您看看，为什么自定义函数CSBJ在sheet1的C、D列可以显示正确的结果；却在sheet2的B列显示#VALUE!错误？
但如果在sheet2的A5里输入27，B5:B1000就可以显示正确的结果了【见上边右图】。难道是数据源里的数字格式不同引发的错误？

怎样才能忽略数据源上边的空白，或数字公式，使代码能够在sheet1的C、D列，或sheet2的B列始终显示正确的计算结果？

代码如下：

Function CSBJ(rng As Range, tj As Variant)
Dim ar(), br(), m, n
ar = rng: ReDim br(1 To UBound(ar), 1 To 1)
For k = UBound(ar) To 1 Step -1
      If ar(k, 1) <> "" Then Exit For
      br(k, 1) = ""
Next
For i = 1 To k
      If ar(i, 1) <> "" Then
         n = n + 1: m = m + ar(i, 1)
         br(i, 1) = Round(n - m / tj, 1)
      Else
         br(i, 1) = ""
      End If
Next
CSBJ = br
End Function

WYS67 · 发表于 2020-4-5 09:39

lss001 发表于 2018-10-14 15:19
'tjcs数组公式→=tjsc(统计区域,条件单元格)

Function tjcs(rng As Range, tj As Range)

老师：请您看看http://club.excelhome.net/thread-1530107-1-1.html里的问题【我又新发了一帖，里面的描述更详尽】怎么解决？

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

[求助] 优化B列公式，提高计算速度

评分