EXCEL中使用VBA的Range集合的MergeCells属性判断是否合并单元格
2007-08-28 20:42阅读：
今天做了个表，开始做的不太好，因为有的我合并了单元格，有的没有合并，导致不能正常排序。想取消合并的单元格但是，手工做起来很麻烦所以写了个VBA宏
Sub insert()
Dim i
For i = 2 To 331
If Range('e' & i, 'f' & i).MergeCells Then
Sheet2.Cells(i, 7) = Sheet2.Cells(i, 5) //后列对应单元格等于前边合并格的值
Sheet2.Cells(i, 5) = ''
Range('e' & i, 'f' & i).MergeCells = False
End If
Next
End Sub
Sub insert()
Dim i
For i = 2 To 331
If Range('e' & i, 'f' & i).MergeCells Then
Sheet2.Cells(i, 7) = Sheet2.Cells(i, 5) //后列对应单元格等于前边合并格的值
Sheet2.Cells(i, 5) = ''
Range('e' & i, 'f' & i).MergeCells = False
End If
Next
End Sub