excel工作表数据引用

发布网友发布时间：2022-05-20 21:33

共2个回答

热心网友时间：2024-03-05 11:18

那你先用下面宏把所有工作表汇总起来看看你的总行数超过EXCEL *了不能汇总到一个SHEET里面了啊
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer

On Error GoTo ErrHandler
Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="MicroSoft Excel文件(*.xls),*.xls", _
MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有选中文件"
GoTo ExitHandler
End If

x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1

Wend

ExitHandler:
Application.ScreenUpdating = True
Exit Sub

ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub

热心网友时间：2024-03-05 11:18

是多张工作表数据汇总吗？追问就是一个工作薄里的，其实也不限于同一工作薄，主要是把不同excel表格中的数据汇总

追答在同一个工作簿内各工作表的汇总请使用工作组的方法处理。
在不同工作簿内各工作表的汇总请使用，数据——合并计算处理。