如何将VBA代码应用于一系列单元格？

我的代码作用于用户输入，然后根据用户在单元格中输入的内容自动创建超链接

如果用户在单元格中键入

hello

，将创建一个超链接并链接到

www.google.com/hello

每个单元格都有不同的输入，因此我的范围必须从刚才的

hello

扩展到其他用户输入

我只对一个单元格有效，但当我尝试将其扩展到多个单元格时，我会得到一个不匹配的错误，我怀疑这是由于我引用了错误的单元格或其他原因造成的

这是我的密码：

Sub automaticHyperlink()

Dim link As String

link = "http://www.google.com/" & Range("F2")

Range("F2").Hyperlinks.Add Range("F2"), link

End Sub

当我将所有范围参考从

F2

更改为

F2:F4

时，我会得到一个错误

我的问题是，如何正确地将此代码应用于多个单元格范围而不产生错误

如果有任何问题，请告诉我

---

谢谢。

首先，我建议将要显示的文本作为自己的字符串。然后，简单地在你的范围内循环

Sub automaticHyperlink()

Dim link As String, dispText As String
Dim cel As Range
Dim lastRow as Long

lastRow = Cells(rows.count,6).End(xlup).Row

For Each cel In Range("F2:F" & lastRow)
    dispText = cel.value
    link = "http://www.google.com/" & dispText
    cel.Hyperlinks.Add anchor:=cel, Address:=link, TextToDisplay:=dispText
Next cel

End Sub

---

首先，我建议将要显示的文本作为自己的字符串。然后，简单地在你的范围内循环

Sub automaticHyperlink()

Dim link As String, dispText As String
Dim cel As Range
Dim lastRow as Long

lastRow = Cells(rows.count,6).End(xlup).Row

For Each cel In Range("F2:F" & lastRow)
    dispText = cel.value
    link = "http://www.google.com/" & dispText
    cel.Hyperlinks.Add anchor:=cel, Address:=link, TextToDisplay:=dispText
Next cel

End Sub

---

显示文本应为用户输入。每个单元格都有不同的输入，因此让它引用一个单元格将不起作用。当我尝试将范围设置为整个F列时，出现错误匹配。@juiceb0xk-请参阅我的编辑。此外，我不建议执行

范围（“F:F”）

，因为这可能会花费很长时间，并可能引发错误。相反，我建议找到最后一行，正如我在编辑的代码中所做的那样。这太棒了，使用VBA可以学到很多东西，非常感谢。显示文本应该是用户输入的。每个单元格都有不同的输入，因此让它引用一个单元格将不起作用。当我尝试将范围设置为整个F列时，出现错误匹配。@juiceb0xk-请参阅我的编辑。此外，我不建议执行

范围（“F:F”）

，因为这可能会花费很长时间，并可能引发错误。相反，我建议找到最后一行，正如我在编辑的代码中所做的那样。这太棒了，用VBA可以学到很多东西，非常感谢。