引用工作簿名称递增

嘿矿工

单元格A1的公式为=INDEX('名称(X)'!$O6,1,1)，想让公式中的X可以随列递增。

山菊花

=INDIRECT("'名称("&COLUMN()&")'!O6")

嘿矿工

这个是实例，帮忙了！

山菊花

A1=INDIRECT("表"&COLUMN()&"!A"&ROW())

嘿矿工

你的回答太对了，已验证，但是我把sheet的名字改成这样不知道怎么搞了！新手求教。

山菊花

=INDIRECT("'表("&COLUMN(A:A)&")'!$A"&ROW(1:1))
另：
当引用的单元格只有一个的时候，不需要使用Index()函数：
=INDEX('表(1)'!$A1,1,1)
与：
='表(1)'!$A1
等效。

嘿矿工

讲解太认真了，不厌其烦。大神！求结识。微信15838095759

tx0613

山菊花 发表于 2016-1-14 20:38
=INDIRECT("'表("&COLUMN(A:A)&")'!$A"&ROW(1:1))
另：
当引用的单元格只有一个的时候，不需要使用Index( ...

求助大神！！例如：有Sheet1至Sheet100个工作表，工作表中Sheet1中A1值为1，从Sheet2中A1单元格复制公式“=Sheet1!A1+1，怎么批量粘贴到后面98个工作表A1中，使得Sheet3中A1公式为“=Sheet2!A1+1。。SheetN公式为“=Sheet(N-1)!A1+1。。。

山菊花

tx0613 发表于 2019-6-3 17:20
求助大神！！例如：有Sheet1至Sheet100个工作表，工作表中Sheet1中A1值为1，从Sheet2中A1单元格复制公式 ...

1、右键点击工作表标签，选择菜单项“查看代码”
2、将下面的代码粘贴在打开的VBE代码编辑区中。

1. Sub 批量填充公式()
   
2.     Dim shName$, Sht As Worksheet
   
3.     For Each Sht In ThisWorkbook.Worksheets
   
4.         If shName <> "" Then
   
5.             Sht.Range("a1").Formula = "=" & shName & "!A1+1"
   
6.         End If
   
7.         shName = Sht.Name
   
8.     Next
   
9.     MsgBox "OK"
   
10. End Sub
    

复制代码

3、将光标定位到代码中间任意位置，按F5运行。