作者：乔山办公网日期：
返回目录：excel表格制作
假定每一列都是知23行,A列道是序号,B列C列D列E列F列是需要合并成一列的数据专
H1单元格输入
=VLOOKUP(MOD(ROW()-1,23)+1,$A$1:$F$23,INT((ROW()-1)/23+2))
向下填充
效果如属下图
打开文件，选中你要进行合并的zd多列数据
单击右键，进行复制
打开word,新建一个空白文档，单击右键，进行粘贴，此时粘贴的将是一个表格
点击左上角的一个十字箭头，选中表格（表格全为浅灰色，代表已经选中表格）
选中之后，在浅灰色区域，单击专右键，选择合并单元格属
合并之后，选择文字
选择文字，单击右键，进行复制
打开刚刚的excel表，任意选中一个空白单元格，单击右键，进行粘贴
粘贴完成，这里把空白单元格选在了，之前未处理的表格下面，方便进行比较。
A1单元格输入公式
=OFFSET($B$1,(ROW(A1)-1)/3,MOD(ROW(A1)-1,3))
下拉复制公式
用百vba代码
几句话就完成
函数度忘记了，问要用偏移函数
=OFFSET($B$2,MOD(ROW(A2)-1,30),INT((ROW(A2)-1)/30))
30，表示每答列需要合并回的数答据为30行，没代码智能。
Sub 合并()
Dim I, K
For K = 3 To 13
X = Cells(65536, K).End(xlUp).Row
Y = Cells(65536, 2).End(xlUp).Row
Range(Cells(2, K), Cells(X, K)).Copy Cells(Y + 1, 2)
Next
End Sub