excel多个工作表求和案例

http://www.ittribalwo.com/article/1068.html

内容提要:本文用5个小例子来描述excel多个工作表求和的实际应用。

  本文对常见的excel多个工作表求和,给出几个小实例,大家可以对照来解决实际中遇到的excel多个工作表求和问题。

  excel多个工作表求和一:
  比如10个工作表,需要将1、3、5、7、9工作表的 B13单元格求和。
  公式为:=SUMPRODUCT(N(INDIRECT("sheet"&ROW(1:5)*2-1&"!b13")))

  excel多个工作表求和二:
  如果有10个工作表,需要对当前工作表以外的所有工作表的B13单元格求和汇总。
  公式为:=SUM("*"!,B13)

  excel多个工作表求和三:
  对sheet1:sheet5的A1单元格求和。
  对一个工作簿中某个工作表中的单元格引用的规则是:工作表名!单元格地址,
SUM(sheet1:sheet5!A1)这个公式中,sheet1:sheet5,可以这样理解:sheet1、sheet2、sheet3、sheet4及sheet5组成的一个工作组,即工作表名:sheet1:sheet5 随后再输入"!"及单元格地址。

  excel多个工作表求和四:
  在下面所示的Excel汇总表里,对1-5表中的B3-B8单元格求和。比如汇总表的B3单元格为:='1'!B3+'2'!B3+'3'!B3+'4'!B3+'5'!B3。

excel多个工作表求和

  汇总表B3单元格输入公式:=SUM(SUMIF(INDIRECT(ROW($1:$5)&"!a3:a100"),A3,INDIRECT(ROW($1:$5)&"!b3:b100"))),按ctrl+shift+enter三键结束,然后下拉至B8单元格,即可以实现excel多个工作表求和。

  excel多个工作表求和五:
  一个excel工作薄,里面有10个工作表。要对这10个工作表的A列数字求和。
  公式为:=SUM(Sheet1:Sheet10!A:A)

  如果Excel表格格式不统一,不合适用公式的,可以使用数据透视表的多重合并区域计算,比函数公式更轻松。

 

展开阅读全文

如何将Excel多个工作表同时导入到多个DataGridView中!

06-23

如题.单个的导入可以任何一个工作表,不知道怎么同时导入三个..网上找的参考代码如下.rnrn Dim excel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()rn Dim xlBook As Microsoft.Office.Interop.Excel.Workbookrn Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheetrn Dim fileDialog As OpenFileDialog = New OpenFileDialog()rn Dim FileName As Stringrn fileDialog.Filter = "Microsoft Excel files (*.xls)|*.xls"rn If fileDialog.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Subrnrn If fileDialog.FileName = Nothing Thenrn MsgBox("请选择要导入的excel文件", , "提示")rn End Ifrn FileName = fileDialog.FileNamernrnrn xlBook = excel.Application.Workbooks.Open(FileName)rnrn xlSheet = xlBook.Application.Worksheets(1)  '更改这个位置的数据可以选择哪一个工作表.rnrn Dim col As Integer = 0rn Dim i As Integer = 1rnrn Me.DanDianJiSuanDataGridView.Rows.Clear()rnrn Do While i <= xlSheet.UsedRange.Rows.Countrn DanDianJiSuanDataGridView.Rows.Add()rnrn DanDianJiSuanDataGridView.Rows(col).Cells(0).Value = xlSheet.Cells(i, 1).Valuern DanDianJiSuanDataGridView.Rows(col).Cells(1).Value = xlSheet.Cells(i, 2).Valuern i = i + 1rn col = col + 1rn Looprn excel.ActiveWorkbook.Close(False)rn xlSheet = Nothingrn xlBook = Nothingrn excel = Nothingrnrn If DanDianJiSuanDataGridView.Rows.Count >= 1 Thenrn MessageBox.Show("导入成功")rn Elsern MessageBox.Show("导入失败")rn End If 论坛

没有更多推荐了,返回首页