HYPERLINK即使缩短Bitly也找不到长链接
使用Excel VBA，我使用Bitly API来缩短长链接。 macros运行完美，我可以将所有的长链接转换为短链接。 现在，当我复制/粘贴这些链接到浏览器，他们工作正常，例如http://bit.ly/1FVcuRx但是当我用它们：
=HYPERLINK(A1, 2)
其中A1 = http://bit.ly/1FVcuRx ，然后我点击它，它的错误：“找不到[某个文件，本地目录]”。
我不知道如何使其工作，因为链接工作正常，但超链接不起作用。
另外，我注意到一点，对于较短的链接（less于255个字符），当我运行macros时，Bitly链接正常工作与HYPERLINKfunction。
它似乎有问题与Excel 2013和Excel 2016（从办公室365）。 我试了谷歌文档和Excel 2013（普通版），它工作正常。
您的代码〜= HYPERLINK（A1，2）〜可以在Office 365的excel 2016上正常工作。或者，您可以使用以下代码将这些小型url变成可点击的超链接。 我也上传了一个示例文件到Dropbox。 https://www.dropbox.com/s/52vl33rma7468no/test_0910_2015b.xlsm?dl=0
Sub ConvertToHyperlinks() Dim Rng As Range Dim WorkRng As Range On Error Resume Next Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value Next End Sub