发布网友 发布时间:2022-04-21 06:17
共5个回答
热心网友 时间:2022-06-18 11:02
楼上使用工作组求和是比较方便的办法,如果是需要获得列表,来取特定区域数字,可以使用我的方法。
按下 alt+f11 ,选择插入 模块,然后复制如下代码:
Sub Excel各页名()
Dim XStr, YStr, ZStr
XStr = " -"
ZStr = ""
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "目录" Then
Exit For
End If
Next
If i > Worksheets.Count Then
Sheets.Add
ActiveSheet.Name = "目录"
End If
Sheets("目录").Move before:=Sheets(1)
Sheets("目录").Select
Range("A:B").Clear
Range("B:B").NumberFormatLocal = "@"
Worksheets(1).Cells(1, 1).Value = "序号"
Worksheets(1).Cells(1, 2).Value = "名称"
For i = 2 To Worksheets.Count
Worksheets(1).Cells(i, 1).Value = i - 1
Worksheets(1).Cells(i, 2).Value = Worksheets(i).Name
For j = 1 To Len(Worksheets(i).Name)
YStr = Mid(Worksheets(i).Name, j, 1)
If InStr(XStr, YStr) <> 0 Then
ZStr = "'"
Exit For
End If
Next
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets(1).Cells(i, 2), Address:="", SubAddress:=ZStr & Worksheets(i).Name & ZStr & "!A1", TextToDisplay:=Worksheets(i).Name
Next
Range("A:A").HorizontalAlignment = xlCenter
Rows("1:1").HorizontalAlignment = xlCenter
Cells.Select
Selection.Columns.AutoFit
Range("A1").Select
End Sub
然后运行宏(可能会提示无法使用vba需要另外保存支持格式之类)
运行后就获得了一张工作表 “目录”里面有全部人的名字,然后假设需要取 各表格 A1单元格内容,就在目录B2 对应的 c2 输入:
=INDIRECT(B2&"!A1")
然后下拉即可。
热心网友 时间:2022-06-18 11:02
=SUM(Sheet1:Sheet3!A1)
表示Sheet1到Sheet3表格(按排列顺序),所有表格 的A1单元格的和
热心网友 时间:2022-06-18 11:03
你如果编号是2位数 那么个位数前面加一个0 如果是3位数,个位前面就要加两个0,类似A01,或者A001这样
热心网友 时间:2022-06-18 11:04
如果是一列的数据,点筛选,然后选升序就行了,如果是一行的数据,全部复制,然后右键选择性粘贴,点——转置,确认。就是成一列的数据了,然后再筛选升序。。
热心网友 时间:2022-06-18 11:04
表格中是否只有一列?如果是一列,标题数据--排列--选定区域--按数值排列点确认就可以,但如果是区域的,那要选中区域,不然边上的数据是不会参与排序的。