...夹中多个表格中的固定行列数值提取到一个新的EXCEL表格当中...

发布网友 发布时间：2024-03-21 19:21

我来回答

共5个回答

热心网友 时间：2024-08-04 04:46

以Excel2007操作为例：

1、首先打开Excel，如图所示，接着在汇总表中找到需要汇总种类的第一个单元格。

2、然后单击选中的单元格，然后在编辑栏输入“=sum（公司1!”。

3、接着需要汇总的新单元格中，如图所示，此时单元格边框变成虚线状态。

4、然后按住shift键后选中需要汇总的表的最后一张。

5、最后，再返回到刚才编辑框中加上“）”，将公式补全后按回车，这样就可以汇总完成，这样操作就可以解决问题。

热心网友 时间：2024-08-04 04:46

使用VBA（宏）代码，按Alt+F11进入VBA界面，按Alt+i+m插入模块后，复制以下代码，按F5执行

Sub copyall()
Dim n%
n=1
For i = 1 To 5 '把这个数字改成你的文件总数
    Set excel_Book = Workbooks.Open("E:\excel\00" & i & ".xlsx") '地址写作"E:\xxx\xxx\"保留英文双引号
    Set excel_Sheet = excel_Book.Worksheets("Natural Hazards")
    excel_Sheet.Range("I7:I17").Copy ThisWorkbook.Worksheets("Sheet1").Cells(1,n)
    n=n+1
    excel_Book.Close False
Next
Set excel_Sheet = Nothing
Set excel_Book = Nothing
End Sub

热心网友 时间：2024-08-04 04:46

Sub CommandButton1_Click()

    Filename = Application.GetOpenFilename(FileFilter:="Excel ,*.xls*", Title:="Choose Files", MultiSelect:=True)

'可使用Ctrl或Shift选择多个文件 
    If Not IsArray(Filename) Then Exit Sub

    Application.ScreenUpdating = False

    For i = 1 To UBound(Filename)

        Set xlbook = Workbooks.Open(Filename(i))

        'sheet1中的B7,sheet2中的C5,sheet3中的D6

        Cells(i, "A") = xlbook.Sheets("sheet1").[B7]

        Cells(i, "B") = xlbook.Sheets("sheet2").[C5]

        Cells(i, "C") = xlbook.Sheets("sheet3").[D6]

        xlbook.Close

    Next i

    Application.ScreenUpdating = True

End Sub

热心网友 时间：2024-08-04 04:45

将这些文件copy到一个文件夹（只有这些Excel，且若打开某一文件，数据就能看见——即不用点其他sheet），建一新Excel，也存到该文件夹。仅打开该新Excel，按Alt+F11，左边窗口右键点，插入模块，在右边窗口粘贴如下代码：

Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet
Windows(Match).Activate
ActiveWindow.Close
Match = Dir$
End If
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

按F5执行此宏，文件copy完成。

然后可以用sum(sheet12:sheet30!A1)汇总了。
如果数据只有几列的话，可以直接用宏copy到一张工作表中。

热心网友 时间：2024-08-04 04:46

工作簿2中sheet1的A1,B1,C1分别输入
=[工作簿1.xls]sheet1!B7
=[工作簿1.xls]sheet2!C5
=[工作簿1.xls]sheet3!D6