关于数据控件mshflexgrid,单元格拆分的问题!!

给你一段源代码：
    flxtitle(0, 0) = "^货号": flxtitle(1, 0) = "货号"
    flxtitle(0, 1) = "^货名(中英文名称)  Goods descriptions": flxtitle(1, 1) = "货名(中英文名称)  Goods descriptions"
    flxtitle(0, 2) = "^规 格":   flxtitle(1, 2) = "规 格"
    flxtitle(0, 3) = "^数 量  Quantity": flxtitle(1, 3) = "数 量  Quantity"
    flxtitle(0, 4) = "^件 数  Ctns": flxtitle(1, 4) = "件 数  Ctns"
    flxtitle(0, 5) = "^重量": flxtitle(1, 5) = "毛重Kgs"
    flxtitle(0, 6) = "^重量": flxtitle(1, 6) = "净重Kgs"
    flxtitle(0, 7) = "^尺 码  CBM": flxtitle(1, 7) = "尺 码  CBM"
    flxtitle(0, 8) = "^单 价  Unit Price": flxtitle(1, 8) = "单 价  Unit Price"
    flxtitle(0, 9) = "^总 价  Amount": flxtitle(1, 9) = "总 价  Amount"
    flxtitle(0, 10) = "^H.S.CODE": flxtitle(1, 10) = "H.S.CODE"
    flxgrd1.Cols = mCols + 1
    Dim formatstr As String
    For j = 0 To 10  'create formatstring
        formatstr = formatstr & flxtitle(0, j) & "|"
        flxgrd1.MergeCol(j) = True
        
    Next j
    flxgrd1.FormatString = Left(formatstr, Len(formatstr) - 1)
    flxgrd1.MergeRow(0) = True
    For i = 1 To mRows
        flxgrd1.Row = i
        For j = 0 To mCols
            flxgrd1.Col = j
            flxgrd1 = flxtitle(i, j)
        Next j
    Next i