在不同工作表的单元格中插入数据(Excel和VBA)
在不同工作表的单元格中插入数据(Excel和VBA)
提问于 2018-06-06 07:41:18
我有一个完全可以工作的代码，可以做各种有趣的事情。它所做的一件事就是根据同一张表上的管理表来验证一些内容。
此管理表将被移动到另一个工作表(" admin“工作表)。
当我试图修改我的代码以在另一个工作表上执行此操作时，它会给我一个错误。
admin表在同一张表上时的示例代码：
If LastRow = 12 Then
Sheets("Project Name & Series").Range("U12").Formula = "=IF(COUNTIFS(TEPSD!A:A,F12,TEPSD!C:C,G12,TEPSD!E:E,H12)>=1,TRUE,FALSE)"
Else
Sheets("Project Name & Series").Range("U12").Formula = "=IF(COUNTIFS(TEPSD!A:A,F12,TEPSD!C:C,G12,TEPSD!E:E,H12)>=1,TRUE,FALSE)"
Sheets("Project Name & Series").Range("U12").AutoFill Destination:=Range("U12:U" & LastRow)
End If适用于在另一个工作表上执行相同操作的代码示例：
If LastRow = 12 Then
Sheets("Admin").Range("C12").Forumla = "=IF(COUNTIFS(TEPSD!A:A,'Project Name & Series'!F12,TEPSD!C:C,'Project Name & Series'G12,TEPSD!E:E,'Project Name & Series'H12)>=1,TRUE,FALSE)"
Else
Sheets("Admin").Range("C12").Forumla = "=IF(COUNTIFS(TEPSD!A:A,'Project Name & Series'!F12,TEPSD!C:C,'Project Name & Series'G12,TEPSD!E:E,'Project Name & Series'H12)>=1,TRUE,FALSE)"
Sheets("Admin").Range("C12").AutoFill Destination:=("C12:C" & LastRow)
End IfVBA不喜欢它。我想是因为“管理”表没有激活吗？
更改代码的最简单方法是什么，而不需要重写大部分代码？
谢谢
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50710376
复制相关文章
相似问题