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

我的代码的目的是作用于用户input，然后根据用户input到单元中的内容自动创build一个超链接。

如果用户在单元格中inputhello ，则会创build超链接并链接到www.google.com/hello 。

每个单元格将有不同的input，所以我的范围从hello到其他用户input是非常重要的。

我只有一个单元格的工作，但是当我尝试和跨越到多个单元格，我得到一个不匹配的错误，我怀疑这是由于我引用单元格错误或什么。

这是我的代码：

 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 ，出现错误。

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

有任何问题，请让我知道。

谢谢。

Answer 1

首先，我build议把你要显示的文字作为自己的string。 然后，简单地循环你的范围。

 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