Excel生成公式

时间:2018-06-05 14:09:49

标签: excel vba excel-vba

我的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开始

1 个答案:

答案 0 :(得分:2)

在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