一个sheet包含多个标题不同的表，如何按制定的标题汇总成一个表？

quqiyuan · 发表于 2024-8-22 15:51

这些代码跟版本没什么关系啊，你设置个断点在倒数第5行beep那里，按f5测试看看什么情况，找找问题，我测试通过才上传的，并且sheet2的数据就是运行后的数据

quqiyuan · 发表于 2024-8-22 15:52

我今天用的版本是Excel2016，不过跟这个关系不大。

jjmysjg · 发表于 2024-8-22 16:00

quqiyuan 发表于 2024-8-22 15:51
这些代码跟版本没什么关系啊，你设置个断点在倒数第5行beep那里，按f5测试看看什么情况，找找问题，我测试 ...

倒数16行，这句
If IsNumeric(x) Then brr(n, d(k)) = arr(j, x)

quqiyuan · 发表于 2024-8-22 16:16

jjmysjg 发表于 2024-8-22 16:00
倒数16行，这句
If IsNumeric(x) Then brr(n, d(k)) = arr(j, x)

你在本地窗口看到x到值是多少

ykcbf1100 · 发表于 2024-8-22 16:18

jjmysjg 发表于 2024-8-22 16:00
倒数16行，这句
If IsNumeric(x) Then brr(n, d(k)) = arr(j, x)

把这句If IsNumeric(x) Then brr(n, d(k)) = arr(j, x)改成下面这句再试一下：
If val(x) Then brr(n, d(k)) = arr(j, x)

jjmysjg · 发表于 2024-8-22 16:23

本帖最后由 jjmysjg 于 2024-8-22 16:26 编辑

ykcbf1100 发表于 2024-8-22 16:18
把这句If IsNumeric(x) Then brr(n, d(k)) = arr(j, x)改成下面这句再试一下：
If val(x) Then brr(n, d ...

谢谢草爷，还是不行。改了以后，还是显示不匹配了。

jjmysjg · 发表于 2024-8-22 16:24

可能我的机器有问题

ykcbf1100 · 发表于 2024-8-22 16:26

jjmysjg 发表于 2024-8-22 16:23
谢谢草爷，还是不行。改了以后，倒数第17行显示不匹配了。

应该是你的电脑的问题了。

quqiyuan · 发表于 2024-8-22 16:26

match找到标题，会返回数字，找不到会返回错误，所以isnumeric就是判断是不是数字用的，错误就不赋值给brr

jjmysjg · 发表于 2024-8-22 17:02

quqiyuan 发表于 2024-8-22 16:26
match找到标题，会返回数字，找不到会返回错误，所以isnumeric就是判断是不是数字用的，错误就不赋值给brr

大师，把你的这个VBA引用截图发出来看看，好吗

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

[求助] 一个sheet包含多个标题不同的表，如何按制定的标题汇总成一个表？