Question

我在工作表的单元格A1中有以下内容：

=A1

在单元格B1中，我有：

Great website

不幸的是，在B1中它只显示A1中函数的i部分，但它没有超链接。

如何复制链接和单元格内容，以便B1中显示的内容正确链接？

Answer 1

将文本“http://www.stackoverflow.com”放在单元格E1

中

更改工作表的A1

=HYPERLINK(E1,"Great website")

和B1是与A1类似的公式。

=HYPERLINK(E1,A1)

我知道这是骗子，但它会起作用！

我认为这是一项很好的技巧，因为它可以更轻松地维护网址。

Answer 2

假设Sheet1，请尝试：

Sub LinkCopy()
Worksheets("Sheet1").Range("A1").Copy Destination:=Worksheets("Sheet1").Range("B1")
End Sub

Answer 3

请试试这个：

Sub CopyValuesAndNumberFormats()
   Dim CopyRng As Range, PasteRng As Range
   Set CopyRng = Application.Selection
   Set CopyRng = Application.InputBox("Ranges to be copied :", xTitleId, CopyRng.Address, Type:=8)
   Set PasteRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
   CopyRng.Copy
   PasteRng.Parent.Activate
   PasteRng.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False
End Sub

复制HYPERLINK功能以包含链接以及友好名称

3 个答案: