主题：如何在本表重命名其它任意表

详见编辑栏egd文件下载

egd文件下载

egd文件下载

也可以这样
增加一个字符型变量，姑且命名为%值%
增加一个字符型变量，姑且命名为%重命名表名%
按钮公式改成：

SetVariable("%值%",cell(1,1,[%表%])) And evalfor([%表%],1,"SendKeys([%重命名表名%] + ""{tab 4}~"") And Do(53)",1,1) And SetCellText([%表%],1,1,[%值%])

谢谢啦！就是这个效果。

如果你的文件某些表设有预处理公式或有窗口，建议采用4楼公式，应该这样不会影响速度且不闪屏。

wjq1072总版主的公式是闪屏，czy总版主的不闪屏，但修改重命名表的第一行为“True”，这是何原因。有没有一个最佳的办法，既不闪屏又不改变表中的内容。

不好意思，我公式中写错变量名称了

SetVariable("%值%",cell(1,1,[%表%])) And evalfor([%表%],1,"SendKeys([%重命名表名%] + ""{tab 4}~"") And Do(53)",1,1) And SetCellText([%重命名表名%],1,1,[%值%])

也可这样(自行更改[XXX]):
evalfor([%表%],1,"if(SendKeys([%重命名表名%] + ""{tab 4}~"") And Do(53),[XXX],[XXX]",1,1)

谢谢啦！