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