如何将取值表标签转换成公式并自动取值

infonline

因后续表页比较多且表页标签都不一样，但是后续表页取值的位置都是一样的，所以想在汇总表页的单元格里设置能够自动提取标签名称，然后根据表页的标签名称自动取该表页的单元值。

例如：A2设置公式取值S123标签，然后B2取值路径自动换成该表标签的固定位置。

就是说A列设置好路径，B至D只需要通过拖拽就可计算相应数值。

fjh19880625

=INDIRECT($A2&"!"&CHAR(COLUMN()+64)&2)

quqiyuan

1. =INDIRECT($A2&"!"&CHAR(65+COLUMN(A1))&COUNTIF($A$2:$A2,$A2)+1)

复制代码

infonline

fjh19880625 发表于 2023-6-6 10:53
=INDIRECT($A2&"!"&CHAR(COLUMN()+64)&2)

你好，如果把合同代码换成“WC-BY20230601”显示错误，怎么修改

infonline

quqiyuan 发表于 2023-6-6 11:19

你好，标签中如果带有什么符号就不支持运算了，例如WC-BY20230601就计算错误

quqiyuan

=INDIRECT("'"&$A2&"'!"&CHAR(65+COLUMN(A1))&COUNTIF($A$2:$A2,$A2)+1)

infonline

quqiyuan 发表于 2023-6-6 12:33
=INDIRECT("'"&$A2&"'!"&CHAR(65+COLUMN(A1))&COUNTIF($A$2:$A2,$A2)+1)

谢谢，歪蕊顾得

ericxzhou

1. Sub test()
   
2.     Dim i%, wks
   
3.     i = 2
   
4.     For Each wks In ThisWorkbook.Sheets
   
5.         If wks.Name <> "汇总" Then
   
6.             wks.Range(wks.[a2], wks.[d2]).Copy
   
7.             Cells(i, 1).PasteSpecial xlPasteValues
   
8.             i = i + 1
   
9.         End If
   
10.     Next
    
11. End Sub

复制代码