返回目录:excel表格制作
把excel工作簿中多个工作表的某一列的数据都汇总到一个工作表中的具体步骤如下:
1、首先我们打开要合并计算的工作表,在该工作簿中包含有4张工作表,我们将把第来2-4张工作表中的数据合并到第1张工作表中。
2、案后我们选中要合并数据的单元格区域,这里选中“源汇总”工作表中的B3:E6单元格区域。
3、然后我们选择“数据”菜单选项卡,单击工具栏中的“合并计算”按钮。
4、此时会弹出“合并计算”对话框。在“函数”下拉列表中选择“求和”选项。单击“引用位置”后面的收缩对话框按钮。
5、选择第二个工作表“北京”,并用鼠标拖动以选中该工作表中的B3:E6单元格区域。单击展开对话框按钮返回到合并计算的对话框中。
6、单击“添加”按钮将引用位置添加到“所有引用位置列百表中。
7、使用同样的方法把”上度海“和”深圳“工作表中的数据区域也添加到”所有引用位置“中。
8、单击确定按钮,则会将选定工作表中的数据添加到汇总的工作表中,如此就可解决把excel工作簿中多个工作表的某一列的数据都汇总到一个工作表中的问题。
Sub 提取()
Dim DataWorkbook As Workbook '库存单.xls工作簿
Dim DataSheet As Worksheet, DataSheetName As String 'DataSheet=当前操作的工作表,DataSheetName=当前操作工作表的表名
Dim HuizongSheet As Worksheet '汇总单工作表
Dim GoodCount As Long
Dim GoodArr, GoodArrB()
Dim i As Long, j As Long
Application.ScreenUpdating = False
On Error Resume Next
Set DataWorkbook = GetObject(ThisWorkbook.Path & "\库存单.xls")
If Err <> 0 Then
MsgBox "没有找到 库存单.xls ,请把 库存单.xls 与 汇总.xls 放在同一目录下再运行此程序。", vbExclamation
Exit Sub
End If
Set HuizongSheet = Worksheets("汇总单")
GoodCount = 0 '产品计数归e799bee5baa6e79fa5e98193e4b893e5b19e332零
For Each DataSheet In DataWorkbook.Sheets '遍历每个库存单工作表
DataSheet.Activate
With DataSheet
GoodArr = .Range([c2], .[h65536].End(3)) '把库存数据的 C-H列 装进数组
'GoodArr(1,n) n= 1:C产品名称 2:D空 3:E进货数量 4:F总数 5:G进货次数 6:H进货时间
For i = 1 To UBound(GoodArr)
If Len(GoodArr(i, 4)) Then '总数不为空时,认定找到一个产品
GoodCount = GoodCount + 1 '产品数加1
ReDim Preserve GoodArrB(1 To 2, 1 To GoodCount)
GoodArrB(1, GoodCount) = DataSheet.Name & "-" & GoodArr(i, 1) '产品名称
GoodArrB(2, GoodCount) = "进货时间: " & GoodArr(i, 6) '进货时间
ElseIf Len(GoodArr(i, 6)) Then '总数为空,且进货时间不为空
GoodArrB(2, GoodCount) = GoodArrB(2, GoodCount) & " " & GoodArr(i, 6) '累加进货时间
End If
Next
End With
Next
DataWorkbook.Close '关闭打开的 库存单.xls
HuizongSheet.[a1].Resize(GoodCount, 2) = Application.Transpose(GoodArrB) '把提取出的数据显示在汇总单工作表上
Application.ScreenUpdating = True
End Sub
同时选择所百有工作表 (即点击第一张sheet,然后度按住键盘上的shif键t, 鼠标点击最后一张sheet,这样就选中所有的sheet了),接着在任一张sheet操作替换专动作,然后保存,这样所有的工作表改列就都会被替换了
如上三图,sheet1, sheet2,sheet3, A 列的A1单元格内容一致,现需要替换为“随意”,
如下图属,1至4个步骤 (选Replace All)
就替换成功了,
有数据的两列能够删除,步骤如下:
所需材料:Excel 2007示例。
一、百如果工作薄中只有三个表格,那么右键点击标签,弹出菜单内点击“选定全部工作表度”;如果工作薄中有更多个工作表,则按住Ctrl键用鼠标左键分别点击表1、表、表3,选中这三个工作表。
二、这时在任专意一个工作表内,鼠标拖动选中列E和列F。
三、在选中区内点击鼠标右键,弹出菜单内点击“清除内容”。
四、最后鼠标左键点击任意一个不是当前打开的工作表标签,解除工作表多选状态。属