作者:乔山办公网日期:
返回目录:excel表格制作
1.工作簿中有多张工作表来,A列和B列都有类似的数据,行数不同。
2.选中源“汇总百”表A1单元格,点击【数据】-【合并计算】。度
3.左上角选择适当的运算方式,本例为“求和”。如下图所示点击选择按钮选择数据。
4.选中第一张工知作道表数据,并点击【添加】按钮。
5.顺序将其他工作表数据也添加进来。
6.由于原始数据第一行是标题,并且要以A列数据分类汇总,所以选中下面两个选项。
7.确定后就在“汇总”表生成了每个人的“数量”汇总求和数据。
8.如果勾选【创建指向源数据的链接】则最终返回链接数据并汇总。
9.完成汇总效果如下。
10.点击每个人旁边的加号就可以看到汇总数据是从哪张工作表的哪个单元格引用过来的。
在工作中有时会遇到数据合并的问题,需要将当前工作簿中的全部工作表合并在一起。通常的做法是先新7a64e59b9ee7ad94366建一个空白的工作表,然后依次将有数据的工作表中的内容复制后,按顺序粘贴到这个空白的工作表中。如果工作表的数量较多,手工操作就会非常慢。
我们可以通过建立一段宏代码,将上面操作自动完成。
按ALT+F11调出VBA窗口,插入一个模块,然后把下面的代码复制进去。
Sub 合并工作表()
Set NewSheet = Sheets.Add(Type:=xlWorksheet) '生成一个新表
Sheets(NewSheet.Index).Move Before:=Sheets(1) '将此新表移动到最前面
For i = 2 To Worksheets.Count
Sheets(i).UsedRange.Copy NewSheet.Cells([a65536].End(xlUp).Row + 2, 1) '将其他表的已使用区域复制到新表中
Next i
MsgBox "合并完成"
End Sub
这段代码很简单,其中第四行中用FOR循环得到当前工作簿中的所有工作表,第五行中使用UsedRange得到每个工作表的“已使用区域”,然后用copy方法把这些“已使用区域”中的内容复制到新建工作表中。
语句Cells([a65536].End(xlUp).Row + 2, 1)的作用是得到新建工作表的A列中的最后空白单元格(即要在哪个位置粘贴),加2的作用是使每次复制数据间隔2行空格。
回到EXCEL窗口,执行“工具-宏-宏”中的“合并工作表”宏就会自动合并工作表了。
b2公式=INDIRECT("'"&MOD(ROW()+1,3)+1&"'!袭a"&INT((ROW()+1)/3)),下拉填百充
c2公式度=INDIRECT("'"&MOD(ROW()+1,3)+1&"'!b"&INT((ROW()+1)/3)),下拉填充
试试问看对么答