大佬们vba代码按材质和厚度把总表拆分分表

zhangmy66 · 发表于 2024-8-18 10:56

quqiyuan 发表于 2024-8-18 10:47
说明工作表名称不对，你检查一下，看看怎么修改。

还是用模板测试这个表

quqiyuan · 发表于 2024-8-18 10:58

zhangmy66 发表于 2024-8-18 10:56
还是用模板测试这个表

你用我上传的文件测试肯定是没有问题的，我刚刚又运行了一次。这个东西运行不过我知道的，运行出错我也不会上传。如果是复制到你的工作簿里运行，那你要检查一下工作表名称，你注意，工作表名称最后面有个空格。

zhangmy66 · 发表于 2024-8-18 11:03

quqiyuan 发表于 2024-8-18 10:58
你用我上传的文件测试肯定是没有问题的，我刚刚又运行了一次。这个东西运行不过我知道的，运行出错我也不 ...

挺奇怪的，无非你的是xlsm格式，我还是用测试模板.xlsx，格式的，再你的里面可以，在原始模板就不行了

zhangmy66 · 发表于 2024-8-18 11:08

quqiyuan 发表于 2024-8-18 10:58
你用我上传的文件测试肯定是没有问题的，我刚刚又运行了一次。这个东西运行不过我知道的，运行出错我也不 ...

改成 Set sht = Sheets(ActiveSheet.Name) 或者把thisworkbook这个去掉就可以了。

quqiyuan · 发表于 2024-8-18 11:13

如果set sht=thisworkbook.sheet1这样是错误的，如果直接写set sht=sheet1这样就可以的.

lizhipei78 · 发表于 2024-8-18 13:14

quqiyuan 发表于 2024-8-18 09:26
参与一下，仅供参考。。。

quqiyuan · 发表于 2024-8-18 13:23

lizhipei78 发表于 2024-8-18 13:14

嗯，看上去错得离谱，可能复制粘贴没注意到。

ykcbf1100 · 发表于 2024-8-18 21:32

参与一下。。。

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

[已解决] 大佬们vba代码按材质和厚度把总表拆分分表