跪求Excel高手指点

已在论坛中，给了你解决方案（EH中，我叫“大徐”）

先将B取消合并，

复制数据,双击合并单元格,使单元格在编辑状态,右键粘贴

A表的A列复制出来，每个项目下面增加一空白行（可以用辅助列方式）
B表取消合并，复制A表到B表，然后第一个合并后，用格式刷刷下面

VBA行吗？

Sub aaa()
For i = 1 To Sheet1.Range("A65536").End(xlUp).Row

Sheet2.Cells(2 * i, 1).Value = Sheet1.Cells(i + 1, 1).Value

Next i
End Sub

解决过程有点复杂，希望你有足够的基础知识来理解
方法1：操作法
先将A表第一列复制出一个空表上，然后每一行下面插入一个空行，再将B表第一列的格式刷过去（使之合并，并与B表格式一致），然后粘贴到B表上即可

方法2：函数法
假定都是从第一行开始，可以在选定B表相应的区域，激活A1，在编辑栏输入公式=INDIRECT("A!A"&INT(ROW()/2)+1)，按Ctrl+Enter确定，填充到所有

方法3：使用VBA
sub 处理()
for R = 1 to sheets("A").[A65536].end(xlup).row
sheets("B").cells(R*2-1,1) = sheets("A").cells(R,1)
next R
end sub