MSHFlexGrid控件合并单元格问题，同行相同内容的单元格分开合并

[qq_40063995]

'代码编写如下
Private Sub Form_Load()
Dim i, j As Integer
MSHFlexGrid1.TextMatrix(2, 0) = "A"
MSHFlexGrid1.TextMatrix(2, 1) = "A"
MSHFlexGrid1.TextMatrix(2, 2) = "A"
MSHFlexGrid1.TextMatrix(2, 3) = "A"
'合并单元格
MSHFlexGrid1.MergeRow(2) = True
MSHFlexGrid1.MergeCells = 2
End Sub

运行后的效果如下：


我需要的效果如下：

[qq_40063995]

这是初始数据，没合并之前的数据，控件属性设置的是4行、4列

[饮水需思源]

只能在内容中想办法，这样试试： MSHFlexGrid1.TextMatrix(2, 0) = "A " MSHFlexGrid1.TextMatrix(2, 1) = "A " MSHFlexGrid1.TextMatrix(2, 2) = "A" MSHFlexGrid1.TextMatrix(2, 3) = "A"

[of123]

还有一种方法，隐藏一个分隔列：

Private Sub Form_Load()
MSHFlexGrid1.Rows = 4
MSHFlexGrid1.Cols = 5           '多设 1 列
MSHFlexGrid1.ColWidth(2) = 0    '第 3 列隐藏
MSHFlexGrid1.TextMatrix(2, 0) = "A"
MSHFlexGrid1.TextMatrix(2, 1) = "A"
MSHFlexGrid1.TextMatrix(2, 3) = "A"
MSHFlexGrid1.TextMatrix(2, 4) = "A"
'合并单元格
MSHFlexGrid1.MergeRow(2) = True
MSHFlexGrid1.MergeCells = 2
End Sub