Dim lngIndex As Long Dim lngRow As Long With MSHFlexGrid1 .Rows = 13 .Cols = 15 .MergeCells = flexMergeFree ' ????????? .TextMatrix( 0 , 0 ) = " 拟晋升专业 " .TextMatrix( 1 , 0 ) = " 拟晋升专业 " For lngIndex = 1 To 6 .TextMatrix( 0 , lngIndex) = " 拟晋升职称级别 " Next .TextMatrix( 1 , 1 ) = " 小计 " .TextMatrix( 1 , 2 ) = " 正高 " .TextMatrix( 1 , 3 ) = " 副高 " .TextMatrix( 1 , 4 ) = " 中级 " .TextMatrix( 1 , 5 ) = " 助师级 " .TextMatrix( 1 , 6 ) = " 员级 " For lngIndex = 7 To 11 .TextMatrix( 0 , lngIndex) = " 晋 升 方 式 " Next .TextMatrix( 1 , 7 ) = " 正常晋升 "