我在控件mshfgrid中做自由分组时，合并后的结果是

这样的，而没有得到我想要的

结果，有没有哪位大神出来指教下，万分感谢路过的大神！！！！

我的代码如下：

'设置表格格式

Dim MSHFGrid

'设置表格格式

Set MSHFGrid = ScreenItems("MSHFGrid1")

' MSHFGrid.Visible=0

' MSHFGrid.Clear

MSHFGrid.Cols = 6

MSHFGrid.Rows = 6

MSHFGrid.ColWidth(0)=0

MSHFGrid.RowHeight(0)=0

MSHFGrid.RowHeight(1) = 300

MSHFGrid.RowHeight(2) = 300

MSHFGrid.RowHeight(3) = 300

MSHFGrid.RowHeight(4) = 300

MSHFGrid.RowHeight(5) = 300

MSHFGrid.ColAlignment=4

'设置标题

MSHFGrid.TextMatrix(1,1)="序号"

MSHFGrid.TextMatrix(1,2)="时间"

MSHFGrid.TextMatrix(1,3)="地点"

MSHFGrid.TextMatrix(1,4)="人物"

MSHFGrid.TextMatrix(1,5)="细节"

MSHFGrid.ColWidth(1)=500

MSHFGrid.ColWidth(2)=2000

MSHFGrid.ColWidth(3)=1100

MSHFGrid.ColWidth(4)=1000

MSHFGrid.ColWidth(5)=1000

MSHFGrid.MergeCells=1

MSHFGrid.MergeRow(2)=True

MSHFGrid.MergeRow(3)=True

MSHFGrid.MergeRow(4)=True

MSHFGrid.MergeRow(5)=True

MSHFGrid.MergeCol(2)=True

MSHFGrid.MergeCol(3)=True

MSHFGrid.MergeCol(4)=True

MSHFGrid.MergeCol(5)=True

Dim c1,c2

For c1=2 To 5

 for c2=2 To 5

MSHFGrid.TextMatrix(c1,c2)="I Don't know"

 Next

Next

MSHFGrid.Visible=1