关于Excel中用VBA添加超链接的问题

貌似跟你的表名中刮号有关，换成其他符号试试我试过下划线可以

试试表名前后加上单引号，这个试过也行

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="'" &sh.Name &"'" &"!A1" '添加超链接

不用这么麻烦的:

1、无需识别是否需要带有引号，直接将所有的工作表名称都带单引号就是了，带了单引号不影响超链接，不带单引号对于一些含有特殊字符的工作表名称就无效了。所以用单引号括起来才是王道；

2、至于你说的把引号删掉就更是不靠谱了，excel的机制就是这样，你看到的单引号是系统自动加的，你是无法删除的。

直接修改为：

ActiveSheet.Hyperlinks.Add anchor:=Cells(10 + i, 1), Address:="", SubAddress:= "'" & Sheets(i + 1).Name & "'!A1"

---