如何用VBa将需要询证的单位，金额，科目汇总到一张表上？

陈王宇翔 · 发表于 2024-1-27 18:37

汇总.rar (379.39 KB, 下载次数: 8)

cjc209 · 发表于 2024-1-27 19:08

var arr1=RandUniqueIntArray_一维(25,1,27).join()

ykcbf1100 · 发表于 2024-1-27 19:20

参与一下。。。

Sub ykcbf() '//2024.1.27
Dim arr, brr(1 To 1000, 1 To 5)
Set sh = ThisWorkbook.Sheets("列表")
For Each sht In Sheets(Array("应收账款明细表", "预付账款明细表", "其他应收款明细表", "应付账款明细表", "预收账款明细表", "其他应付款明细表"))
With sht
arr = .UsedRange
For i = 9 To UBound(arr)
If arr(i, 11) = "已询证" Then
If arr(i, 16) <> 0 Then
m = m + 1
brr(m, 1) = m
brr(m, 2) = arr(i, 2)
brr(m, 3) = IIf((InStr(.Name, "应收") Or InStr(.Name, "预付")), arr(i, 16), 0)
brr(m, 4) = IIf((InStr(.Name, "应付") Or InStr(.Name, "预收")), arr(i, 16), 0)
brr(m, 5) = Replace(.Name, "明细表", "")
End If
End If
Next
End With
Next
With sh
.[a3:e1000] = ""
.[a3].Resize(m, 5) = brr
.[a3].Resize(m, 5).Borders.LineStyle = 1
End With
MsgBox "OK！"
End Sub

复制代码

陈王宇翔 · 发表于 2024-1-27 19:20

cjc209 发表于 2024-1-27 19:08
var arr1=RandUniqueIntArray_一维(25,1,27).join()

我是想吧后面的明细表上的数据汇总到第一张列表上，就像列表里的例子一样。

ykcbf1100 · 发表于 2024-1-27 19:20

附件供参考。。。

陈王宇翔 · 发表于 2024-1-27 20:30

ykcbf1100 发表于 2024-1-27 19:20
附件供参考。。。

汇总好列表后，能否对应把黄色的三个单元格里的内容复制到F-H三列？

汇总.rar (387.46 KB, 下载次数: 2)

ykcbf1100 · 发表于 2024-1-27 20:33

陈王宇翔发表于 2024-1-27 20:30
汇总好列表后，能否对应把黄色的三个单元格里的内容复制到F-H三列？

你这人有点问题啊，对于别人的帮助不仅没送小花，感谢的话也没有。回复呢就提新要求，你觉得合适吗？

陈王宇翔 · 发表于 2024-1-27 20:38

ykcbf1100 发表于 2024-1-27 20:33
你这人有点问题啊，对于别人的帮助不仅没送小花，感谢的话也没有。回复呢就提新要求，你觉得合适吗？

不好意思啊，马上送

ykcbf1100 · 发表于 2024-1-27 20:43

陈王宇翔发表于 2024-1-27 20:38
不好意思啊，马上送

你知道写代码的人怎么想吗？
帮助别人是愿意的，但也希望得到免费的小花或者收到一二句感谢的话。有鼓励才有动力嘛。

陈王宇翔 · 发表于 2024-1-27 20:45

ykcbf1100 发表于 2024-1-27 20:43
你知道写代码的人怎么想吗？
帮助别人是愿意的，但也希望得到免费的小花或者收到一二句感谢的话。有鼓励 ...

是的是的，是我疏忽了，谢谢兄弟了。论坛有你们这些热心人，实乃我们这些菜鸟所幸。再次感谢

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

[求助] 如何用VBa将需要询证的单位，金额，科目汇总到一张表上？