如何自动识别工作表名称并引用对应数值

Benfyhu

各位老师好。想实现这个功能，应该如何写代码。先谢谢大家。

quqiyuan

这个用公式就可以了，然后下拉
B3=INDIRECT("'"&A3&"'!d2")

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.29
   
2.     Set sh = ThisWorkbook.Sheets("汇总")
   
3.     ReDim brr(1 To 1000, 1 To 4)
   
4.     For Each sht In Sheets
   
5.         If sht.Name <> sh.Name And sht.Name <> "模版" Then
   
6.             m = m + 1
   
7.             brr(m, 1) = sht.Name
   
8.             brr(m, 2) = sht.[d2].Value
   
9.         End If
   
10.     Next
    
11.     With sh
    
12.         .UsedRange.Offset(2) = ""
    
13.         .[a3].Resize(m, 2) = brr
    
14.         r = .Cells(Rows.Count, 1).End(3).Row
    
15.         .Range("C3:C" & r).Formula = "=RANK(B3, B$3:B$" & r & ", 0)"
    
16.         .Range("C3:C" & r).Value = Range("C3:C" & r).Value
    
17.     End With
    
18.     MsgBox "OK！"
    
19. End Sub
    

复制代码

sqxzgg

在Excel中，自动识别工作表名称并引用对应数值可以通过几个步骤来实现。以下是一个清晰、分点的回答：

一、识别工作表名称

Excel本身并没有直接自动识别工作表名称的功能，但可以通过一些方法间接实现：

• 手动查看：最简单的方法是手动打开Excel文件，依次点击每个工作表的标签来查看名称。
• 使用VBA代码：通过编写VBA代码，可以快速提取Excel工作簿中的所有工作表名称。这需要一定的编程技能。
• 使用公式：在Excel中，也可以使用特定的公式来提取工作表名称。例如，使用MID和CELL函数的组合可以达到这一目的。
• 使用插件：市场上有一些Excel插件，如Kutools for Excel，提供了快速查看和管理Excel工作表名称的功能。
  

二、引用对应数值

识别了工作表名称后，可以通过以下方法引用对应数值：

• 直接引用：如果你知道要引用的具体单元格位置，可以直接在公式中输入工作表名称和单元格地址来引用数值。例如，=Sheet1!A1会引用Sheet1工作表中A1单元格的数值。
• 使用三维引用：如果要引用多个工作表中的同一位置的单元格，可以使用三维引用。例如，=SUM(Sheet1:Sheet3!A1)会计算Sheet1、Sheet2和Sheet3中A1单元格的和。
• 使用INDIRECT函数：INDIRECT函数可以将文本字符串转换为实际的单元格引用。这在你需要根据工作表名称动态引用数值时非常有用。例如，如果A1单元格包含工作表名称“Sheet1”，则=INDIRECT(A1&"!B1")会引用Sheet1中B1单元格的数值。
• 使用数据透视表：如果需要频繁地从多个工作表中汇总数据，可以考虑使用数据透视表。数据透视表可以方便地从不同的数据源中提取、汇总和分析数据。
  

三、注意事项

• 当使用VBA代码或公式来自动识别工作表名称时，需要确保Excel文件的宏设置允许运行VBA代码。
• 使用INDIRECT函数时需要注意，由于它是文本到引用的转换，所以可能会降低性能，特别是在处理大量数据时。
• 数据透视表是一个强大的工具，但也需要一定的学习成本来掌握其全部功能。
  

综上所述，Excel提供了多种方法来自动识别工作表名称并引用对应数值，你可以根据自己的需求和技能水平选择最适合的方法。

成长作文网：http://www.sjzwndj.cn

swl4561255

=INDIRECT(A3&"!D2")

Benfyhu

ykcbf1100 发表于 2024-4-29 15:19
参与一下。。。

非常感常。要的就是这个结果