如何统计各个段落中植树的合计长度

wwdfefgg · 发表于 2018-7-13 14:40

如何统计各个段落中植树的合计长度？

统计长度.zip (38.91 KB, 下载次数: 9)

lsdongjh · 发表于 2018-7-13 14:45

不明白你说的意思，

一把小刀闯天下 · 发表于 2018-7-13 15:17

本帖最后由一把小刀闯天下于 2018-7-13 15:19 编辑

Option Explicit

Sub test()
  Dim arr, brr, i, j
  arr = Sheets("段落").[a1].CurrentRegion
  brr = Sheets("植树").[a17].CurrentRegion
  ReDim crr(1 To UBound(arr, 1) - 6, 1 To 1)
  For i = 7 To UBound(arr, 1)
For j = 1 To UBound(brr, 1)
   If brr(j, 2) >= arr(i, 2) And brr(j, 2) < arr(i, 3) And _
      arr(i, 4) = brr(j, 4) Then crr(i - 6, 1) = crr(i - 6, 1) + brr(j, 3)
Next
  Next
  Sheets("段落").[e7].Resize(UBound(crr, 1)) = crr
End Sub

wwdfefgg · 发表于 2018-7-13 17:02

一把小刀闯天下发表于 2018-7-13 15:17
Option Explicit

Sub test()

PK3+300--PK6+982右用你这个算出来是528，实际应该是615

11111111111.zip (35.06 KB, 下载次数: 3)

wwdfefgg · 发表于 2018-7-13 19:22

顶起来。。。。。。。

一把小刀闯天下 · 发表于 2018-7-13 20:51

一把小刀闯天下发表于 2018-7-13 15:17
Option Explicit

Sub test()

源数据区不是连续的，你给自己的坑挖的可以

把 brr = Sheets("植树").[a17].CurrentRegion这行改成：

With Sheets("植树")
brr = .Range("a7:d" & .Cells(Rows.Count, "a").End(xlUp).Row)
End With

wwdfefgg · 发表于 2018-7-13 22:51

一把小刀闯天下发表于 2018-7-13 20:51
源数据区不是连续的，你给自己的坑挖的可以

把 brr = Sheets("植树").[a17].CurrentRegion这行改成：
...

还是有点问题，运行你这个程序，段落表中的E列合计1836m，植树表中C列合计1767m，相差69m，，应该相等才对啊，为什么会有差值呢？问题出在哪里了？

一把小刀闯天下 · 发表于 2018-7-13 23:25

wwdfefgg 发表于 2018-7-13 22:51
还是有点问题，运行你这个程序，段落表中的E列合计1836m，植树表中C列合计1767m，相差69m，，应该相等才 ...

"段落"工作表中有交叉：多计算了69。不会写代码也就算了，表格中的数据都有错误

PK7+860 PK10+350 右 81
PK8+100 PK8+660 右 69

wwdfefgg · 发表于 2018-7-14 15:39

一把小刀闯天下发表于 2018-7-13 23:25
"段落"工作表中有交叉：多计算了69。不会写代码也就算了，表格中的数据都有错误

PK7+860 PK10+350 右 ...

大师，还是有点问题，交叉的问题解决了后，段落表中的E列合计1755m，植树表中C列合计1767m，相差12m，，应该相等才对啊，为什么会有差值呢？问题出在哪里了？

统计长度.zip (39.9 KB, 下载次数: 3)

wwdfefgg · 发表于 2018-7-14 17:02

顶起来啊。。。。。

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

[求助] 如何统计各个段落中植树的合计长度

评分

评分