谢谢版主,我自己也写了一个VBA程序做了一下把单元格都取消合并了。然后就可以直接排序了。代码如下:
Dim a, b As Integer
For a = 1 To 14
For b = 2 To 17
Cells(a, b).UnMerge
b = b + 1
Next
a = a + 1
Next
Range("Q:Q").Delete
Range("O:O").Delete
Range("M:M").Delete
Range("K:K").Delete
Range("I:I").Delete
Range("E:G").Delete
Range("C:C").Delete