返回目录：excel表格制作
假设数据在A1:B10，如下图：
则D1输入下面的公式后下拉复制zhidao就可以了，如下图：
=OFFSET(A$1,TRUNC((ROW()-1)/2),MOD(ROW()-1,2))
知识扩展：
如果数据不止2列，假设为专3列，则把公式中的2改为3就可以了，如果是4列多行就改为4，依此类推属，3列多行结果如下图：
可以利百用VBA快速将多个工作表合并为一个
软件版本：Office2007
方法如下：度
1.有多个格式一致，内版容不一的工作表，将内容汇总到总表中：
2.ALt+F11，在总表中，输入代码如下：
代码管家注释已给出，根据情况修改单元格地址即可
3.返回Excel，就看到总表中已经汇总好了数据权:
可以利用VBA快速合并单个excel工作簿中的多个工作表（sheet）
软件版本：Office2007
方法如下：
1.当前工作簿中有多个工作表，结构都一样如下所示，zd当里面的回数据不一样，将它们全部合并到当前工作表中：答
2.Alt+F11，打开宏界面，输入如下代码：
Sub m()
For Each sh In Sheets '遍历每个工作表，提取数据
If sh.Name <> "Sheet1" Then '排除当前工作表
sh.Range("A2:C" & sh.Range("A65536").End(3).Row).Copy Range("A" & Range("A65536").End(3).Row + 1) '将工作表中的所有数据复制到当前工作表最后一行的下一行中
End If
Next
End Sub
3.F5执行代码，返回Excel得到结果如下，工作表合并完成：
将两个知或多个EXCEL工作表合成一个表的步骤如下：
1、打开一个Excel文档，显示有三个Sheet
2、点击Sheet栏后面的【+】
3、创建一个叫“合并”的Sheet
4、右键“合并”Sheet选择道【查看代码】
5、输入以下代码：
Sub 合并当前工作簿下的所有工作表专()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
6、点击【运行】选择【运行子过程/用户窗体】
7、弹属提示窗口
8、回到“合并”Sheet就能看见成功合并