UC知道关于EXCEL的统计问题 急求
来源：百度知道 编辑：UC知道 时间：2024/06/25 18:21:31
1.能不能在一个EXCEL表里根据标签名搜索具体的工作表？一个表里经常有上百个工作表，一个个看着找真的很难。
2。要把一个EXCEL表中所有工作表的对应项相加求和，只能一个一个按？上百个工作表……
啊我没说清楚，我现在要做的是把上百个工作表里的(L,1)，(L,2)......(L,215)分别求和，统计到一个工作表里。
现在别人教我的是用相加函数，但是要把每个工作表第一行需要的单元格都点击一次来做出函数，然后下拉，我觉得这实在太麻烦了,求问能不能更简便一些
请问3楼的那个函数可以下拉到所有行吗？
2。要把一个EXCEL表中所有工作表的对应项相加求和，只能一个一个按？上百个工作表……
啊我没说清楚，我现在要做的是把上百个工作表里的(L,1)，(L,2)......(L,215)分别求和，统计到一个工作表里。
现在别人教我的是用相加函数，但是要把每个工作表第一行需要的单元格都点击一次来做出函数，然后下拉，我觉得这实在太麻烦了,求问能不能更简便一些
请问3楼的那个函数可以下拉到所有行吗？
可以的，可以用宏来做！
Dim n As Long
n = 0
For i = 1 To Sheets.Count
Set xlSheet = Worksheets(i)
xlSheet.Activate
If xlSheet.Name = "ABC" Then
MsgBox "表已找到"
End If
n = n + clng(Cells(x, y)) '所要求和项所在单元格的X,Y坐标！
Next
MsgBox n
第一个问题：
在你的工作薄的第一个工作表里（其实任意一个工作表都可以），我做的例子是有10个工作表，分别为Sheet1－Sheet10，在Sheet1的标签栏上点击右键——查看代码，然后把下面这段代码拷贝到VBA窗口里。
Sub FindSheets()
Dim n As Integer
Dim myWorkSheetCount As Integer
Dim FindSheetsName As String
Dim InStringTure As Integer
myWorkSheetCount = Worksheets.Count
FindSheetsName = Application.InputBox( _
prompt:="请输入要查找的工作表名", _
Title:="查找工作表", Type:=2)
For n = 1 To Worksheets.Count
InStringTure = InStr(1, UCase(Worksheets(n).Name), UCase(FindSheetsName))
If InStringTure <> 0 Then
Worksheets(n).Select
myPrompt = "你要找