Question

我的XLS文档中有600多个工作表。我需要在第一个工作表中生成一个公式。

=HYPERLINK("#1!A1", CONCATENATE("YES (", COUNTA('1'!B:B)-1, ")"))
...
=HYPERLINK("#9!A1", CONCATENATE("YES (", COUNTA('9'!B:B)-1, ")"))
=HYPERLINK("#10!A1", CONCATENATE("YES (", COUNTA('10'!B:B)-1, ")"))
=HYPERLINK("#11!A1", CONCATENATE("YES (", COUNTA('11'!B:B)-1, ")"))

正如您所看到的，公式仅因工作表的名称而不同（它的数字1 ... 624）

当我复制并粘贴公式时＃39;我得到了相同的公式。

任何人都可以帮我吗？我不介意使用VBA在Sheet1中存储公式，从Cell E5到E624开始

Answer 1

在VBA中，一个简单的循环可以：

Sub createHyperLink()
    For i = 1 To 624
        Range("E" & i).Formula = "=HYPERLINK(""#" & i & "!A1"", CONCATENATE(""YES ("", COUNTA('" & i & "'!B:B)-1, "")""))"
    Next i
End Sub

Excel生成公式

1 个答案: