急，麻烦看看我代码哪里写错了

帕帕基诺

各位老师好！

      我写了个代码，目的是将《比价表》上的各类总计金额提取出来，然后在一张中间表上处理一下，接着就粘贴到《比价汇总表》上。但是代码写完总是报错，“应用程序定义或对象定义错误”，我怎么看也没看出哪里错了，请哪位好心的老师指点一下我，感激不尽！附件是两张表，我把代码写在《比价汇总表》里了。谢谢各位老师！

迪尼索斯

错误提示 .Range("a1").AutoFilter Field:=2, Criteria1:=RGB(150, 150, 150), Operator:=xlFilterCellColor
.Range("a1")这个，你看下AutoFilter说明

帕帕基诺

迪尼索斯 发表于 2023-3-19 22:32
错误提示 .Range("a1").AutoFilter Field:=2, Criteria1:=RGB(150, 150, 150), Operator:=xlFilterCellColo ...

老师，我没明白您的意思，能否展开讲讲？因为我之前用筛选代码，也是这么用的。您是指这里的range(“a1”)用的不对吗？那该怎么改呀~谢谢！

帕帕基诺

迪尼索斯 发表于 2023-3-19 22:32
错误提示 .Range("a1").AutoFilter Field:=2, Criteria1:=RGB(150, 150, 150), Operator:=xlFilterCellColo ...

老师，我明白您的意思了，我改成了.range("a1").currentregion.autofilter.但是还是报同样的错误~

tanglf188

查下这个：iuser = Environ("username")

迪尼索斯

帕帕基诺 发表于 2023-3-20 10:59
老师，我明白您的意思了，我改成了.range("a1").currentregion.autofilter.但是还是报同样的错误~

你吧a1换成a1:i35试试

帕帕基诺

迪尼索斯 发表于 2023-3-20 12:42
你吧a1换成a1:i35试试

那样做就丧失代码通用性了~而且改了之后好像还是报错~

帕帕基诺

tanglf188 发表于 2023-3-20 11:30
查下这个：iuser = Environ("username")

老师，试过了，跟这个似乎没什么关系，删除后还是报错

zxsea_7426

问题出在.UnMerge, 合并单元格撤消后，currentregion的区域范围变更了，因为非合并单元格不连续了。
所以建议在unmerge之前进行select  然后可以通过selection.copy 进行数据复制

帕帕基诺

zxsea_7426 发表于 2023-3-21 21:32
问题出在.UnMerge, 合并单元格撤消后，currentregion的区域范围变更了，因为非合并单元格不连续了。
所以 ...

万分感谢老师您的解答！确实是如您所说，我按照您的提示所说，这按照颜色筛选这一步终于进行下去了，万分感谢。但是我在成功建立一张“临时表”之后，却无论如何无法将已筛选的部分粘贴到“临时表”上，能麻烦您看看是什么原因吗？附件中就是我按您的提示和指导修改的代码~