如何根据纵横向之和与各分项之差校对数据

zhusong1998 · 发表于 2018-8-20 16:08

有很多表，表中总人数的第一列数字是各行之和，最后一列是和与各分项之差，为0则该行正确。
第一行数字是各列之和。最后一行是和与各分项之差，为0则该列正确。

上述是手工校对的办法，发现错误手工输入校正。

但在校对时发现很有规律，如果任何一个单元格校对不正确，行、列之差都不能全为0。
看似很有规律，但总也找不到这个规律是什么，大概是数学、矩阵之类的。
求助高人能否找到这个规律，以VBA解决自动校对并更正错误的单元格。

自动更改错误人数.rar (14.16 KB, 下载次数: 5)
无标题.png

microyip · 发表于 2018-8-20 16:14

每行每列加一次与上面的数对比一下就知道差别是多少啦

zhusong1998 · 发表于 2018-8-20 17:45

本帖最后由 zhusong1998 于 2018-8-20 17:48 编辑

microyip 发表于 2018-8-20 16:14
每行每列加一次与上面的数对比一下就知道差别是多少啦

我把每行每列都加了，也把公式留在表格下面，纵向校对行和横向校对列里都是公式，也可以手工去修改，直到修改到为0。
但总感觉这里面有规律可循，可以以程序来处理这个规律。

microyip · 发表于 2018-8-20 18:30

zhusong1998 发表于 2018-8-20 17:45
我把每行每列都加了，也把公式留在表格下面，纵向校对行和横向校对列里都是公式，也可以手工去修改，直到 ...

这个有什么规律不规律的，不就是数独游戏里的填数而已

iwangyi · 发表于 2018-8-20 19:47

Sub cc()
Set d = CreateObject("scripting.dictionary")
arr = [a1:j14]
For x = 2 To 14
For y = 2 To 10
d(arr(x, 1) & arr(1, y)) = arr(x, y)
Next y: Next x
brr = [a17:j30]
For i = 2 To 14
For j = 2 To 10
If d(brr(i, 1) & brr(1, j)) - brr(i, j) <> 0 Then
Cells(i, j).Interior.ColorIndex = 3
End If
Next j: Next i
End Sub

iwangyi · 发表于 2018-8-20 19:51

码在审核，先上附件看件参考

iwangyi · 发表于 2018-8-20 19:52

码在审核，先上附件看件参考

zhusong1998 · 发表于 2018-8-21 09:49

iwangyi 发表于 2018-8-20 19:47
Sub cc()
Set d = CreateObject("scripting.dictionary")
arr = [a1:j14]

抱歉，是我没有表达清楚，害得您编了那么代码，我再细说下。
1、校对前没有正确的数据表，所以无法对照是否缺少数据或是哪地方缺少数据。目前我是公式法判断哪一行哪一列出现了问题，再对非0的行和列一个一个地校对。
2、不仅要判断哪地方缺少数据，还要判断缺少哪一个数字并更正过来。

我再重新上传一下数据文件，里面有三个级各个班级的统计表，另有初中的统计表

虽然可以用公式来校对，但总感觉用VBA做更有趣，以至于不能自拔。

只能求助大家，更深入学习VBA了。

自动更改错误人数.rar (13.91 KB, 下载次数: 9)

zhusong1998 · 发表于 2018-8-21 09:55

microyip 发表于 2018-8-20 18:30
这个有什么规律不规律的，不就是数独游戏里的填数而已

嗯，您说的很对，开始也想到数独游戏，但与数独不同，数独表很规整，而我这个数据表不规整。

microyip · 发表于 2018-8-21 09:58

zhusong1998 发表于 2018-8-21 09:55
嗯，您说的很对，开始也想到数独游戏，但与数独不同，数独表很规整，而我这个数据表不规整。

实际上，数独规则跟你目前需求的规则是一样的，都是要求横竖数值和一致，不同的是，你横竖数值和不固定，数独的横竖数值和是固定而已

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

[求助] 如何根据纵横向之和与各分项之差校对数据