我正在尝试运行在这里也找到的代码。 该代码将删除工作簿上每张纸上每列的重复项,将其视为单独的实体。 每当我尝试运行代码时,编译器错误都会显示"未定义子函数或函数",并且最上部显示黄色,而" LastCell"显示为蓝色。 我已经添加了求解器参考,但仍然给我同样的错误。 我只是不知道问题出在什么地方,如果在代码上还是应该添加另一个引用。
看起来懒散的单元格是您认为的功能。 我们是传入的工作表。您的函数将使用类似
解密您的代码段后,这是我能想到的最好的方法。
将该代码复制到VBA项目中的模块代码表中。 可以使用以下简短的子过程进行测试。
如果您在此处引用Darren Bartrup-Cook的解决方案,请确保也将函数LastCell复制到您的代码中。