在Excel中使用vba生成一个目录
我有一个macros从外部来源检索数据，然后格式化/图表在单个工作表中的数据。 我有大量的工作表（100+），我想在我的第一个工作表上创build一个目录列
我的macros的工作方式是我的第一个工作表作为我的命令工作表。 我有一个油井的序列号列表（A列），然后从网上下载相关的信息。下载的每个油井的信息被放到一个新的工作表中，然后根据C列中的值命名。
在列DI想要插入列C中的任何文本的超链接版本。该超链接将被链接到使用列A和C生成和命名的表格。
我试图自己创造这个，但是我不能让它工作。
请让我知道，如果我能澄清任何事情。
我附上了一张照片，显示我想要的。 见下文
Excel VBA创build超链接到另一个工作表
@curial礼貌：我录制了一个制作hiperlink的macros。 这导致。
ActiveCell.FormulaR1C1 = "=HYPERLINK(""[Workbook.xlsx]Sheet1!A1"",""CLICK HERE"")" 对于您的具体应用程序的公式将是：
=HYPERLINK(""[NameOfWorkbook.xlsx]" & C2 & "!A1"", C2)
然后复制下来。
基于Chrismas007的回答，也许这就是你所需要的：
Sub Add_Hyperlinks() Dim lngLastRow As Long, i As Integer lngLastRow = ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row For i = 2 To lngLastRow Cells(i, 4).Activate ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & i - 1 & "'!A1", TextToDisplay:="'" & i - 1 & "'!A1" Next End Sub
如果你把这个放到你现有的sub中（或者把它分开，并在main子目录中调用它），它会经过，find最后一行，然后从第2行循环到最后一行，在需要的地方添加=超链接公式。 只要确保根据需要编辑该超链接公式的内容即可。
更新：这应该修复它！ 有一个新的公式，在For循环中添加超链接（至less对我来说）