1、拆分合并单元格;
2、选择A列,在“编辑/查找和选择/定位”中,将定位条件选为“空值”;
3、在A2中输入=A1,然后按Ctrl+Enter组合键;
4、生成如你所需的效果。
下面的代码就是你要的
Sub 取消合并并还原数据()
Dim a As Range, b As Range
For Each a In ActiveSheet.UsedRange
If a.MergeCells Then
Set b = a.MergeArea
b.UnMerge
b.Value = a.Value
End If
Next
End Sub
表2 =LOOKUP("驲",Sheet1!$A$1:A1)
下拉
SHEET1为你的表1
使用下面的方法:
在下面选择拆分的列就好了