对于合并了的单元格，只有向合并区域第一个单元格存数才有效果，向其他单元格写入数据都是无效的。
方案一、代码首先取消所有单元格合并：
Cells.UnMerge
这样就可以确保一对一填写数据
方案二、合并区域需要写入数据的时候，写入到合并区域的第一个单元格：
Range("E21").MergeArea = 5
如果E18:E21合并，此语句能把数据写入E18，能显示出来，但是如果E18、E19、E20也分别这样写入，只有最后一次的数据得到保存。
数据处理人员反对一切形式的单元格合并。
Sheets(10).Cells(j,1).Offset(,4).MergeArea = Cells(i,2)
如果要向A5单元格赋值, 但是不确定A5单元格是否是合并单元格, 直接用以下代码即可
Cells(5,1).MergeArea = 1
如果A5不是合并单元格就等于直接给A5赋值, 如果A5在合并单元格里, 就是给A5所在的合并单元格赋值.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024